ASP分页函数 - 711网络

作用: 为了通用性考虑, 本函数主要功能为分页导航, 定义数据库连接和调用数据在调用页操作.

1.1 函数 fPageCount 内容
1.2 包含文件 abbr.asp, 非必须
2.1 使用函数例1
2.2 使用函数例2
2.3 使用函数例3

注: 例中的脚本为跳转框必须

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

50篇/页 1/21页 1031篇
-------------------------------------------------------------

1.1 函数 fPageCount 内容
<% 'ASP VBScript 分页函数, by Stabx, 2006-04-22
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 调用文件参数设置
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' RPP=50 '设置每页显示数目
' I=1 '设置循环开始数目
' showNumberLink_=10 '数字导航显示数目
'
' toPage_="?yearview="&request.QueryString("yearview")&"&pageview=" '页面链接
' nonLinkColor_="#CCCCCC" '非热链接颜色
'
' '数据库连接
' Set rs = Server.CreateObject("ADODB.Recordset") '建立一个 rs 数据库查询
' rs.ActiveConnection = MM_conn_STRING '连接字符串, 这是 Dreamweaver 连接字符串
' rs.CursorType = 1 '游标属性
' rs.CursorLocation = 2 '游标位置
' rs.LockType = 1 '定义数据库查询模式
' rs.Open "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 desc",MM_conn_STRING
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 调用函数, 显示分布导航栏
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' call fPageCount(RPP,rs,I,showNumberLink_,toPage_,nonLinkColor_)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 调用文件,显示数据操作
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' if rs.eof or rs.bof then
' else
' for i=1 to rpp

' response.Write rs("title")&p_

' rs.movenext
' if rs.eof or rs.bof then exit for
' next
' end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' FOR ... NEXT 语句段编辑显示内容,
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function fPageCount(RPP,rs,I,showNumberLink_,toPage_,nonLinkColor_)

toF_="首页"
toP10_=" 上十"
toP1_=" 上一"
toN1_=" 下一"
toN10_=" 下十"
toL_="尾页"

if not rs.eof or not rs.bof then

pageview=CInt(Request("pageview")) '读取 URL 页号

rs.PageSize=RPP '定义每页显示记录数

If pageview<=0 Then pageview=1 '如果 pageview 小于或等于0, 返回值1
If pageview>rs.PageCount Then pageview=rs.PageCount ' 如果 pageview 大于分页总数, 返回分页末页值
rs.AbsolutePage=pageview '定义当前页码

cPageNo=rs.AbsolutePage
tpagecount=rs.pagecount

response.Write "<form NAME=pageform ID=pageform>"

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=showNumberLink_ ' 显示数字链接数
Dim StartPage,EndPage ' 定义当前页, 开始页, 结束页
StartPage=(cPageNoNaviLength)*NaviLength+1 '为开始页赋值

if pageview=1 then '判断是否首页, 如果是首页不添加链接,反之添加.
Response.Write "<font color="&nonLinkColor_&">"&toF_&"</font> "
Else
Response.Write "<a href="&toPage_&"1>"&toF_&"</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="&toPage_&(cPageNo-(cPageNo mod 10)-NaviLength+1)&">"&toP10_&"</a> "
Else
Response.Write "<font color="&nonLinkColor_&">"&toP10_&"</font> "
End If

If pageview <> 1 and pageview <>0 Then '后移一页
Response.Write "<a href="&toPage_&(pageview-1)&">"&toP1_&"</a> "
Else
Response.Write "<font color="&nonLinkColor_&">"&toP1_&"</font> "
End If

For I=StartPage To EndPage
If I=cPageNo Then
Response.Write "<b>"&I&"</b>"
Else
Response.Write "<a href="&toPage_&I&">" &I& "</a>"
End If
If I<>tPageCount Then Response.Write " "
Next

If pageview <> rs.PageCount and pageview <>0 Then '前移一页
Response.Write " <a href="&toPage_&(pageview+1)&">"&toN1_&"</a> "
Else
Response.Write "<font color="&nonLinkColor_&">"&toN1_&"</font> "
End If

If EndPage<tpagecount Then '向前移动一分页, 十页为一分页, 并且以 1, 11, 21 为每页的开始篇数
Response.Write " <a href="&toPage_&(cPageNo-(cPageNo mod 10)+NaviLength+1)&">"&toN10_&"</a> "
Else
Response.Write " <font color=#CCCCCC>"&toN10_&"</font> "
End If

if rs.PageCount<>pageview then '判断是否尾页
Response.Write "<a href="&toPage_&rs.PageCount&">"&toL_&"</a>"
Else
Response.Write "<font color="&nonLinkColor_&">"&toL_&"</font>"
End If

'跳转框
response.Write " 转到:<select NAME=menu1 onChange=MM_jumpMenu('parent',this,0)>"

for i=1 to tPageCount
response.Write "<option value="&topage_&i

if pageview=i then response.Write " selected "

response.Write ">第"&i&"页</option>"
next

response.Write "</select>"

'页面信息
response.Write p_&sp2_&RPP&"篇/页"&sp2_&cPageNo&"/"&tPageCount&"页"&sp2_&rs.recordCount&"篇"

response.Write "</form>"

else

end if

end function
%>

1.2 包含文件 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=mailt"&siteadminMail_&">"&siteadmin_&"</a>" _fcksavedurl="mailt"&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>"
%>

2.1 使用函数例1
<script language="JavaScript" type="text/JavaScript">

</script>
<%
RPP=50 '设置每页显示数目
I=1 '设置循环开始数目
showNumberLink_=10

toPage_="?dayview="&request.QueryString("dayview")&"&pageview="
nonLinkColor_="#CCCCCC"

Set rs = Server.CreateObject("ADODB.Recordset") '建立一个 rs 数据库查询
rs.ActiveConnection = MM_conn_STRING
rs.CursorType = 1 '游标属性
rs.CursorLocation = 2 '游标位置
rs.LockType = 1 '定义数据库查询模式
rs.Open "select article.*, class.*, nclass.* from article, class, nclass where article.classid=class.classid and article.nclassid=nclass.nclassid and dateandtime=#"&request.QueryString("dayview")&"# order by articleid desc",MM_conn_STRING

%>
<div CLASS="center"><% call fPageCount(RPP,rs,I,showNumberLink_,toPage_,nonLinkColor_) %></div>
<%
if rs.eof or rs.bof then
else
for i=1 to rpp %>
<div class="floatRight80"><a href="<%=ddv_&rs("dateandtime")%>"><%=rs("dateandtime")%></a></div> <a href="<%=c1_&rs("article.classid")%>"><%= rs("class") %></a> -> <a href="<%=c1_&rs("article.classid")&c2_&rs("article.nclassid")%>"><%= rs("nclass") %></a> -> <a href="<%=a1_&rs("article.classid")&a2_&rs("article.nclassid")&a3_&rs("articleid")%>" target="_blank"><%= rs("title") %></a><p/>
<%
rs.movenext
if rs.eof or rs.bof then exit for
next
end if%>
<div CLASS="center"><% call fPageCount(RPP,rs,I,showNumberLink_,toPage_,nonLinkColor_) %></div>
<% rs.close
set rs=nothing %>

文章共2页: [1] [2]

更多的ASP分页函数请到论坛查看: http://BBS.TC711.COM

【双击滚屏】【评论】【收藏】【打印】【关闭】来源：互联网日期：2006-8-18