<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/char.asp"-->
<%
	stats="您的收藏夹"
	call nav()
	call headline(1)
%>
<table border=0 cellpadding=6 cellspacing=1 width="<%=TableWidth%>" height=29 align=center bgcolor="<%=TableBackColor%>"><tr class=coolbg bgColor="<%=aTablebodyColor%>" align=center>
<td width=14% ><B><a href=usermanager.asp ><FONT COLOR=#000000>控制面板首页</font></a></B></td>
<td width=14% ><a href=mymodify.asp?name=<%=membername%> ><B><FONT COLOR=#000000>基本资料修改</font></B></a></td>
<td width=14% ><a href=modifypsw.asp?name=<%=membername%>> <B><FONT COLOR=#000000> 用户密码修改</font></B></a></td>
<td width=14% > <a href=modifyadd.asp?name=<%=membername%>> <B><FONT COLOR=#000000>修改联系资料</font></B></a></td>
<td width=14% bgColor="<%=TablebodyColor%>"><a href=favlist.asp><B><FONT COLOR=#000000>用户收藏管理</font></B></a></td>
<td width=14% ><a href=usersms1.asp><B><FONT COLOR=#000000>用户短信服务</font></B></a></td>
<td width=14% ><a href=friendlist1.asp><B><FONT COLOR=#000000>编辑好友列表</font></B></a></B>
</td></tr></table><br>
<%

%>
	        <table cellpadding=0 cellspacing=0 border=0 width=<%=TableWidth%> bgcolor="<%=tablebackcolor%>" align=center>
	                <tr>
	                    <td>
	                    <table cellpadding=3 cellspacing=1 border=0 width=100%>
<%
	set rs=server.createobject("adodb.recordset")
	if membername="" then
		Errmsg=Errmsg+"<br>"+"<li>您还没有<a href=login.asp>登陆论坛</a>，不能查看收藏。如果您还没有<a href=reg.asp>注册</a>，请先<a href=reg.asp>注册</a>！"
		Founderr=true
	end if
	if Founderr then
		call error()
	else
		if request("action")="delet" then
			call delete()
		else
			call favlist()
		end if
		if Founderr then call error()
	end if
%>
				</table>
			</td></tr>
</table>
<%
	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+"<br>"+"<li>您的收藏夹还没有收藏，您可以收藏论坛指定贴子，当收藏中有数据后，本信息将自动删除！"
		Founderr=true
	else
%>
	                        <tr class=coolbg>
	                        <td bgcolor="<%=tabletitlecolor%>" align=center valign=top colspan="3"><b><font color=<%=TableFontColor%>>>> 您的收藏夹 <<</font></b></td></tr>
  <tr bgcolor="<%=tablebodycolor%>">
    <td width="70%"><font color="<%=TableContentColor%>">标题</font></td>
    <td width="20%"><font color="<%=TableContentColor%>">时间</font></td>
    <td width="10%"><font color="<%=TableContentColor%>">操作</font></td>
  </tr>
<%
	do while not rs.eof
%>
  <tr bgcolor="<%=tablebodycolor%>">
    <td width="70%"><a href="<%=rs("url")%>"><%=htmlencode(rs("topic"))%></a></td>
    <td width="20%"><font color="<%=TableContentColor%>"><%=rs("addtime")%></font></td>
    <td width="10%"><a href="favlist.asp?action=delet&id=<%=rs("id")%>"><img src="pic/a_delete.gif" border=0></a></td>
  </tr>
<%
	rs.movenext
	loop
	end if
	rs.close
	end sub

	sub error()
%>
	                        <tr>
	                        <td bgcolor="<%=tabletitlecolor%>" align=center valign=top><b><font color=<%=TableFontColor%>>> 错误信息 <<</font></b></td></tr>
	                        <tr>
	                            <td bgcolor="<%=tablebodycolor%>" valign=top style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><br><font color="<%=TableContentColor%>">
	                        <p><blockquote><%=errmsg%>
</blockquote></p></font>
	                        </td>
	                        </tr>
<%
	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
%>
	                        <tr>
	                        <td bgcolor="<%=tabletitlecolor%>" align=center valign=top><b><font color=<%=TableFontColor%>>> 操作成功 <<</font></b></td></tr>
	                        <tr>
	                            <td bgcolor="<%=tablebodycolor%>" valign=top style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word"><br><font color="<%=TableContentColor%>">
	                        <p><blockquote>已删除您的收藏夹中相应纪录，<a href="javascript:history.go(-1)">返回收藏</a>。
</blockquote></p></font>
	                        </td>
	                        </tr>
<%
	end sub
	set rs=nothing	
	call endline()
%>
<!--#include file="footer.asp"-->




