%
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)
%>
" target=_blank><%=Server.HTMLEncode(Rs("fondtopic"))%> |
<%=Rs("addTime")%> |
" onclick="showClick('删除后将不能恢复,您确定要删除吗?')"> |
<%
Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
End If
Rs.Close:Set Rs = Nothing
%>
<%Response.Write ShowPages (CurrentPage,TotalPageNum,TotalNumber,maxperpage,"")%> |
>> 添加收藏 << |
<%
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
%>