<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
Call saycarda("清空信箱")
dim action
action = trim(Request.QueryString("action"))

if action = "dees" or action = "deef" or action = "deec" then
else
  conn.close
  set conn=Nothing
  response.write "清空信息将无法恢复,请谨慎操作"&chr(13)
  response.write "<br/><a href='msgalldel.asp?action=dees&amp;url="&url&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>清空收件</a>"&chr(13)
  response.write "<br/><a href='msgalldel.asp?action=deef&amp;url="&url&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>清空发件</a>"&chr(13)
  response.write "<br/><a href='msgalldel.asp?action=deec&amp;url="&url&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>清空收藏</a>"&chr(13)
Response.write "<br/>---------"
Response.write "<br/><a href='mymsg.asp?saytk="&saytk&"&amp;sid="&sid&"'>[我的信箱]</a>"&chr(13)
call head1()
  response.end
end if
if saytk=1 then
response.write "<onevent type=""ontimer"">"&chr(13)
response.write "<go href=""mymsg.asp?saytk="&saytk&"&amp;sid="&sid&"""/>"&chr(13)
response.write "</onevent>"&chr(13)
response.write "<timer value=""10""/>"&chr(13)
end if
if action = "dees" then

  conn.Execute("update [guest] set sdel=1 Where book=0 and fzt=1 and sid="&myid)

elseif action = "deef" then
conn.execute("update [guest] Set fdel = 1 where fid="&myid)

elseif action = "deec" then
conn.execute("update [guest] Set book = 0 where sid="&myid)
else
  Call Error("错误的操作！")
end if

 Response.write "成功清空"&chr(13)

conn.close
set conn=Nothing

Response.write "<br/><a href='mymsg.asp?saytk="&saytk&"&amp;sid="&sid&"'>[我的信箱]</a>"&chr(13)
%><!--#include file="fanhui.asp"-->
<%call head1()%>