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

<% call head()
dim rs,sql,id
id=request.Querystring("id")
Set Rs=server.createobject("adodb.recordset")
Sql = "select * from [mysq] Where id="&id&" and ids="&myid
Rs.open Sql,conn,2,3
if rs.eof then
  Call Error("<card id=""twapp"" title=""错误""><p>不存在的记录！")
end if
          rs.delete() 
               rs.update() 
                 dellink 

  rs.close
  set rs=nothing

conn.close
set conn=Nothing%>
<%sub dellink()
Call cardz("删除收藏成功","mybook.asp?sid="&sid&"&amp;saytk="&saytk&"")%>删除收藏成功!正在返回...
<%Call headsay()
Response.End%><%End Sub%>