www.gusucode.com > 528人才招聘网整站源代码-蓝色经典 精简版 2.0源码程序 > admin/admin_del_message.asp
<!--#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>" %>