asp链接ACCESS数据库，如果实现分页功能

2025-02-27 19:59:42

推荐回答（4个）

回答1：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%
dim conn
dim connstr,datafile
datafile="../../databases/data/2北#京.mdb"
set conn=server.CreateObject("adodb.connection")
connstr="DBQ="+server.MapPath(datafile)+";DefaultDir=;driver={microsoft access driver (*.mdb)};"
conn.open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from 北京"
rs.open sql,conn,1,1
%>
<%
if not rs.eof and not rs.bof then

rs.pageSize=12 '一页显示的条数

pageNum=cint(request.QueryString("page"))

if pageNum<1 or pageNum="" then
pageNum=1
end if
if pageNum>rspro.pagecount then
pageNum=rspro.pagecount
end if'

rs.absolutepage=pageNum '当前指定页

%>

<% dim i
i=1
do while not rs.eof and i<=rs.pageSize
%>
<%
response.write rs("id")&"—"&rs("机构名称")&"—"&rs("法人")&"—"&rs("电话区号")&"—"&rs("电话号码")&"—"&rs("机构地址")&"—"&rs("邮政编码")&"—"&rs("经济行业")&"—"&rs("经济类型")&"
"
%>
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>

<%
'以下是上一页下一页尾页
if pageNum=1 then%>

[首页]
[上一页]
<%else%>
[首页]
[上一页]
<%end if%>
<%if pageNum=rs.pagecount then%>
[下一页]
[尾页]
<%else%>
[下一页]
[尾页]
<%end if%>

第[<%=pageNum%>]页 /共[<%=rs.pagecount%>]页   共有[<%=rs.recordcount%>]记录

回答2：

<%
Class aspxsky_page
Private Sub class_initialize
End Sub

Public Function Alert(message,gourl)
message = replace(message,"’","\’")
If gourl="-1" then
Response.Write ("")
Else
Response.Write ("")
End If
Response.End()
End Function

Public Sub showpage(str,page,url)
if not isnumeric(page) then
alert "提示:错误的参数!","-1"
end if
if page="" or page=0 or isnull(page) or isempty(page) then
page=1
else
page=cint(page)
end if
str=split(str,"{nextpage}")
abspage=page
pcount=ubound(str)+1
if page>cint(ubound(str)+1) or page<1 then
alert "提示:错误的参数!","-1"
else
response.write str(page-1)&"

"
end if

for p=0 to ubound(str)
response.write ""&p+1&""
next
response.write " 第"&abspage&"/"&pcount&"页"
End Sub
End Class
%>
参考一下

回答3：

http://hi.baidu.com/lz0830/blog/item/4d63d09b6fdbf1b2c8eaf424.html

回答4：

对rs.recordcount进行分割