<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->


<!--#INCLUDE file="newguest.asp"-->
<%call head()

saycarda("清空收藏")
dim TP
TP=request("TP")
if TP<>"" then
  conn.Execute("delete from [mysq] Where ids="&myid)
  response.write "成功清空收藏夹<br/>"
  response.write "<a href='mybook.asp?saytk="&saytk&"&amp;sid="&sid&"'>[我的书签]</a><br/>"
else
  response.write "是否清空收藏夹？<br/>"
  response.write "<a href='bookalldel.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;TP=1'>确定</a><br/>"
  response.write "<a href='mybook.asp?saytk="&saytk&"&amp;sid="&sid&"'>取消</a><br/>"
end if
conn.close
set conn=Nothing
Call headsay()%>
