<!-- #include file="../conn.asp" -->
<%Call Head()
Call saycardd("删除留言")%>

<%dim id,p,TP
TP=request("TP")
id=request.QueryString("id")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1
if id="" or IsNumeric(id)=False then
  Call Error("ID无效！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [usbook] where id="&id,conn,1,2
if rs.eof then
  Call Error("留言不存在！")
  end if
if TP<>"" then
call error ("你确定删除吗？删除后为可以恢复！<br/>[<a href=""readdel.asp?id="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">确定删除</a>]<br/>[<a href=""myread.asp?ids="&myid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">取消操作</a>]<br/>-------<br/>[<a href=""show.asp?ids="&myid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">我的空间</a>]")
end if



rs.delete
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"删除成功！" 
%>
<br/>----------<br/>
<a href="show.asp?sid=<%=sid%>">[我的空间]</a><br/>
<%Call headsay()%> 