<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <% 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("

不存在的记录！") end if rs.delete() rs.update() dellink rs.close set rs=nothing conn.close set conn=Nothing%> <%sub dellink()%>

删除收藏成功!正在返回...

<%Response.End%><%End Sub%>