<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%call Fortxtmsg dim id,TP,urls ID=request("id") if id="" or IsNumeric(id)=False then Call Error("

ID无效！") end if urls=request("url") if urls="" then urls="msgin.asp?sid="&sid&"" TP=request("TP") if TP="" then response.write "

" response.write "是否确认删除该消息？
" response.write" 删除
" if instr(urls,"@@0=")>0 then urls=replace(urls,"@@o=","&sid=") urls=replace(urls,"@@","&") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=@@sid=","sid=") else urls=replace(urls,"@@","&") urls=replace(urls,"o=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=@@sid=","sid=") end if response.write "取消" else if instr(urls,"@@o=")>0 then urls=replace(urls,"@@o=","&sid=") urls=replace(urls,"@@","&") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=@@sid=","sid=") else urls=replace(urls,"@@","&") urls=replace(urls,"o=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=@@sid=","sid=") end if response.write "

" 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=","&sid=") urls=replace(urls,"@@","&") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=@@sid=","sid=") else urls=replace(urls,"@@","&") urls=replace(urls,"o=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=&sid=","sid=") urls=replace(urls,"sid=@@sid=","sid=") end if response.write "
返回上级" end if conn.close set conn=nothing response.write "

" %>