<% dim sql,tid tid=trim(request("tid")) if TID = "" or IsNumeric(TID) = False then Call Error("ID错误！") end if dim linkname,linkurl set Rs=Server.CreateObject("ADODB.Recordset") Sql="select id from [sell] Where ID="&tID Rs.open Sql,conn,1,1 If rs.eof Then Call Error("不存在的记录！") end if rs.close set rs=nothing linkurl=ubb(tid) set rs=Server.CreateObject("ADODB.Recordset") sql="select * from [mysq] where urlsq='"&linkurl&"' and cid=1 and ids="&myid rs.open sql,conn,1,2 if rs.eof then rs.addnew rs("title")=linkname rs("urlsq")=linkurl rs("ids")=myid rs("cid")=1 rs("gxtime")=now() rs.update response.write"成功将该书签收藏
" Else response.write"该书签已经在您的收藏中了
" end if rs.close set rs=nothing conn.close set conn=nothing response.write"返回上级" response.write"
[我的书签]
" %>