<%@ LANGUAGE="VBSCRIPT" %>
<%
stats="您的收藏夹"
call nav()
call headline(1)
%>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
if membername="" then
Errmsg=Errmsg+"
"+"您还没有登陆论坛，不能查看收藏。如果您还没有注册，请先注册！"
Founderr=true
end if
if Founderr then
call error()
else
if request("action")="delete" then
call delete()
else
call favlist()
end if
if Founderr then call error()
end if
%>
|
<%
sub favlist()
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
else
%>
| >>> 您的收藏夹 << |
| 标题 |
时间 |
操作 |
<%
do while not rs.eof
%>
| "><%=htmlencode(rs("topic"))%> |
<%=rs("addtime")%> |
"> |
<%
rs.movenext
loop
end if
rs.close
end sub
sub error()
%>
| >> 错误信息 << |
<%=errmsg%>
|
<%
end sub
sub delete()
sql="delete from bookmark where username='"&membername&"' and id="&cstr(request("id"))
conn.execute sql
%>
| >> 操作成功 << |
已删除您的收藏夹中相应纪录，返回收藏。
|
<%
end sub
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "")
fString = Replace(fString, CHR(10), "
")
HTMLEncode = fString
end function
set rs=nothing
call endline()
%>