favorites.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" --><%

if Request.Cookies("UserName")=empty then error("<li>您还未<a href=Login.asp>登录</a>社区")


id=int(Request("id"))

url=HTMLEncode(Request("url"))
name=HTMLEncode(Request("name"))

top


select case Request("menu")
case "add"

If not Conn.Execute("Select id From [BBSXP_Favorites] where UserName='"&Request.Cookies("UserName")&"' and name='"&name&"' and url='"&url&"'" ).eof Then error("<li>收藏夹中已经存在此资料")
Conn.execute("insert into [BBSXP_Favorites](UserName,name,url)values('"&Request.Cookies("UserName")&"','"&name&"','"&url&"')")
Message="<li>添加成功<li><a href="&Request.ServerVariables("http_referer")&">"&Request.ServerVariables("http_referer")&"</a><li><a href=Default.asp>返回社区首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url="&Request.ServerVariables("http_referer")&">")


case "Delweb"
Conn.execute("Delete from [BBSXP_Favorites] where UserName='"&Request.Cookies("UserName")&"' and id="&id&"")
Message="<li>删除成功<li><a href="&Request.ServerVariables("http_referer")&">"&Request.ServerVariables("http_referer")&"</a><li><a href=Default.asp>返回社区首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url="&Request.ServerVariables("http_referer")&">")


case "Del"
Conn.execute("Delete from [BBSXP_Favorites] where UserName='"&Request.Cookies("UserName")&"' and url='"&url&"' and name='"&name&"'")
Message="<li>删除成功<li><a href="&Request.ServerVariables("http_referer")&">"&Request.ServerVariables("http_referer")&"</a><li><a href=Default.asp>返回社区首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url="&Request.ServerVariables("http_referer")&">")


end select

%>
<table border=0 width=100% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 
收藏夹</td>
</tr>
</table><br>


<%

PageSetup=10 '设定每页的显示数量

select case Request("menu")
case ""
%>

<table width="100%" border=0 align=center cellPadding=3 cellSpacing=1 class=a2>
<tr class=a1><td width="69%" align="center" bgcolor="FFFFFF" height="25"><b>标 题</b></td>
	<td width="20%" align="center" bgcolor="FFFFFF" height="25">
		<b>添加时间</b></td>
	<td width="11%" align="center" bgcolor="FFFFFF" height="25"><b>操作</b></td></tr><%

sql="select * from [BBSXP_Favorites] where UserName='"&Request.Cookies("UserName")&"' and url<>'Topic' and url<>'forum' order by id Desc"
Rs.Open sql,Conn,1

Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数

i=0 
Do While Not Rs.EOF and i<PageSetup 
i=i+1 

%> <tr><td bgcolor="FFFFFF"><img src=images/ie.gif> <a target=_blank href="<%=Rs("url")%>"><%=Rs("name")%></a></td><td align=center bgcolor="FFFFFF"><%=Rs("DateCreated")%><td align=center bgcolor="FFFFFF"><a href="?menu=Delweb&id=<%=Rs("id")%>"><img src=images/Del.gif border=0></a></td></tr><%          
Rs.MoveNext
loop
Rs.Close      
%> <tr><td colSpan="3"  class=a1 align="center" height="25"><b>&gt;&gt; 添加新链接 &lt;&lt;</b></td></tr><tr><td align="center" colspan="3" bgcolor="FFFFFF"><form method=Post name=form action=Favorites.asp><input type=hidden name=menu value=add>
<b>名称：</b><INPUT size=20 name=name>　<b>链接地址：</b><INPUT size=40 name=url value="http://">　<input type=submit value="添 加"> </td></form></tr></table>


<%

case "Topic"
%>
<table cellspacing="1" cellpadding="5" width="100%" align="center" border="0" class="a2">
	<tr height="25" id="TableTitleLink" class="a1">
			<td colSpan=2 align="center" width="60%">主题</td>
			<td align="center" width="20%">最后更新</td>
			<td align="center" width="10%">回复</td>
			<td align="center" width="10%">点击</td>
		</tr>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from [BBSXP_Favorites] where UserName='"&Request.Cookies("UserName")&"' and url='Topic' order by id Desc"
Rs1.Open sql,Conn,1
PageSetup=SiteSettings("ThreadsPerPage") '设定每页的显示数量
Rs1.Pagesize=PageSetup
TotalPage=Rs1.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs1.absolutePage=PageCount '跳转到指定页数


i=0
Do While Not RS1.EOF and i<pagesetup
i=i+1


if not isnumeric(Rs1("name")) then Conn.execute("Delete from [BBSXP_Favorites] where id="&Rs1("id")&"")

sql="Select * From [BBSXP_Threads] where id="&Rs1("name")&""
Set Rs=Conn.Execute(sql)
if Rs.eof then Conn.execute("Delete from [BBSXP_Favorites] where id="&Rs1("id")&"")
ShowThread()
Set Rs = Nothing


Rs1.MoveNext
loop
Rs1.Close

%>
</table>

<%


case "forum"

%>
<table width="100%" align="center" border="0" class="a2" cellspacing=1>
<%
sql="select * from [BBSXP_Favorites] where UserName='"&Request.Cookies("UserName")&"' and url='forum' order by id Desc"
Rs.Open sql,Conn,1
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数


i=0
Do While Not Rs.EOF and i<PageSetup
i=i+1

if not isnumeric(Rs("name")) then Conn.execute("Delete from [BBSXP_Favorites] where id="&Rs("id")&"")

sql="Select * From [BBSXP_Forums] where id="&Rs("name")&""
Set Rs1=Conn.Execute(sql)
if Rs1.eof then Conn.execute("Delete from [BBSXP_Favorites] where id="&Rs("id")&"")
ShowForum()
Set Rs1 = Nothing
Rs.MoveNext
loop
Rs.Close
%>
</table>
<%
end select
%>
<table border=0 width=100% cellspacing=0><tr><td>
<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"menu=<%=Request("menu")%>")</script>
</tr></td></table>
<%
htmlend
%>