<% option explicit %> <% if session("purview")<>"99999" then response.write "错误!!您没有权限或者连接超时,请重新登陆. 登陆" response.end end if dim rs,sql,rsc,i i=0 if request("action")="delall" then '**********删除全部评论*********** conn.execute "delete from review" response.redirect "../review.asp?newsid=" & request("newsid") end if if request("action")="delabate" then '***********删除无效评论************* set rs=server.createobject("adodb.recordset") rs.open "select * from review",conn,1,3 if not rs.eof and not rs.bof then do while not rs.eof set rsc=server.createobject("adodb.recordset") rsc.open "select * from news where newsid=" & cstr(rs("newsid")),conn,1,1 if rsc.bof and rsc.eof then conn.execute "delete from review where newsid=" & cstr(rs("newsid")) i=i+1 end if rsc.close set rsc=nothing rs.movenext loop end if rs.close set rs=nothing response.write "操作完成!共删除无效评论 " & i & " 条!!返回" end if if request("action")="delone" then '**************删除一条评论*************** conn.execute "delete from review where reviewid=" & cstr(request("reviewid")) response.redirect "../review.asp?newsid=" & request("newsid") end if if request("action")="delabout" then '**************删除某篇文章所有相关评论*************** conn.execute "delete from review where newsid=" & cstr(request("newsid")) response.redirect "../review.asp?newsid=" & request("newsid") end if %>