ASP 分页技巧 BY Stabx

2006-4-19

效果

首页上十上一 1 2 3 4 5 6 7 8 9 10 下一下十尾页转到___

页数:1/25页篇数:125

主文件 nclass.asp

包含文件 top.asp || bottom.asp || abbrword.asp || conn.asp

内容

---／-----------------------------------------------------------

nclass.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

'subject : ASP 分页技巧

'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-19

' 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 '这是 DW 的链接字符串

' rsn 链接方式

rsn.Source = "SELECT * FROM article WHERE classid="&request.QueryString("classid")&" and nclassid="&request.QueryString("nclassid")&" ORDER BY articleid DESC"

' rsn 查询语句, SELECT 所有列 FROM 表 WHERE 条件 ORDER BY 条件

rsn.CursorType = 1 '游标属性

rsn.CursorLocation = 2 '游标位置

rsn.LockType = 1

' 定义数据库查询模式

rsn.Open()

' 打开数据库链接

if not rsn.eof then '显示不为空的数据

end if

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

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="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&"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 '向后移动一分页, 十页为一分页

Response.Write "<a href="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(cPageNo-NaviLength)&">"&previous10_&"</a> "

Else

Response.Write "<font color=""#CCCCCC"">"&previous10_&"</font> "

End If

If pageview <> 1 and pageview <>0 Then '后移一页

