admin_del_message.asp

来自「网上招聘与求职系统是通过INTERNET」· ASP 代码 · 共 29 行

<!--#include file="conn.asp"-->
<%
if session("login")<>"yes" then
response.write "<script language=JavaScript>" & chr(13) & "alert('您还未登录或者超时,请重登录！');"&"window.location.href = '../'"&" </script>"
response.end
end if
dim selflag
	if request("isread")="yes" then
	selflag=""
	else
	selflag=" and new=false"
	end if
	select case request("delDate")
	case "all"
	sql="delete from message where id>0 "&selflag
	case 7
	sql="delete from message where datediff('d',addtime,Now())>7 "&selflag
	case 30
	sql="delete from message where datediff('d',addtime,Now())>30 "&selflag
	case 60
	sql="delete from message where datediff('d',addtime,Now())>60 "&selflag
	case 180
	sql="delete from message where datediff('d',addtime,Now())>180 "&selflag
	end select
rs.open sql,conn,1,1
set rs=nothing
set conn=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('操作完成！');" & "history.back()" & "</script>" 
%>