gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\favlist.asp
<!--#include file="conn.asp"--> <!-- #include file="inc/const.asp" --> <% Mybbs.LoadTemplates("usermanager") Mybbs.Stats=Mybbs.MemberName&template.Strings(6) Mybbs.Nav() Mybbs.Head_var 0,0,template.Strings(0),"usermanager.asp" If Mybbs.userid=0 Then Mybbs.AddErrCode(6) Mybbs.Showerr() End If Dim ErrCodes,Rs,Sql,TempLateStr Response.Write Template.Html(0) TempLateStr=Split(template.html(17),"||") TempLateStr(1)=Replace(TempLateStr(1),"{$fav_del}",template.pic(13)) If request("action")="delet" Then call delete() Else Response.Write TempLateStr(0) Response.Write TempLateStr(1) call favlist() End If If ErrCodes<>"" Then Response.redirect "showerr.asp?ErrCodes="&ErrCodes&"&action=OtherErr" Mybbs.Showerr() Mybbs.ActiveOnline() Mybbs.Footer() Sub favlist() Dim currentPage,page_count,totalrec,Pcount,PageListNum,i PageListNum=Cint(Mybbs.Forum_Setting(11)) currentPage=Request("page") If currentpage="" or not IsNumeric(currentpage) Then currentpage=1 Else currentpage=clng(currentpage) End If set Rs=server.createobject("adodb.recordset") Sql="Select * From Dv_bookmark Where UserName='"&Mybbs.membername&"' Order By id Desc" Mybbs.SqlQueryNum=Mybbs.SqlQueryNum+1 If Not IsObject(Conn) Then ConnectionDatabase Rs.Open SQL,Conn,1,1 If Rs.eof And Rs.bof Then ErrCodes=ErrCodes+"<li>"+template.Strings(50) Exit Sub Else Rs.PageSize = PageListNum Rs.AbsolutePage=currentpage page_count=0 totalrec=Rs.recordcount Do While Not Rs.eof And (Not page_count = Rs.PageSize) Response.Write "<script>dvbbs_favlist_loop('"&rs("url")&"','"&EncodeJS(rs("topic"))&"','"&rs("addtime")&"',"&rs("id")&")</script>" page_count = page_count + 1 Rs.movenext Loop End If Rs.close:Set rs=nothing If totalrec mod PageListNum=0 Then Pcount= totalrec \ PageListNum Else Pcount= totalrec \ PageListNum+1 End If If page_count=0 Then CurrentPage=0 Response.Write ShowPage(CurrentPage,Pcount,totalrec,PageListNum) Response.Write TempLateStr(2) End Sub Sub delete() If Mybbs.chkpost=False Then Mybbs.AddErrCode(16) Exit Sub End If If IsNumeric(request("id")) Then sql="delete from Dv_bookmark where username='"&Mybbs.membername&"' and id="&cstr(request("id")) Mybbs.execute sql End If Mybbs.Dvbbs_Suc("<li>"+template.Strings(46)) Session("ispost")="0" End Sub '分页输出 Function ShowPage(CurrentPage,Pcount,totalrec,PageNum) Dim SearchStr SearchStr=Request("action") ShowPage=template.html(16) ShowPage=Replace(ShowPage,"{$colSpan}",3) ShowPage=Replace(ShowPage,"{$CurrentPage}",CurrentPage) ShowPage=Replace(ShowPage,"{$Pcount}",Pcount) ShowPage=Replace(ShowPage,"{$PageNum}",PageNum) ShowPage=Replace(ShowPage,"{$totalrec}",totalrec) ShowPage=Replace(ShowPage,"{$SearchStr}",SearchStr) ShowPage=Replace(ShowPage,"{$redcolor}",Mybbs.mainsetting(1)) End Function Function EncodeJS(str) EncodeJS = Replace(Replace(Replace(Replace(str,"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"") End Function %>