{
alert("请录入文章的标题！^_^");
yjform.biaoti.focus();
return false;
5.7 自由更改新闻
如下图5.6所示，是进入新闻修改单的窗体显示界面。进入此页面可以对原输入内容有误或具体内容不详细的地方进行修改和删除。
在对某条新闻进行修改时，先从已有信息中查找到所需的信息，再进行一定的修改操作，同样点击新闻提交后，会显示修改成功信息，如果未能找到原信息，的原代码显示为：
图5.6 新闻修改单
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("news.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
选择数据库
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from news where classfication='"& leibie &"' and title='"& biaoti &"' order by newsdate desc"
rs.open sqlstr,conn,adOpenStatic
查找相关的信息记录
if rs.eof then
%>
<Script language=java script>
<!--
alert("查无此新闻！");
window.location.href="admrevise0.htm";
//-->
</script>
没有相关记录时的显示。当在新闻修改单中输入标题时，如果在新闻数据库中没有该相关标题的信息记录，就显示该信息。
5.8 显示热点新闻
图5.7 热点新闻信息
如上图所示，为显示热点新闻信息的界面，找到相应的新闻类别字段，可直接查询到所需的新闻信息，代码如下所示：
<%
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("news.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
sqltext="Select * from news where newsid="&request("newsid")
rs.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext
skipid=request("newsid")
a=trim(rs("key1"))
b=trim(rs("key1"))
c=trim(rs("lookfrom"))
d=trim(rs("reporter"))
%>
第6章 结束语
经过三个多月的设计和开发，网上新闻发布系统基本开发完毕。其功能基本符合新闻发布需求，能够完成新闻发布、新闻修改和新闻显示以及新闻评论。并提供部分系统维护功能,使用户方便进行新闻浏览和管理员对新闻进行修改、数据删除。，对于新闻同类性的问题也通过程序进行了有效的解决。 但是由于文档设计时间较短，所以该系统还有许多不尽如人意的地方，比如页面设计内容不是十分丰富，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步的改善。
致 谢 在本次文档设计中，我从指导老师邹国华老师身上学到了很多东西。邹老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，非常感谢他耐心的辅导。帮助解决了不少的难点，使得系统能及时开发完成，这里表示感谢。 在此还得感谢东华理工学院在四年里对我的栽培，以及老师对我的鼓励和帮助。在这个程序的最后的调试过程中，由于本人的知识水平有限，得到很多同学的帮助，这里一并表示感谢。
主要参考文献
[1] 精通ASP网络编程
作者：武延军 赵彬
出版社：人民邮电出版社
[2] ASP实例演练
作者：洪传华 改编：健莲科技
出版社：中国电力出版社
[3] ASP编程高手
编写：编程高手工作室
出版社：北京希望电子出版社
[4] AS编程基础及应用实例集锦
作者：孙丽君 吴红普
出版社：人民邮电出版社
[5] ASP数据库系统开发实例导航
作者：宣小平 但正刚 张文毅
出版社：人民邮电出版社
[6] ASP动态网站编程
作者：石国志
出版社：清华大学出版社