<%
'=========================================================
' File: favlist.asp
' Version:5.0
' Date: 2002-9-11
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2002 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: info@aspsky.net,eway@aspsky.net
'=========================================================
stats="您的收藏夹"
if not founduser then
Errmsg=Errmsg+" "+"
您还没有登陆论坛，不能查看收藏。如果您还没有注册，请先注册！"
Founderr=true
end if
call nav()
if Founderr then
call head_var(2,0,"","")
call dvbbs_error()
else
call head_var(0,0,membername & "的控制面板","usermanager.asp")
%>
<%
if request("action")="delet" then
call delete()
else
call favlist()
end if
if founderr then call dvbbs_error()
end if
call activeonline()
call footer()
sub favlist()
set rs=server.createobject("adodb.recordset")
sql="select * from bookmark where username='"&membername&"' order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Errmsg=Errmsg+" "+"
您的收藏夹还没有收藏，您可以收藏论坛指定贴子，当收藏中有数据后，本信息将自动删除！"
founderr=true
exit sub
else
%>
<%
end if
rs.close
set rs=nothing
end sub
sub delete()
if isInteger(request("id")) then
sql="delete from bookmark where username='"&membername&"' and id="&cstr(request("id"))
conn.execute sql
end if
sucmsg="
