神马品牌网广州华夏职业学院面积:ASP代码问题，请教
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 17:43:28
dim delid
delid=request("id")
page=request("page")
cid=request("cid")
set rs1=server.createobject("adodb.recordset")
sql1="select * from reply where newsid=" & delid
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
end if
请问是什么意思呢？
能具体点么？
非常感谢
delid=request("id")
page=request("page")
cid=request("cid")
set rs1=server.createobject("adodb.recordset")
sql1="select * from reply where newsid=" & delid
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
end if
请问是什么意思呢？
能具体点么？
非常感谢
根据给定的新闻号delid删除这个新闻号，并删除该新闻的所有评论.