ASP 分頁操作改良版

2019-11-17 04:48:04

字體：大中小

供稿：網(wǎng)友

by Stabx效果:
首頁上十上一 11 12 13 14 15 16 17 18 19 20 下一下十尾頁轉(zhuǎn)到___
11/20頁 963篇主文件: dateview.asp , 查詢參數(shù) yearview=, 分頁參數(shù) pageview=
包含文件: abbr.aspdateview.asp?yearview=2004&pageivew=1
---/-------------------------------------------------------------------<%@LANGUAGE="VBSCR<script language="javascript" type="text/Javascript">

</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 / 總頁數(shù)
' pageview / 當(dāng)前頁數(shù)Dim I '定義循環(huán)變量
Dim RPP 'RPP：指定每頁顯示的記錄數(shù),
Dim pageview '翻頁變量
I=1 '從 1 開始
RPP=50 '每頁顯示 50 條記錄
pageview=CInt(Request("pageview")) '讀取 URL 頁號Dim rsn '定義鏈接名
Set rsn = Server.CreateObject("ADODB.Recordset") '建立一個 rsn 數(shù)據(jù)庫查詢
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 '游標(biāo)屬性
rsn.CursorLocation = 2 '游標(biāo)位置
rsn.LockType = 1 '定義數(shù)據(jù)庫查詢模式
rsn.Open() '打開數(shù)據(jù)庫鏈接rsn.PageSize=RPP '定義每頁顯示記錄數(shù)If pageview<=0 Then pageview=1 '假如 pageview 小于或等于0, 返回值1
If pageview>rsn.PageCount Then pageview=rsn.PageCount ' 假如 pageview 大于分頁總數(shù), 返回分頁末頁值
rsn.AbsolutePage=pageview '定義當(dāng)前頁碼

Sub ShowPageInfo(tPageCount,cPageNo) '定義子例程 ShowPageInfo, 顯示頁數(shù)和總頁
  Response.Write cPageNo&"/"&tPageCount&"頁" '顯示當(dāng)前頁和總頁數(shù)
End Sub

Sub ShowPageNavi(tPageCount,cPageNo)   ' 定義子例程 ShowPageNavi, 顯示分頁號
  If cPageNo<1 Then cPageNo=1 '假如頁數(shù)小于 1, 默認(rèn)為 1; 當(dāng)前頁, cPageNo = Current Page NO.
  If tPageCount<1 Then tPageCount=1
  If cPageNo>tPageCount Then cPageNo=tPageCount
   Dim NaviLength
   NaviLength=10 ' 顯示數(shù)字鏈接數(shù)
   Dim I,StartPage,EndPage ' 定義當(dāng)前頁, 開始頁, 結(jié)束頁
   StartPage=(cPageNo/NaviLength)*NaviLength+1 '為開始頁賦值

  if pageview=1 then '判定是否首頁, 假如是首頁不添加鏈接,反之添加.
   Response.Write "<font color=""#CCCCCC"">首頁</font> " '顯示沒有添加鏈接熱點(diǎn)的"首頁"
  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... 為每頁的開始篇數(shù)
   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 為每頁的開始篇數(shù)
   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_="綠色學(xué)院 Green Institute" '站點(diǎn)名字
homepageW_="首頁"
siteurl_="http://127.0.0.1:83" '站點(diǎn)域名
home_="<a href="&siteurl_&">"&sitename_&"</a>" _fcksavedurl=""&siteurl_&">"&sitename_&"</a>"" '顯示站名并加上首頁鏈接
homepage_="<a href="&siteurl_&">"&homepageW_&"</a>" '顯示 "首頁" 并加站站點(diǎn)鏈接
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 ' 顯示文章標(biāo)題長度
n11_=11 ' 顯示文章標(biāo)題長度
n12_=12 ' 顯示文章標(biāo)題長度
n15_=15 ' 顯示文章標(biāo)題長度' Html Tag
b_="<br/>" '調(diào)用換行符
p_="<p/>"
sp2_="  "
sp2a_="  -> "' article about
author_="作者:"
hot_=" 熱門"
source_="來源:"
newPost_="<div class='center'>最新發(fā)表</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>沒有內(nèi)容</center>"
errorNJH_="<meta HTTP-EQUIV='refresh' CONTENT='3;URL=index.asp'><meta http-equiv='Content-Type' content='text/html; charset=utf-8' /><center>沒有內(nèi)容, 三秒后返回主頁</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
*
/****************************************************************/

上一篇：如何建立Web服務(wù)

下一篇：Yahoo! UI Libraries Target Cross-browser Web Development Woes