寻这个通用的分页模块在网页中显示无效的解决办法，在线。。。。。。

[jxyy601]

<%
'*******************************************************
'过程名:ShowPage
'显示“上一页，下一页”等信息
'参数：sDesURL -----链接地址，可以是一个文件名，也可以是一个有一些参数的URL
' nTotalNumber ----- 总数量
' nMaxPerPage ----- 每页数量
' nCurrentPage ----- 当前页
' bShowTotal ----- 是否显示总数量
' bShowCombo ----- 是否用下拉列表显示所有页面以提供跳转
' sUnit ----- 计数单位
'*******************************************************
sub ShowPage(sDesURL,nTotalNumber,nMaxPerPage,nCurrentPage,bShowTotal,bShowCombo,sUnit)
dim n,i,strTemp,strUrl
'计算页数
if nTotalNumber mod nMaxPerPage=0 then
n= nTotalNumber \ nMaxPerPage
else
n= nTotalNumber \ nMaxPerPage +1
end if
'判断当前页（nCurrentPage）
if nCurrentPage < 1 then
nCurrentPage = 1
elseif nCurrentPage > n then
nCurrentPage = n
end if

strTemp = "<table align='center' border='1' cellpadding='1' cellspacing='1'>"&_
"<form name='ShowPages' method='post' action='&sDesURL&'><tr><td>"

if bShowTotal =true then
strTemp= strTemp & "共收录<b>" &nTotalNumber& "</b>"& sUnit &"信息  "
end if
'根据输入的sDesURL向它加入"？"或者"&"
strUrl=PasteURL(sDesURL)
if nCurrentPage < 2 then
strTemp=strTemp & "首页 上一页 "
else
strTemp=strTemp & "<a href='"&strUrl&"page=1'>首页</a> "
strTemp=strTemp & "<a href='"&strUrl&"page="&(nCurrentPage-1)&"'>上一页</a> "
end if

if n-nCurrentPage<1 then
strTemp=strTemp & "下一页 页尾"
else
strTemp=strTemp & "<a href='"&strUrl&"page="&(nCurrentPage+1)&"'>下一页</a> "
strTemp=strTemp & "<a href='"&strUrl&"page=" & n & "'>尾页</a> "
end if

strTemp=strTemp & " 页次:<strong><font color=red>"& nCurrentPage &"</font>/"& n &"</strong>页"
strTemp=strTemp & " <b>"& nMaxPerPage &"</b>"&sUnit&"/页"

strTemp= strTemp& "</td></tr></form></table>"
response.Write(strTemp)
end sub

'*******************************************************************
'函数名：PasteURL
'作 用：向地址中加入"?"或"&"
'参 数：strUrl -----网址
'返回值：加入了"?"或"&"的网址
'*******************************************************************
function PasteURL(strUrl)
if strUrl="" then
PasteURL=""
exit function
end if

'如果传入的URL末尾不是"?"有两种情况：
'1.无"?"，此时需要加入一个"?"
'2.有"?"，再判断有无"&"
if InStr(strUrl,"?")< len(strUrl) then
if Instr(strUrl,"?")>1 then
if Instr(strUrl,"&")<len(strUrl) then
PasteURL=strUrl & "&"
else
PasteURL=strUrl
end if
else
PasteURL=strUrl & "?"
end if
else
PasteURL=strUrl
end if
end function
%>

　　这段代码摘自一ASP书上，上述该模块在使用时用include包含进去，不做任何修改即可使用ShowPage函数实现分页功能。小弟将些保存在a.asp中，在b.asp中包含进来使用时<% Call ShowPage("b.asp",3,1,1,true,0,"条") %> 调用，却无法预计效果，改成<% Call ShowPage(Request.ServerVariables("SCRIPT_NAME"),rs_ground.RecordCount,2,Request("Page"),true,0,"条")%>　结果。。

如：b.asp
<!--#include file="a.asp"-->
<%

