广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

2.dele.asp
<% wname=trim(request.querystring("name")) name为要删除的文章对应的文本文件 名"wz-n.asp" (n=0,1,2,...),同
时也是从数据库中的wname字段得来
set dbconn=server.createobject("adodb.connection")
conpath="dbq=" &server.mappath("wzozg.mdb")
dbconn.open "driver={microsoft access driver (*.mdb)}; " & conpath
sql="delete from ozg where wname="&wname&"" 删除数据库中文章信息
dbconn.execute(sql)
dbconn.close
thisfile = server.mappath(wname)
set fs=server.createobject("scripting.filesystemobject")
if fs.fileexists(thisfile) then
fs.deletefile thisfile,true 删除对应的文本文件"wz-n.asp"
end if
set fs=nothing
%>
3.showwz.asp
<% set dbconn=server.createobject("adodb.connection")
conpath="dbq=" &server.mappath("../../db/wzozg.mdb")
dbconn.open "driver={microsoft access driver (*.mdb)}; " & conpath
set rs=server.createobject("adodb.recordset")
rs.open sql,dbconn,3,1
number=rs.recordcount%> 把所有文章一般信息读入记录集rs中
%>
4.wz.asp
<%wname=request.querystring("wname") 从showwz.asp得来的要具体显示内容的那篇文章的对应的文本文件名
set dbconn=server.createobject("adodb.connection")
conpath="dbq=" &server.mappath("wzozg.mdb")
dbconn.open "driver={microsoft access driver (*.mdb)}; " & conpath
sql="update ozg set wcount=wcount+1 where wname="&wname&""
dbconn.execute(sql)
sql="select wauth,wname,wcontent,wsource,wauth from ozg where wid="&id&""
set rs=dbconn.execute(sql) 把要显示的那篇文章一般信息读入记录集中
filename = server.mappath(wname)
rs.close
dbconn.close
set fs=createobject("scripting.filesystemobject")
set thisfile = fs.opentextfile(filename,1,false)
do while not thisfile.atendofstream
thisline = thisfile.readline
if thisline<>"" then
thisline=server.htmlencode(thisline)
response.write"<p>"&thisline&"</p>"
end if
loop
thisfile.close
set fs=nothing
%>
---------------------------------------------------

（）