简单的分页(第一种)

<!--连接数据库-->
<%
 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 * from username"                       '建立查询语句
 rs.open sql,conn,1,1                               '获取记录
 
 rscount=rs.recordcount                             '获取记录总个数
 pagecount=rscount\6                                '计算页数，
 if(rscount mod 6)>0 then                           '如果记录集总数不能被6整除，总页数就应该加1
  pagecount=pagecount+1
 end if
%>
 <form action="index.asp" method=post>              <!--建立form表单-->
<%
 response.Write ("共"&pagecount&"页")               '输出页数
 response.Write "&nbsp;&nbsp;第"                    '使用while...wend循环语句判断现在为第几页
 while i<=pagecount
  response.Write("<a href=index.asp?page="&i&">"&i&"</a>&nbsp;")
  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.move (page-1)*6                                 '跳到当页第一个记录处
 i=1                                               
 while i<=6 and not rs.eof                          '循环计数初始为0       
  'response.Write("本页第"&i&"个记录<br>")
  response.Write("<br>")      '输出内容
  response.Write("内容为"&rs("name")&"<br>")
  i=i+1
  rs.movenext
 wend
 
 rs.close                                           '关闭记录集
 set rs=nothing                                     '清空记录集对象
 conn.close                                         '关闭数据库连接
 set conn=nothing                                   '清空数据库连接对象
%>