<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
%>
<%call Fortxtmsg
dim id,TP,urls
ID=request("id")
if id="" or IsNumeric(id)=False then
if saytk<>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>ID无效！")
else
  Call Error("<card title=""出错""><p>ID无效！")
end if
  end if
urls=request("url")
if urls="" then urls="msgin.asp?sid="&sid&""
TP=request("TP")
if TP="" then
call saycardd("删除消息")
response.write "是否确认删除该消息？<br/>"
response.write" <a href='msgdel.asp?id="&id&"&amp;url="&urls&"&amp;sid="&sid&"&amp;TP=1&amp;saytk="&saytk&"'>删除</a><br/>"
if instr(urls,"@@0=")>0 then
urls=replace(urls,"@@o=","&amp;sid=")
urls=replace(urls,"@@","&amp;")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&amp;sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
else
urls=replace(urls,"@@","&amp;")
urls=replace(urls,"sidoo=","sid=")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&amp;sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
end if
response.write "<a href='"&urls&"'>取消</a>"
else
if instr(urls,"@@o=")>0 then
urls=replace(urls,"@@o=","&amp;sid=")
urls=replace(urls,"@@","&amp;")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&amp;sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
else
urls=replace(urls,"@@","&amp;")
urls=replace(urls,"sidoo=","sid=")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&amp;sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
end if
response.write "<card title=""成功删除""><p>"
  conn.Execute("update guest set sdel=1 Where book=0 and id=" & id & " and sid=" & myid)
response.write "成功删除消息！"
if instr(urls,"@@0=")>0 then
urls=replace(urls,"@@o=","&amp;sid=")
urls=replace(urls,"@@","&amp;")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&amp;sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
else
urls=replace(urls,"@@","&amp;")
urls=replace(urls,"sidoo=","sid=")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&amp;sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
end if
response.write "<br/><a href='"&urls&"'>返回上级</a>"
end if
conn.close
set conn=nothing
call head1()
%>