by Stabx效果: 首頁 上十 上一 11 12 13 14 15 16 17 18 19 20 下一 下十 尾頁 轉到___ 11/20頁 963篇主文件: dateview.asp , 查詢參數 yearview=, 分頁參數 pageview= 包含文件: abbr.aspdateview.asp?yearview=2004&pageivew=1 ---/-------------------------------------------------------------------<%@LANGUAGE="VBSCR<!--#include file="include/abbr.asp" --><script language="javascript" type="text/Javascript"> <!--// 頁面跳轉腳本 function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script><% '查詢年份分頁 dateview.asp?yearview=2004&pageivew=1 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' subject : ASP 分頁操作, 改良版 by Stabx ' ' author : Stabx<shawl.qiu@Gmail.com> ' ' blog : http://blog.csdn.net/BTbtd / http://btbtd.exblog.jp/ ' ' blog name : Phoenix.GI - P.GI ' ' date : 2006-4-21 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' rsn.PageCount / 總頁數 ' pageview / 當前頁數Dim I '定義循環變量 Dim RPP 'RPP：指定每頁顯示的記錄數, Dim pageview '翻頁變量 I=1 '從 1 開始 RPP=50 '每頁顯示 50 條記錄 pageview=CInt(Request("pageview")) '讀取 URL 頁號Dim rsn '定義鏈接名 Set rsn = Server.CreateObject("ADODB.Recordset") '建立一個 rsn 數據庫查詢 rsn.ActiveConnection = MM_conn_STRING 'rsn 鏈接方式, 這是 DW 的鏈接字符串 rsn.Source = "select article.*, class.*, nclass.* from article, class, nclass where article.classid=class.classid and article.nclassid=nclass.nclassid and year(dateandtime)="&request.QueryString("yearview")&" order by dateandtime asc" ' rsn 查詢語句, SELECT 所有列 FROM 表 WHERE 條件 ORDER BY 條件 rsn.CursorType = 1 '游標屬性 rsn.CursorLocation = 2 '游標位置 rsn.LockType = 1 '定義數據庫查詢模式 rsn.Open() '打開數據庫鏈接rsn.PageSize=RPP '定義每頁顯示記錄數If pageview<=0 Then pageview=1 '假如 pageview 小于或等于0, 返回值1 If pageview>rsn.PageCount Then pageview=rsn.PageCount ' 假如 pageview 大于分頁總數, 返回分頁末頁值 rsn.AbsolutePage=pageview '定義當前頁碼
Sub ShowPageInfo(tPageCount,cPageNo) '定義子例程 ShowPageInfo, 顯示頁數和總頁 Response.Write cPageNo&"/"&tPageCount&"頁" '顯示當前頁和總頁數 End Sub
Sub ShowPageNavi(tPageCount,cPageNo) ' 定義子例程 ShowPageNavi, 顯示分頁號 If cPageNo<1 Then cPageNo=1 '假如頁數小于 1, 默認為 1; 當前頁, cPageNo = Current Page NO. If tPageCount<1 Then tPageCount=1 If cPageNo>tPageCount Then cPageNo=tPageCount Dim NaviLength NaviLength=10 ' 顯示數字鏈接數 Dim I,StartPage,EndPage ' 定義當前頁, 開始頁, 結束頁 StartPage=(cPageNo/NaviLength)*NaviLength+1 '為開始頁賦值
if pageview=1 then '判定是否首頁, 假如是首頁不添加鏈接,反之添加. Response.Write "<font color=""#CCCCCC"">首頁</font> " '顯示沒有添加鏈接熱點的"首頁" Else Response.Write "<a href="&dyv_&rqsyv_&dyvpv_&"1>首頁</a> " '首頁鏈接 End If
If (cPageNo Mod NaviLength)=0 Then StartPage=StartPage-NaviLength EndPage=StartPage+NaviLength-1 If EndPage>tPageCount Then EndPage=tPageCount If StartPage>1 Then '向后移動一分頁, 十頁為一分頁, 并且以 1, 11, 21... 為每頁的開始篇數 Response.Write "<a href="&dyv_&rqsyv_&dyvpv_&(cPageNo-(cPageNo mod 10)-NaviLength+1)&">"& Else Response.Write "<font color=""#CCCCCC"">"&previous10_&"</font> " End If If pageview <> 1 and pageview <>0 Then '后移一頁 Response.Write "<a href="&dyv_&rqsyv_&dyvpv_&(pageview-1)&">"&previous1_&"</a> " Else Response.Write "<font color=""#CCCCCC"">"&previous1_&"</font> " End If For I=StartPage To EndPage If I=cPageNo Then Response.Write "<b>"&I&"</b>" Else Response.Write "<a href="&dyv_&rqsyv_&dyvpv_& I & ">" & I & "</a>" End If If I<>tPageCount Then Response.Write " " Next If pageview <> rsn.PageCount and pageview <>0 Then '前移一頁 Response.Write " <a href="&dyv_&rqsyv_&dyvpv_&(pageview+1)&">"&next1_&"</a> " Else Response.Write "<font color=""#CCCCCC"">"&next1_&"</font> " End If If EndPage<tPageCount Then '向前移動一分頁, 十頁為一分頁, 并且以 1, 11, 21 為每頁的開始篇數 Response.Write " <a href="&dyv_&rqsyv_&dyvpv_&(cPageNo-(cPageNo mod 10)+NaviLength+1)&">"&next10_&"</a> " Else Response.Write " <font color=#CCCCCC>"&next10_&"</font> " End If if rsn.PageCount<>pageview then '判定是否尾頁 Response.Write "<a href="&dyv_&rqsyv_&dyvpv_&rsn.PageCount&">尾頁</a>" Else Response.Write "<font color=""#CCCCCC"">尾頁</font>" End If End Sub %> <div CLASS="center"> <form NAME="pageform" ID="pageform"> <% showPageNavi rsn.PageCount,pageview %> <select NAME="menu1" onChange="MM_jumpMenu('parent',this,0)"> <% for i=1 to rsn.PageCount %> <option VALUE="<%=dyv_&rqsyv_&dyvpv_&i%>" <% if pageview=i then%> selected <%end if%>> 第<%=i%>頁 </option> <%next%> </select> </form> <% showPageInfo rsn.PageCount,pageview %> <% Response.Write(rsn.RecordCount) %>篇<br /> </div> <% If rsn.EOF OR rsn.BOF Then Else For I=1 To rsn.PageCount %> <%=(pageview-1)*RPP+I%> <%=rsn("dateandtime")%> <a href="<%=a1_&rsn("article.classid")&a2_&rsn("article.nclassid")&a3_&rsn("articleid")%>"><%= rsn("title") %></a><p/> <% rsn.MoveNext If rsn.EOF OR rsn.BOF Then Exit For Next End If %> <div CLASS="center"> <form NAME="pageform" ID="pageform"> <% showPageNavi rsn.PageCount,pageview %> <select NAME="menu1" onChange="MM_jumpMenu('parent',this,0)"> <% for i=1 to rsn.PageCount %> <option VALUE="<%=dyv_&rqsyv_&dyvpv_&i%>" <% if pageview=i then%> selected <%end if%>> 第<%=i%>頁 </option> <%next%> </select> </form> </div> <% rsn.close set rsn=nothing %> ---/-------------------------------------------------------------------abbr.asp<% 'Site Infomation sitename_="綠色學院 Green Institute" '站點名字 homepageW_="首頁" siteurl_="http://127.0.0.1:83" '站點域名 home_="<a href="&siteurl_&">"&sitename_&"</a>" _fcksavedurl=""&siteurl_&">"&sitename_&"</a>"" '顯示站名并加上首頁鏈接 homepage_="<a href="&siteurl_&">"&homepageW_&"</a>" '顯示 "首頁" 并加站站點鏈接 sitepublic_="開站日期: 2006-7-1 " '顯示開站日期 siteadmin_="shawl.qiu" siteadminW_="站長" siteadminMail_="shawl.qiu@gmail.com" '站長電子郵件 contactSiteAdmin_=siteadminW_&":<a HREF=mailto:"&siteadminMail_&">"&siteadmin_&"</a>" _fcksavedurl="mailto:"&siteadminMail_&">"&siteadmin_&"</a>"" '顯示站長名字并加上電子郵件鏈接' Number Control n10_=10 ' 顯示文章標題長度 n11_=11 ' 顯示文章標題長度 n12_=12 ' 顯示文章標題長度 n15_=15 ' 顯示文章標題長度' Html Tag b_="<br/>" '調用換行符 p_="<p/>" sp2_=" " sp2a_=" -> "' article about author_="作者:" hot_=" 熱門" source_="來源:" newPost_="<div class='center'>最新發表</div>" previousA_="上篇" nextA_="下篇" previous10_="上十" next10_="下十" previous1_="上一" next1_="下一" nullPA_="沒有上篇" nullNA_="沒有下篇" view_="查看:" viewT_="次" pagelinkW_="頁面鏈接: "'General Word welcomeShort_="歡迎光臨" siteFoundtime_="開站日期: " localsite_="本站"' page index.asp pColumn_="父類" sColumn_="子類"' page class.asp c1_="class.asp?classid=" 'class 類一級鏈接 c2_="&nclassid=" 'class 類二級鏈接' page article.asp a1_="article.asp?classid=" 'article 頁一級鏈接 a2_="&nclassid=" 'article 頁二級鏈接 a3_="&articleid=" 'article 頁三級鏈接 text_="正文:"' page dateview.asp ddv_="dateview.asp?dayview=" dyv_="dateview.asp?yearview=" dyvpv_="&pageview=" dmv_="dateview.asp?monthview=" dwkv_="dateview.asp?weekview=" dtv_="dateview.asp?todayview=" show_="顯示" today_="今天" showAll_="所有文章" showByW_="所屬星期"' error info errorCidNidAid_="<meta HTTP-EQUIV='refresh' CONTENT='3;URL=index.asp'><meta http-equiv='Content-Type' content='text/html; charset=utf-8' /><center>頁面錯誤, 三秒后返回主頁</center>" errorNothing_="<center>沒有內容</center>" errorNJH_="<meta HTTP-EQUIV='refresh' CONTENT='3;URL=index.asp'><meta http-equiv='Content-Type' content='text/html; charset=utf-8' /><center>沒有內容, 三秒后返回主頁</center>" ' query string rqsyv_=request.QueryString("yearview")' url pagelink1_=siteurl_&request.ServerVariables("URL")&"?"&request.ServerVariables("QUERY_STRING") pagelink_=pagelinkW_&"<a href="&pagelink1_&">"&pagelink1_&"</a>" %>---/-------------------------------------------------------------------/****************************************************************/ * * subject : * * author : Stabx<shawl.qiu@gmail.com> * * blog : http://btbtd.exblog.jp/ / http://my.Opera.com/btbtd/ * * blog name : Phoenix.GI - P.GI * * date : 2006-4-17 * /****************************************************************/
