reviewmanage.asp

东滕网站源码

<% option explicit %>
<!--#include file="../function1/DBOpen.asp"-->
<%
  if session("purview")<>"99999" then
      response.write "错误!!您没有权限或者连接超时,请重新登陆.  <a href='../login.asp' target='_top'>登陆</a>"
  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 "操作完成!共删除无效评论 <font color=red>" & i & "</font> 条!!<a href='../review.asp?newsid=" & request("newsid") & "'>返回</a>"
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
%>
<!--#include file="../function/DBclose.asp"-->