<%'============================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2008-3-22 13:28
' ADD:wap.nowtx.cn
' E-Mail: xivn@163.com QQ:531233814
'============================================================
%>
<%call head()%>
<%
'-------A登录信息
if myid=0 then
Response.write "请您先登陆..."& chr(13)
Response.write "
返回" & chr(13)
Response.write "
"
Response.end
end if
'==========得到URL
function ForUrl(str)
ForUrl = str
ForUrl = Replace(Replace(Replace(ForUrl,"-w-","?"),"-a-","&"),"-d-","=")
end function
dim sql,id,url,ids,cid
id=trim(request("id"))
url=trim(request("url"))
ids=trim(request("class"))
if ID = "" or IsNumeric(ID) = False then
Call Error("ID错误！")
end if
dim linkname,linkurl
set Rs=Server.CreateObject("ADODB.Recordset")
if instr(url,"article")>0 then
Sql="select title from [sms] Where ID="&ID
else
Sql="select name from [wjfile] Where ID="&ID
end if
Rs.open Sql,conn,1,1
If rs.eof Then
Call Error("不存在的记录！")
end if
if instr(url,"article")>0 then
linkname=rs("title")
cid=2
else
linkname=rs("name")
cid=3
end if
rs.close
set rs=nothing
linkurl=ForUrl(url)&"&sid=[sid]"
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [mysq] where urlsq='"&linkurl&"' and cid="&cid&" 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")=cid
rs("gxtime")=now()
rs.update
response.write"成功将该书签收藏
"
Else
response.write"该书签已经在您的收藏中了
"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if instr(url,"article")>0 then
response.write"返回上级"
else
response.write"返回上级"
end if
response.write"
[我的书签]
"
%>