内容摘要：关于用DW+ASP实现分页技术的参考
今天心情有点激动,想把"关于用DW+ASP实现分页技术的参考"分享给用DW+ASP做网页的朋友们.去掉只有"第一页,前一页,下一页,最后一页"的小痛苦
此效果最后的显示是:第N页[共*页]<<12345678910>>。
用DW+ASP做网页时,在绑定记录集后,代码页里马上出现以下代码：
<%
DimRecordset1
DimRecordset1_numRows
SetRecordset1=Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection=MM_数据库名_STRING
Recordset1.Source="SELECT*FROM表名"
Recordset1.CursorType=0
Recordset1.CursorLocation=2
Recordset1.LockType=1
Recordset1.Open()
Recordset1_numRows=0
%> 现在我们要来对代码做点修改，请在上面代码中修改为如下的代码：<%
DimI
DimRPP
DimPageNo
I=1
RPP=50
PageNo=CInt(Request("PageNo"))
’上面即是新插入的，
DimRecordset1
DimRecordset1_numRows
SetRecordset1=Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection=MM_数据库名_STRING
Recordset1.Source="SELECT*FROM数据库名"
Recordset1.CursorType=1’将上面代码的0改为1.
Recordset1.CursorLocation=2
Recordset1.LockType=1
Recordset1.Open()
Recordset1_numRows=0’再在此行的下一行开始加入如下代码：
Recordset1.PageSize=RPP
IfPageNo<=0ThenPageNo=1
IfPageNo>Recordset1.PageCountThenPageNo=Recordset1.PageCount
Recordset1.AbsolutePage=PageNo
SubShowPageInfo(tPageCount,cPageNo)
Response.Write"第"&cPageNo&"页[共"&tPageCount&"页]"
EndSub
SubShowPageNavi(tPageCount,cPageNo)
IfcPageNo<1ThencPageNo=1
IftPageCount<1ThentPageCount=1
IfcPageNo>tPageCountThencPageNo=tPageCount
DimNaviLength
NaviLength=10’NaviLength：显示的数字链接个数
DimI,StartPage,EndPage
StartPage=(cPageNoNaviLength)*NaviLength+1
If(cPageNoModNaviLength)=0ThenStartPage=StartPage-NaviLength
EndPage=StartPage+NaviLength-1
IfEndPage>tPageCountThenEndPage=tPageCount
IfStartPage>1Then
Response.Write"<aclass=""pageNavi""href=""?PageNo="&(cPageNo-NaviLength)&"""><<</a>"
Else
Response.Write"<fontcolor=""#CCCCCC""><<</font>"
EndIf
ForI=StartPageToEndPage
IfI=cPageNoThen
Response.Write"<b>"&I&"</b>"
Else
Response.Write"<aclass=""pageNavi""href=""?PageNo="&I&""">"&I&"</a>"
EndIf
IfI<>tPageCountThenResponse.Write" "
Next
IfEndPage<tPageCountThen
Response.Write"<aclass=""pageNavi""href=""?PageNo="&(cPageNo+NaviLength)&""">>></a>"
Else
Response.Write"<fontcolor=""#CCCCCC"">>></font>"
EndIf
EndSub
%> 上面代码中：RPP：指定每页显示的记录条数。即每页显示几条数据。
责编：豆豆技术应用
正在加载评论...