注意:要在access数据库中建立db1.mdb数据库和一张user表
<!--连接数据库-->
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb")
%>
<!--查询记录-->
<%
set rs=server.CreateObject("Adodb.recordset") '建立记录集
sql="select count(id) as rscount from username" '建立查询语句,count统计个数
rs.open sql,conn,1,1 '获取记录
rscount=rs("rscount") '获取记录总个数
pagecount=rscount\6 '计算页数(每页显示6个),
if(rscount mod 6)>0 then '如果记录集总数不能被6整除
pagecount=pagecount+1 '总页数就应该加1
end if
%>
<form action="index.asp" method=post> <!--建立form表单-->
<%
response.Write("共"&pagecount&"页") '输出页数
response.Write (" 第")
while i<=pagecount
response.Write("<a href=index1.asp?page="&i&">"&i&"</a> ")
i=i+1
wend
response.Write ("页")
%>
<input type="text" name="page" size="3"> <!--页码文本框-->
<input type="submit" value="跳转"> <!--提交按钮-->
<%
page=0 '初始化页码变量
page=request("page") '获取传递的页码
if isnull(page) or isempty(page) then '如果获取的页面为空
page=0 '设置页码为0
else
page=int(page)
end if
if page>pagecount then '使用if语句判断如果页码大于总页数,设置页码为最后一页。
page=pagecount
end if
if page=0 then '如果页码为0
page=1 '设置为第一页
end if
rs.close '关闭记录集
firstrs=(page-1)*6+1 '计算第一个记录的序号
lastrs=page*6 '计算最后一个记录的序号
if lastrs>rscount then '如果大约总记录数
lastrs=rscount '则以总记录数作为最后一个记录的序号
end if
sql=("select top "&(lastrs-firstrs+1)&" * from (select top "&(lastrs)&" * from username order by id) order by id desc")
response.Write(sql &"<br>") '显示执行的SQL语句
rs.open sql,conn,1,1 '获取记录集
i=0 '循环计数初始为0
while not rs.eof '循环显示每一个记录
i=i+1
response.Write("本页第"&i&"个记录<br>") '输出内容
response.Write("内容为"&rs("name")&"<br>")
rs.movenext
wend
rs.close '关闭记录集
set rs=nothing '清空记录集对象
conn.close '关闭数据库连接
set conn=nothing '清空数据库连接对象
%>