丹东阿里郎倒闭:ASP代码, 有些不解？

dim delid 定义变量delid
delid=request("id") 接受ID附给变量delid
page=request("page") 接受page附给变量page
cid=request("cid") 接受cid附给变量cid
set rs1=server.createobject("adodb.recordset")
定义一个recordset数据集合rs1
sql1="select * from reply where newsid=" & delid
查询reply表所有 newsid=delid的记录--SQL语句1
rs1.open sql1,conn,1,3 执行SQL语句1

do while not rs1.eof
rs1.delete
rs1.movenext
loop

这个DO循环是 轮删符合条件的记录

set rs=server.createobject("adodb.recordset")
sql="select * from news where id=" & delid
查询news表所有 id=delid的记录--SQL语句2
rs.open sql,conn,1,3 执行SQL语句2

if rs.eof and rs.bof then
response.write "数据不存在<br>"
response.write "<a href='listnews.asp?cid="&cid&"&page="&page&">请返回</a>"
else
有就删除，然后返回
rs.delete
response.write "日志已经删除<br>"
response.redirect "listnews.asp?cid="&cid&"&page="&page
end if

连到数据库并读出数据

dim delid
delid=request("id")
page=request("page")
cid=request("cid")
set rs1=server.createobject("adodb.recordset") //建立recordset连接集合对象
sql1="select * from reply where newsid=" & delid //通过ID查找记录
rs1.open sql1,conn,1,3 //执行查询
do while not rs1.eof //循环直到记录的末尾
rs1.delete //删除数据库中当前查询到的数据
rs1.movenext //记录集移到下一条记录
loop //循环
set rs=server.createobject("adodb.recordset") //同上
sql="select * from news where id=" & delid //同上
rs.open sql,conn,1,3 //同上
if rs.eof and rs.bof then //如果查询为空
response.write "数据不存在<br>" //输出数据不存在
response.write "<a href='listnews.asp?cid="&cid&"&page="&page&">请返回</a>" //返回链接
else
rs.delete //否则,查询数据存在则删除
response.write "日志已经删除<br>"
response.redirect "listnews.asp?cid="&cid&"&page="&page
//自动跳转到页面listnews.asp?cid=cid&page=page.注:等号后面是参数值.
end if