'打开场地数据库
set rs_ground=server.CreateObject("adodb.recordset")
sql = "select * from ground"
rs_ground.Open sql,objconn,3,2
rs_ground.movefirst
'循环显示场地信息
while (not rs_ground.eof or rs_ground.bof)
%>

<tr>
<td height="24" align="center" valign="middle"><%= rs_ground("ground_id") %></td>
<td align="center" valign="middle"><%= rs_ground("name") %></td>
<td align="center" valign="middle"><%= rs_ground("type") %></td>
<td align="center" valign="middle"><%= rs_ground("cost") %></td>
<td align="center" valign="middle"><a href="preengage.asp?ground_id=<%= rs_ground("ground_id") %>">我要预约</a></td>
</tr>
<%
rs_ground.movenext
wend
%>

<td>
<%
Call ShowPage(Request.ServerVariables("SCRIPT_NAME"),rs_ground.RecordCount,2,Request("Page"),true,0,"条")
%>
</td>
　　在线诚请名位仁兄，仁姐，高手们能指点一二，不胜感激！～～

[浙外]

我觉得蛮正常的啊。不知道你的无效的概念是什么，能说明下吗？

[jxyy601]

就是根本没有达到分页的效果...我想将其记录分成3页，每页1条..但运行的结果却是如下：

场地序号 场地名称 场地类型 费用（元） 操作
1 南侧1号蓝球场 蓝球 5 我要预约
2 南侧1号小足球场　 足球 35 我要预约
3 北侧1号蓝球场 蓝球 5 我要预约


共收录3条信息 首页 上一页 下一页 页尾 页次:1/3页 1条/页

[jxyy601]

就是根本没有达到分页的效果...我想将其记录分成3页，每页1条..但运行的结果却是如下：

场地序号 场地名称 场地类型 费用（元） 操作
1 南侧1号蓝球场 蓝球 5 我要预约
2 南侧1号小足球场　 足球 35 我要预约
3 北侧1号蓝球场 蓝球 5 我要预约


共收录3条信息 首页 上一页 下一页 页尾 页次:1/3页 1条/页

[一把编程的菜刀]

<%
Call ShowPage(Request.ServerVariables("SCRIPT_NAME"),rs_ground.RecordCount,2,Request("Page"),true,0,"条")
%>

你这个调用，是每页2条数据，而不是每页1条

[一把编程的菜刀]

过程名:ShowPage
'显示“上一页，下一页”等信息
'参数：sDesURL -----链接地址，可以是一个文件名，也可以是一个有一些参数的URL
' nTotalNumber ----- 总数量
' nMaxPerPage ----- 每页数量
' nCurrentPage ----- 当前页
' bShowTotal ----- 是否显示总数量
' bShowCombo ----- 是否用下拉列表显示所有页面以提供跳转
' sUnit ----- 计数单位
'*******************************************************
sub ShowPage(sDesURL,nTotalNumber,nMaxPerPage,nCurrentPage,bShowTotal,bShowCombo,sUnit)
dim n,i,strTemp,strUrl

好好看这个参数说明，第一个参数是总数量，第三个是每一页显示的数量，再看你的：
<%
Call ShowPage(Request.ServerVariables("SCRIPT_NAME"),rs_ground.RecordCount,2,Request("Page"),true,0,"条")
%>
第二个是总数没错，但第三个不是你说的每页一条了，而是每页2条
计算页数
if nTotalNumber mod nMaxPerPage=0 then
n= nTotalNumber \ nMaxPerPage
else
n= nTotalNumber \ nMaxPerPage +1
end if

这个是计算总共页数的 也就是总数量除以 每页数就是等于页数，如果整除的话就正好等于他们的商，如果不整除就得商+1

[浙外]

你一开始没有设置好你的记录集的分页功能,PAGESIZE

[jxyy601]

感谢以上各位高手,特别是 myvicy 提供的帮助,本问题现已解决.这个分页模块对于新手来说确实好用,不必设置太多的东西即可实现分页功能,有需要者可直接复制...谢谢各位了.......小弟会继续努力!~

[andywuchitao]

