savepinglun.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<!--#include file="middle_admin.asp"-->
<!--#include file="HMconnection.asp"-->
<%dim action,filmID,theday
filmID=request.QueryString("id")
action=request.QueryString("action")
select case action
case "delzhou"
theday=now()-7
conn.execute ("delete from filmReview where reviewAddDay<#"&theday&"# and movieID="&filmID&"")
response.write "<script language=javascript>alert('一周前未审核评论删除成功!');history.go(-1);</script>"
response.end
case "delyue"
theday=now()-30
conn.execute ("delete from filmReview where reviewAddDay<#"&theday&"# and movieID="&filmID&"")
response.write "<script language=javascript>alert('一月前未审核评论删除成功!');history.go(-1);</script>"
response.end
end select
%>