Question

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

asp链接ACCESS数据库，如果实现分页功能，比如一千条信息分成一页，第一千零一起自动分到第二页、第三页... 要有自动生成页码链接.

下面是源代码，应该如何修改？
<%@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
%>
<%do while not rs.eof
response.write rs("id")&"—"&rs("机构名称")&"—"&rs("法人")&"—"&rs("电话区号")&"—"&rs("电话号码")&"—"&rs("机构地址")&"—"&rs("邮政编码")&"—"&rs("经济行业")&"—"&rs("经济类型")&"<br>"
rs.movenext
loop
rs.close
set rs=nothing
%>

下面链接是现在代码展示的效果.
http://data.netlead.cn/data/2bj.asp
请直接告诉我，我的代码应该如何修改才可以分页，不要复制不相干的代码和链接来，谢谢！
最好有显示页数，如图片：
（如果图片看不清楚，请打开百度网页：http://www.baidu.com/s?wd=%CD%F8%B5%BC%D6%AE%BC%D2&pn=10&tn=maxthon2 ）

Answer 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("经济类型")&"<br>"
%>
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>

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

<a>[首页]</a>  
<a>[上一页]</a>  
<%else%>
<a href="?page=1">[首页]</a>  
<a href="?page=<%=pageNum-1%>">[上一页]</a>  
<%end if%>
<%if pageNum=rs.pagecount then%>
<a>[下一页]</a>  
<a>[尾页]</a>    
<%else%>
<a href="?page=<%=pageNum+1%>">[下一页]</a>  
<a href="?page=<%=rs.pagecount%>">[尾页]</a>    
<%end if%>

第[<font color="#FF3300"><%=pageNum%></font>]页 /共[<font color="#FF3300"><%=rs.pagecount%></font>]页   共有[<font color="#FF3300"><%=rs.recordcount%></font>]记录   </label>
</strong>

Answer 2

<%
Class aspxsky_page
Private Sub class_initialize
End Sub

Public Function Alert(message,gourl)
message = replace(message,"’","\’")
If gourl="-1" then
Response.Write ("<script language=javascript>alert(’" & message & "’);history.go(-1)</script>")
Else
Response.Write ("<script language=javascript>alert(’" & message & "’);location=’" & gourl &"’</script>")
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)&"<center>"
end if

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

Answer 3

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

Answer 4

对rs.recordcount进行分割