%
if Request.Cookies("username")=empty then error("
您还未登录社区")
id=int(Request("id"))
url=HTMLEncode(Request("url"))
name=HTMLEncode(Request("name"))
select case Request("menu")
case "add"
If not conn.Execute("Select id From [favorites] where username='"&Request.Cookies("username")&"' and name='"&name&"' and url='"&url&"'" ).eof Then error("收藏夹中已经存在此资料")
conn.execute("insert into favorites(username,name,url)values('"&Request.Cookies("username")&"','"&name&"','"&url&"')")
message="添加成功"&Request.ServerVariables("http_referer")&"返回社区首页"
succeed(""&message&"")
case "delweb"
conn.execute("delete from [favorites] where username='"&Request.Cookies("username")&"' and id="&id&"")
message="删除成功"&Request.ServerVariables("http_referer")&"返回社区首页"
succeed(""&message&"")
case "del"
conn.execute("delete from [favorites] where username='"&Request.Cookies("username")&"' and url='"&url&"' and name="&name&"")
message="删除成功"&Request.ServerVariables("http_referer")&"返回社区首页"
succeed(""&message&"")
end select
top
%>
<%ClubTree%> →
收藏夹 |
<%
pagesetup=10 '设定每页的显示数量
select case Request("menu")
case ""
%>
标 题 |
添加时间 |
操作 |
<%
sql="select * from 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("ToPage"))
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 "><%=rs("name")%> | <%=rs("addtime")%> | "> |
<%
RS.MoveNext
loop
RS.Close
%> >> 添加新链接 << |
|
<%
case "topic"
%>
|
|
主题 |
作者 |
回复 |
点击 |
最后更新 |
<%
sql="select * from favorites where username='"&Request.Cookies("username")&"' and url='topic' order by id Desc"
rs.Open sql,Conn,1
rs.pagesize=pagesetup
TotalPage=rs.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
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 inow() then newtopic=""
%>
<%
Set Rs1 = Nothing
RS.MoveNext
loop
RS.Close
%>
<%
case "forum"
%>
<%
sql="select * from 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("ToPage"))
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
<%
Set Rs1 = Nothing
RS.MoveNext
loop
RS.Close
%>
<%
end select
%>
Page:[
]
<%
htmlend
%>