<% 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.MoveNext loop RS.Close %>
    标 题 添加时间 操作
    "><%=rs("name")%><%=rs("addtime")%>">
    >> 添加新链接 <<
    名称: 链接地址: 
    <% 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 %>