<%'============================================================
' 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 Fortxtmsg
dim Action
dim ID,urls
ID = trim(Request.QueryString("ID"))
urls = trim(Request.QueryString("url"))
if urls="" then urls="msgfv.asp?sid="&sid&""
if ID = "" or IsNumeric(ID) = False then
Call Error("ID无效！")
end if
dim acok
acok = trim(Request.QueryString("acok"))
Action=Request.QueryString("Action")
IF Action="del" Then
call msgfvdel
else
call msgfvget
end if
sub msgfvget
response.write ""
if acok <> "ok" then
conn.close
set conn=Nothing
response.write "确定收藏？"
response.write "
是的"
response.write "
取消"
response.write "
"
response.end
end if
'限50条
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open "select ID from Guest where sid="&myid&" and book = 1",conn,1,1
if rs.RecordCount >= 50 then
rs.close
set rs=Nothing
conn.close
set conn=Nothing
response.write "
最多只能收藏50条留言！"
response.write "
返回"
response.write "
"
response.end
end if
rs.close
rs.Open "select book from Guest where sid="&myid&" and ID="&ID,conn,1,2
if not rs.eof then
rs("book") = 1
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=Nothing
urls=replace(urls,"@@","&")
urls=replace(urls,"o=","sid=")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
response.write "收藏成功！"&chr(13)
response.write "
返回上级"
response.write "
"
end sub
Sub msgfvdel
response.write ""
if acok <> "ok" then
conn.close
set conn=Nothing
response.write "确定删除这个收藏？"
response.write "
是的"
response.write "
取消"
response.write "
"
response.end
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open "select book from Guest where sid="&myid&" and ID="&ID,conn,1,2
if not rs.eof then
rs("book") = 0
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=Nothing
urls=replace(urls,"@@","&")
urls=replace(urls,"o=","sid=")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=&sid=","sid=")
urls=replace(urls,"sid=@@sid=","sid=")
response.write "删除收藏成功！"&chr(13)
response.write "
返回上级"
response.write "
"
end sub
%>