inboxdelete_do.asp

中文bux点击站源码。配合其他站点用

<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  MailID = Request("MailID")
  DateLimit = Request ("DateLimit")
  If MailID <> "" Then
      rs.Open "Delete From mailrecord Where ID = " & MailID & "",Conn
  End If
  If DateLimit = "0 Days" Then
     rs.Open "Delete From mailrecord",Conn
  Else If DateLimit = "7 Days" Then
          rs.Open "Delete From mailrecord Where date() - SendTime > 7",Conn
       Else If DateLimit = "15 Days" Then
               rs.Open "Delete From mailrecord Where date() - SendTime > 15",Conn
            End If
       End If
  End If
  Conn.close
  Set Conn = nothing
  Session ("Message") = "站内邮件删除成功。"
  Response.Redirect "success.asp"
  Response.End
%>