delshortinfo.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 37 行

<!--#include file="../conn.asp"-->
  <% '删除短消息--------------------------------------;
     Set rs = Server.CreateObject("ADODB.Recordset")
     sql="select * from shortinfo where id="&clng(request("id"))&" "
     rs.open sql,conn,1,3
     if not(rs.BOF and rs.EOF) then
          select case request("shortinfo")
          case "收件箱"
             rs("收件人删除标记")="Y"
          case "发件箱"
             rs("发件人删除标记")="Y"
          case "已发送"
             rs("发件人删除标记")="Y"             
          case "废件箱"
             if Request.Cookies("username")=rs("发件人") then
                if rs("收件人回收站删除标记")="Y" then
                   rs.Delete 
                else
                  rs("发件人回收站删除标记")="Y"
                end if
             end if
             if Request.Cookies("username")=rs("收件人") then
                if rs("发件人回收站删除标记")="Y" then
                  rs.Delete 
                else
                  rs("收件人回收站删除标记")="Y"
                end if
             end if
          end select
       rs.Update  
     end if
     rs.Close 
     conn.close
     set rs=nothing
     set conn=nothing
  %>
    <meta HTTP-EQUIV=refresh Content='0;url=shortinfo.asp?optionvar=短消息&shortinfo=<%=request("shortinfo")%>'>