<% Dim Rs,SQL,i,Action Dim maxperpage,CurrentPage,totalnumber,TotalPageNum Call InnerLocation("我的收藏夹") If CInt(GroupSetting(3)) = 0 Then ErrMsg = ErrMsg + "
  • 对不起!您没有使用收藏夹的权限,如有什么问题请联系管理员。
  • " Founderr = True End If Action = Newasp.CheckStr(LCase(Trim(Request("action")))) Select Case Trim(Action) Case "save","添加" Call SaveFavorite Case "add" Call AddFavorite Case "del" Call DelFavorite Case "清空收藏夹" Call DelAllFavorite Case Else Call showmain End Select If Founderr = True Then Call Returnerr(ErrMsg) End If Sub showmain() If Founderr = True Then Exit Sub maxperpage = 20 '###每页显示数 If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then Response.Write ("错误的系统参数!请输入整数") Response.End End If If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then CurrentPage = CInt(Request("page")) Else CurrentPage = 1 End If If CInt(CurrentPage) = 0 Then CurrentPage = 1 %> <% TotalNumber = Newasp.Execute("Select Count(FavoriteID) from NC_Favorite where username='"& Newasp.CheckStr(Newasp.membername) &"'")(0) TotalPageNum = CInt(TotalNumber / maxperpage) '得到总页数 If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1 If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "select * from [NC_Favorite] where username='"& MemberName &"' order by FavoriteID desc" Rs.Open SQL, Conn, 1, 1 Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1 If Not (Rs.bof And Rs.EOF) Then If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage i = 0 Do While Not Rs.EOF And i < CInt(maxperpage) %> <% Rs.movenext i = i + 1 If i >= maxperpage Then Exit Do Loop End If Rs.Close:Set Rs = Nothing %>
    >> 我的收藏夹 <<
    标题 收藏时间 操作
    " target=_blank><%=Server.HTMLEncode(Rs("fondtopic"))%> <%=Rs("addTime")%> " onclick="showClick('删除后将不能恢复,您确定要删除吗?')">删除
    <%Response.Write ShowPages (CurrentPage,TotalPageNum,TotalNumber,maxperpage,"")%>
    >> 添加收藏 <<
    标题: URL:
    注意:<%If CLng(GroupSetting(5)) <> 0 Then%>你最多只能收藏 <%=GroupSetting(5)%> 条信息,<%End If%>请定时删除无用的信息。
    <% End Sub '================================================ ' 过程名:DelFavorite ' 作 用:删除收藏信息 '================================================ Sub DelFavorite() If Newasp.CheckPost=False Then ErrMsg = Postmsg Founderr = True Exit Sub End If If Not IsNumeric(Request("favid")) Then ErrMsg = ErrMsg + "
  • 对不起!您没有使用收藏夹的权限,如有什么问题请联系管理员。
  • " Founderr = True Exit Sub End If Newasp.Execute("Delete From NC_Favorite where username='"& Membername &"' And FavoriteID="& CLng(Request("favid"))) Call Returnsuc("
  • 记录删除成功!
  • ") End Sub '================================================ ' 过程名:DelAllFavorite ' 作 用:清空用户收藏夹 '================================================ Sub DelAllFavorite() If Newasp.CheckPost=False Then ErrMsg = Postmsg Founderr = True Exit Sub End If Newasp.Execute("Delete From NC_Favorite where username='"& Membername &"'") Call Returnsuc("
  • 收藏夹清空完成!
  • ") End Sub '================================================ ' 过程名:SaveFavorite ' 作 用:保存收藏 '================================================ Sub SaveFavorite() Call PreventRefresh If Trim(Request.Form("fondtopic")) = "" Then ErrMsg = ErrMsg + "
  • 收藏的标题不能为空!
  • " Founderr = True End If If Trim(Request.Form("fondurl")) = "" Then ErrMsg = ErrMsg + "
  • 收藏的URL不能为空!
  • " Founderr = True End If If CLng(GroupSetting(5)) <> 0 Then TotalNumber = Newasp.Execute("Select Count(FavoriteID) from NC_Favorite where username='"& Membername &"'")(0) If CLng(TotalNumber) >= CLng(GroupSetting(5)) Then ErrMsg = ErrMsg + "
  • 对不起!你最多只能收藏" & GroupSetting(5) & "条信息。
  • " Founderr = True End If End If If Founderr = True Then Exit Sub Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "select * from [NC_Favorite] where (FavoriteID is null)" Rs.Open SQL, Conn, 1, 3 Rs.Addnew Rs("userid") = memberid Rs("username") = Membername Rs("fondtopic") = Left(Newasp.ChkFormStr(Request.Form("fondtopic")),80) Rs("fondurl") = Left(Newasp.ChkFormStr(Request.Form("fondurl")),220) Rs("addTime") = Now() Rs.update Rs.Close:Set Rs = Nothing Call Returnsuc("
  • 恭喜您!添加收藏成功。
  • ") End Sub '================================================ ' 过程名:AddFavorite ' 作 用:添加收藏 '================================================ Sub AddFavorite() Dim fondtopic,fondurl If Trim(Request("topic")) = "" Then ErrMsg = ErrMsg + "
  • 收藏的标题不能为空!
  • " Founderr = True Else fondtopic = Trim(Request("topic")) End If If CLng(GroupSetting(5)) <> 0 Then TotalNumber = Newasp.Execute("Select Count(FavoriteID) from NC_Favorite where username='"& Newasp.CheckStr(Newasp.membername) &"'")(0) If CLng(TotalNumber) >= CLng(GroupSetting(5)) Then ErrMsg = ErrMsg + "
  • 对不起!你最多只能收藏" & GroupSetting(5) & "条信息。
  • " Founderr = True End If End If If Founderr = True Then Exit Sub Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "select * from [NC_Favorite] where (FavoriteID is null)" Rs.Open SQL, Conn, 1, 3 Rs.Addnew Rs("userid") = memberid Rs("username") = Membername Rs("fondtopic") = Left(Newasp.ChkFormStr(Trim(fondtopic)),80) Rs("fondurl") = Left(Request.ServerVariables("HTTP_REFERER"),220) Rs("addTime") = Now() Rs.update Rs.Close:Set Rs = Nothing Call Returnsuc("
  • 恭喜您!添加收藏成功。
  • ") End Sub %>