savereview.asp

漂亮公司企业网站自助建站系统 .asp.rar

<!--#include file="conn.asp"-->
<!--#include file="session3.asp"-->
<%
dim action
action=request.QueryString("action")
select case action
case "del"
if request("shenhe").count=0 then
response.write "<script language=javascript>alert('您没有选择要删除的评论？');history.go(-1);</script>"
response.End
end if
conn.execute ("delete from wq_review where pinglunid in ("&request("shenhe")&")")
response.write "<script language=javascript>alert('批量删除成功!');history.go(-1);</script>"
response.end
case "shenhe"
if request("shenhe").count=0 then
response.write "<script language=javascript>alert('您没有选择要审核的评论？');history.go(-1);</script>"
response.End
end if
conn.execute "update wq_review set shenhe=1 where pinglunid in ("&request("shenhe")&")"
response.write "<script language=javascript>alert('批量审核成功!');history.go(-1);</script>"
response.end
case "delzhou"
dim theday
theday=date-7
conn.execute ("delete from wq_review where pinglundate<#"&theday&"# and shenhe=0")
response.write "<script language=javascript>alert('一周前未审核评论删除成功!');history.go(-1);</script>"
response.end
case "delall"
conn.execute ("delete from wq_review where shenhe=0")
response.write "<script language=javascript>alert('所有未审核评论删除成功!');history.go(-1);</script>"
response.end
end select
%>