Response.Write "<a href="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(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="&nc1_&rqsc_&nc2_&rqsnc_&nc3_& I & ">" & I & "</a>"

End If

If I<>tPageCount Then Response.Write " "

If pageview <> rsn.PageCount and pageview <>0 Then '前移一页

Response.Write " <a href="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(pageview+1)&">"&next1_&"</a> "

Else

Response.Write "<font color=""#CCCCCC"">"&next1_&"</font> "

End If

If EndPage<tPageCount Then '向后移动一分页, 十页为一分页

Response.Write " <a href="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&(cPageNo+NaviLength)&">"&next10_&"</a> "

Else

Response.Write " <font color=#CCCCCC>"&next10_&"</font> "

End If

if rsn.PageCount<>pageview then '判断是否尾页

Response.Write "<a href="&nc1_&rqsc_&nc2_&rqsnc_&nc3_&rsn.PageCount&">尾页</a>"

Else

Response.Write "<font color=""#CCCCCC"">尾页</font>"

End If

End Sub

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Untitled Document</title>

</head>

<body>

<!--

function MM_jumpMenu(targ,selObj,restore){ //v3.0

eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");

if (restore) selObj.selectedIndex=0;

}

//-->

</script>

<% showPageNavi rsn.PageCount,pageview %>  

<% for i=1 to rsn.PageCount %>

<option VALUE="<%="nclass.asp?classid="&rqsc_&"&nclassid="&rqsnc_&"&pageview="&i%>"

<% if pageview=i then%> selected <%end if%>>

第<%=i%>页

</option>

<%next%>

</select>

</form>

</div>

If rsn.EOF OR rsn.BOF Then

Else

For I=1 To RPP

<p/>

<%=rsn("dateandtime")%> <a href="<%=t1_&rsn("classid")&t2_&rsn("nclassid")&t3_&rsn("articleid")%>"><%= rsn("title") %></a>

rsn.MoveNext

If rsn.EOF OR rsn.BOF Then Exit For

End If

<% showPageInfo rsn.PageCount,pageview %>

<% showPageNavi rsn.PageCount,pageview %>  

<% for i=1 to rsn.PageCount %>

<option VALUE="<%="nclass.asp?classid="&rqsc_&"&nclassid="&rqsnc_&"&pageview="&i%>"

<% if pageview=i then%> selected <%end if%>>

第<%=i%>页

</option>

<%next%>

</select>

</form>

<%= pageNum_ %>:<% showPageInfo rsn.PageCount,pageview %> 

<%= articleNum_ %>:<% Response.Write(rsn.RecordCount) %><br/>

</div>

</body>

</html>

---／-----------------------------------------------------------

top.asp

'set home link

Dim siteinfoHomelink

Dim siteinfoHomelink_numRows

Set siteinfoHomelink = Server.CreateObject("ADODB.Recordset")

siteinfoHomelink.ActiveConnection = MM_conn_STRING

siteinfoHomelink.Source = "SELECT * FROM siteinfo"

siteinfoHomelink.CursorType = 0

siteinfoHomelink.CursorLocation = 1

siteinfoHomelink.LockType = 1

siteinfoHomelink.Open()

siteinfoHomelink_numRows = 0

homeurl=siteinfoHomelink.Fields.Item("siteurl").Value

sitename=siteinfoHomelink.Fields.Item("sitename").Value

home = "<a href="&(siteinfoHomelink.Fields.Item("siteurl").Value)&">"&(siteinfoHomelink.Fields.Item("sitename").Value)&"</a>"

pageurl=homeurl&request.ServerVariables("URL")&"?"&request.ServerVariables("QUERY_STRING")

pagelink="<a href="&pgeurl&">"&pageurl&"</a>"

---／-----------------------------------------------------------

bottom.asp

Dim rsSiteinfo

Dim rsSiteinfo_numRows

Set rsSiteinfo = Server.CreateObject("ADODB.Recordset")

rsSiteinfo.ActiveConnection = MM_conn_STRING

rsSiteinfo.Source = "SELECT * FROM siteinfo"

rsSiteinfo.CursorType = 0

rsSiteinfo.CursorLocation = 1

rsSiteinfo.LockType = 1

rsSiteinfo.Open()

rsSiteinfo_numRows = 0

rsSiteinfo.Close()

Set rsSiteinfo = Nothing

---／-----------------------------------------------------------

abbrword.asp

'Site Infomation

siteName_="绿色学院 Green Institute"

siteUrl_="http://gi.2288.org:88/"

'General word

welcomeShort_="欢迎光临"

siteAdmin_="站长: "

siteFoundtime_="开站日期: "

homeurl_="首页"

' error

error_="<center>页面 ID 出错, 或文章已删除</center>"

errorA_="<center>文章 ID 出错</center>"

errorN_="没有该篇"

nothing_="没有了"

nodata_="<center>没有数据</center>"

'page word

previous1_="上一"

next1_="下一"

previous_=" 上页"

next_=" 下页"

previousP_=" 上页"

nextP_=" 下页"

previous10_=" 上十"

next10_=" 下十"

previousA_=" 上篇"

nextA_=" 下篇"

previousD_=" 上一天"

nextD_=" 下一天"

previousY_="上年"

nextY_="下年"

previousW_="上星期"

nextW_="下星期"

today_="今天"

'Articles Column

columnClass_="主类: "

columnNclass_="子类: "

'descript worl

title_="标题"

article_="文章"

'Category world

hotHits_="热门文章"

coldHits_="冷门文章"

newA_="最近更新"

show_="显示"

showAll_="所有文章"

' page articles.asp

text_="正文"

hitsUp1_="点击: "

source_="来源: "

author_="作者: "

postDate_="发表日期: "

sourceColumn_="所属栏目: "

pagelink_="页面链接: "

text_="正文: "

fashion_=" 热门"

' page nclass.asp

nc1_="nclass.asp?classid="

nc2_="&nclassid="

nc3_="&pageview="

pageNum_="页数"

articleNum_="篇数"

' page dateview.asp

dat1="dateview/dateview.asp?dayview="

dat2="dateview.asp?dayview="

dv_=request.QueryString("dayview")

dvP1_=year(dv_)&"-"&month(dv_)&"-"&day(dv_)+1

dvM1_=year(dv_)&"-"&month(dv_)&"-"&day(dv_)-1

' page yearview.asp

yvE_="<center>没有该年份的数据</center>"

' page monthview.asp

previousM_="上月"

nextM_="下月"

' page weekview.asp

weekA_="所属星期"

week_="星期"

' page todayview.asp

tvv_="todayview.asp"

' URL abbr.

up1_="../"

rqsc_=request.QueryString("classid")

rqsnc_=request.QueryString("nclassid")

rqs_=request.QueryString("articleid")

rqsdv_=request.QueryString("dayview")

articleid_="articles.asp?articleid="

articleid1_="articles1.asp?articleid="

t_="t.asp?nclassid="&nclassidSSS&"&articleid="&articleid

t1_="t.asp?classid="

t2_="&nclassid="

t3_="&articleid="

dvv_="dateview.asp?dayview="

yvv_="yearview.asp?yearview="

mvv_="monthview.asp?monthview="

wvv_="weekview.asp?weekview="

classid_="class.asp?classid="

nclassid_="nclass.asp?nclassid="

abbrid_="articles.asp?classid="&classid&"&nclassid="&nclassid&"&articleid="

abbrid1_="t.asp?classid="&classid&"&nclassid="&nclassid&"&articleid="

---／-----------------------------------------------------------

conn.asp

' FileName="Connection_ado_conn_string.htm"

' Type="ADO"

' DesigntimeType="ADO"

' HTTP="true"

' Catalog=""

' Schema=""

Dim MM_conn_STRING

MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/data/data.mdb")

---／-----------------------------------------------------------