asp编程:召开自己的新闻发布会
sp;DBPath = Server.MapPath("/")&"/news/data/data.mdb"
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
还有需要注意一下的是，WINNT和Windows 98的日期时间函数所返回的值是不同的，Win98是以24小时来计算的，而NT Server则使用12小时，另外加上“上午”和“下午”来表示，因此需要作出少许的更改处理。
程序处理完毕后，重新导向delete.asp文件，用以刷新新闻数据库内的显示，那么每提交一条新闻资料，我们马上可以看见执行的结果是否成功了。
以下是delete.asp的文件内容。
源代码下载地址：http://www.popunet.com/2001/zip/39-1.zip
delete.asp也是一个构成webadmin.htm的管理页面的ASP文件，它负责新闻数据库的标题显示，以便让你知道现在库中有些什么新闻。同时可以通过它来删除新闻记录。另外一个附加的ASP程序set_diap.asp用于控制每一类新闻在主页上显示的数目，它主要使用application对象来设定。
<% language="vbscript" %>
<%
response.buffer=true
Response.Expires=0
application("disp_1")=request.form("disp_1")
application("disp_2")=request.form("disp_2")
application("disp_3")=request.form("disp_3")
application("disp_4")=request.form("disp_4")
application("disp_5")=request.form("disp_5")
response.redirect "delete.asp"
%>
完成了上面的程序，我们的新闻发布系统就可以使用在线添加、删除和设置显示等功能了。需要加上搜寻功能，也可以在这个基础上加上。下一节我们来分析如何令新闻代码嵌入不同的网页，实现真正的在线新闻功能。
三、将新闻代码插入页面
最好的新闻发布当然是为网站本身定做的，那样才能与主页风格一致，但如此一来，新闻发布系统又缺乏了通用性，不能移植到别的网站上使用。有得必有失，关键是找一个平衡点。综合来考虑，最好的做法是与页面分离，这样就可以不影响网页的外观，而也能达到很好的效果。在使用新闻的网页上我们可以通过放置一条这样的script语句来调用新闻代码：
<script language="JavaScript"
src="http//xxx.com.cn/special/linux/lnews/autoup.asp">
现在请大家看看autoup.asp的代码。
源代码下载地址：http://www.popunet.com/2001/zip/39-1.zip
通过定制这段代码，就能制作出符合要求的网页显示格式。
OK，添加、删除、显示都讲解完了，最后一项，就是把新闻的详细内容显示出来。当用户点击新闻标题，就打开disp.asp文件，同时使用GET这种方式来把参数传递过去。
disp.asp的文件内容：
源代码下载地址：http://www.popunet.com/2001/zip/39-1.zip
至此，新闻发布系统已能投入使用，试试看，是不是很方便，很容易就能增添每天的新闻内容了。我们还可以为新闻发布系统加入标题/全文检索功能，让它更加完美。
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
还有需要注意一下的是，WINNT和Windows 98的日期时间函数所返回的值是不同的，Win98是以24小时来计算的，而NT Server则使用12小时，另外加上“上午”和“下午”来表示，因此需要作出少许的更改处理。
程序处理完毕后，重新导向delete.asp文件，用以刷新新闻数据库内的显示，那么每提交一条新闻资料，我们马上可以看见执行的结果是否成功了。
以下是delete.asp的文件内容。
源代码下载地址：http://www.popunet.com/2001/zip/39-1.zip
delete.asp也是一个构成webadmin.htm的管理页面的ASP文件，它负责新闻数据库的标题显示，以便让你知道现在库中有些什么新闻。同时可以通过它来删除新闻记录。另外一个附加的ASP程序set_diap.asp用于控制每一类新闻在主页上显示的数目，它主要使用application对象来设定。
<% language="vbscript" %>
<%
response.buffer=true
Response.Expires=0
application("disp_1")=request.form("disp_1")
application("disp_2")=request.form("disp_2")
application("disp_3")=request.form("disp_3")
application("disp_4")=request.form("disp_4")
application("disp_5")=request.form("disp_5")
response.redirect "delete.asp"
%>
完成了上面的程序，我们的新闻发布系统就可以使用在线添加、删除和设置显示等功能了。需要加上搜寻功能，也可以在这个基础上加上。下一节我们来分析如何令新闻代码嵌入不同的网页，实现真正的在线新闻功能。
三、将新闻代码插入页面
最好的新闻发布当然是为网站本身定做的，那样才能与主页风格一致，但如此一来，新闻发布系统又缺乏了通用性，不能移植到别的网站上使用。有得必有失，关键是找一个平衡点。综合来考虑，最好的做法是与页面分离，这样就可以不影响网页的外观，而也能达到很好的效果。在使用新闻的网页上我们可以通过放置一条这样的script语句来调用新闻代码：
<script language="JavaScript"
src="http//xxx.com.cn/special/linux/lnews/autoup.asp">
现在请大家看看autoup.asp的代码。
源代码下载地址：http://www.popunet.com/2001/zip/39-1.zip
通过定制这段代码，就能制作出符合要求的网页显示格式。
OK，添加、删除、显示都讲解完了，最后一项，就是把新闻的详细内容显示出来。当用户点击新闻标题，就打开disp.asp文件，同时使用GET这种方式来把参数传递过去。
disp.asp的文件内容：
源代码下载地址：http://www.popunet.com/2001/zip/39-1.zip
至此，新闻发布系统已能投入使用，试试看，是不是很方便，很容易就能增添每天的新闻内容了。我们还可以为新闻发布系统加入标题/全文检索功能，让它更加完美。