<!-- #include file="inc/ToPage.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<%
Set cmd = Server.CreateObject("ADODB.Command")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
cmd.ActiveConnection=conn
cmd.CommandType=1
cmd.CommandText="Select top 20 * from sell"

Set rs = cmd.Execute
if rs.eof then
Response.Write "目前已超过了纪录个数或纪录集为空！"
else
dim RsArray,Page,maxPage,NowPageTopID,NowPageEndID
RsArray=rs.GetRows() '可以利用getRows将纪录集迅速保存到一个二维的数组中来提高速度。
iPageSize =5 '每页记录条数
iCount=UBound(RsArray, 2)+1 '记录总数
call PageMain(Page,maxPage,NowPageTopID,NowPageEndID)
%>
<div align="left">
<%
for i=NowPageTopID to NowPageEndID
Response.Write RsArray(1,i)&"--- "&RsArray(2,i)&"<br>"
next
%>
</div>
<% PageControl %>
<%
end if
rs.close
set rs=nothing
set cmd=nothing
%>
</body>
</html>


ToPage.asp内容
<%
Sub PageMain(byref Page,byref maxPage,byref NowPageTopID,byref NowPageEndID)
if (iCount mod iPageSize)=0 then '最大页码
maxPage = iCount \ iPageSize
Else
maxPage = iCount \ iPageSize + 1
End If
NowPage=request.QueryString("Page")
if Not IsNumeric(NowPage) or NowPage="" or NowPage<1 then
Page=1
elseif CLng(NowPage)>maxPage then
Page=maxPage
else
Page=CLng(NowPage)
end if
NowPageTopID=(Page-1)*iPageSize
NowPageEndID=NowPageTopID+iPageSize-1
if NowPageEndID>iCount-1 then NowPageEndID=iCount-1
End Sub

Sub PageControl()
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "Page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next

Response.Write("<table>" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.Page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
if Page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if

if Page>=maxPage then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & maxPage & ">尾页</A> " & vbCrLf)
end if

Response.Write(" 页次：<font color='red'>" & Page & "</font>/" & maxPage & "页" & vbCrLf)
Response.Write(" 共有<font color='red'>" & iCount & "</font>条记录" & vbCrLf)
Response.Write(" 转到" & "<input size=2 type=text value=" & Page & " name=Page>" & "页" & vbCrLf & "<input type=submit name=Submit value=转到>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>

[myvicy]

你的a.asp仅仅是一个分页工具条而已。
具体的分页还是要自己写代码来实现的。
<!--#include file="a.asp"-->
<%
'打开场地数据库
set rs_ground=server.CreateObject("adodb.recordset")
sql = "select * from ground"
rs_ground.Open sql,objconn,3,2
rs_ground.movefirst
pgsize = 1 '设置页面大小
if not( rs_ground.eof and rs_ground.bof) then
rs_ground.pagesize=pgsize
if request("page").count=0 then
page=1
else
page=replace(request("page"),"'","")
page=cint(request("page"))
end if
if page<1 then
page=1
end if
if page>rs_ground.pagecount then
page=rs_ground.pagecount
end if
page_total=rs_ground.pagecount
total= rs_ground.recordcount
rs_ground.absolutepage=page
'循环显示场地信息
for i=1 to pgsize
if not rs_ground.eof then
%>

<tr>
<td height="24" align="center" valign="middle"> <%= rs_ground("ground_id") %> </td>
<td align="center" valign="middle"> <%= rs_ground("name") %> </td>
<td align="center" valign="middle"> <%= rs_ground("type") %> </td>
<td align="center" valign="middle"> <%= rs_ground("cost") %> </td>
<td align="center" valign="middle"> <a href="preengage.asp?ground_id= <%= rs_ground("ground_id") %> "> 我要预约 </a> </td>
</tr>
<%
rs_ground.movenext
else
exit for
end if
next
%>

<td>
<%
Call ShowPage(Request.ServerVariables("SCRIPT_NAME"),rs_ground.RecordCount,pgsize,Request("Page"),true,0,"条")
%>
</td>

[浙外]

星星多的就是有耐心。