Asp分页

set rs = server.createobject("ADODB.Recordset")
recordset.Open Source,ActiveConnection,CursorType,LockType,Options
rs.CursorLocation = 3
rs.PageSize = 15 '定义页面显示数量
rs.open strSQL,conn,1,1
   程序代码

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
//定义数据库连接语句
var connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
 +Server.MapPath("database/vote.mdb");
//建立一个rs数据库查询
var rs = Server.CreateObject("ADODB.Recordset")
//rs连接方式
 rs.ActiveConnection = connstring
//rs查询语句（按照用户提交时间倒序查询）
 rs.Source = "select * from users order by usetime DESC"
//定义数据库查询模式
 rs.CursorType = 3
 rs.CursorLocation = 3
 rs.LockType = 1
//定义每页显示数据数量
 rs.PageSize = 10
//打开数据库连接
 rs.Open()
//定义数据库纪录总数，分页总数，URL路径
 var counts,pagecos,thisUrl
  counts = rs.RecordCount
  pagecos = rs.PageCount
  thisUrl = Request.ServerVariables("URL")
//如果游标在表中就执行
if(!rs.EOF || !rs.BOF){
//如果url的page参数不为空就执行
 if(Request("page").Count != 0){
//定义默认链接字符串，第一页，尾页，上页，下页
//URL的page值（指定的当前页），当前页，当前每页显示数据数量
  var defaltStr,firstpage,lastpage,prepage,nextpage,pages,nowPage,nowSize
   defaltStr = '<a href="'+thisUrl+'?page='
   firstpage = defaltStr+'1">首页</a>'
   lastpage = defaltStr+pagecos+'">尾页</a>'
   pages = Request("page")
//如果处于第一页
//首页，上一页不为链接
  if(pages <= 1){
   rs.AbsolutePage = 1;
   firstpage = '首页'
   prepage = '上一页'
   nextpage = defaltStr+'2">下一页</a>'
//如果处于最后一页
//尾页，下一页不为链接
  }else if(pages >= pagecos){
   rs.AbsolutePage = pagecos;
   prepage = defaltStr+(pagecos-1)+'">上一页</a>'
   lastpage = '尾页'
   nextpage = '下一页'
  }else{
   rs.AbsolutePage = pages
   prepage = defaltStr+(Number(pages)-1)+'">上一页</a>'
   nextpage = defaltStr+(Number(pages)+1)+'">下一页</a>'
  }
 }
 nowPage = rs.AbsolutePage
 nowSize = rs.PageSize
//如果处于最后一页，并且数据显示数量与每页显示数据数量不相等时
//因为最后一页不可能每次都刚好与每页显示数据数量相等
//所以需要定义一个不相等的方法
 if(nowPage >= pagecos && (pagecos*rs.PageSize)%counts != 0){
  nowSize = counts%rs.PageSize
 }
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="userinfo">
 <tr>
  <td align="center">
<!--显示首页，上一页 -->
<%=firstpage%>　<%=prepage%>　
跳转到第 <select onchange="location.href='<%=thisUrl%>?page='+this.value"> 
<%
//分页依靠循环显示
 for(var num=1; num<=pagecos; num++){
  if(nowPage == num){
%>
<option value="<%=num%>" selected="selected"><%=num%></option>
<%
  }else{
%>
<option value="<%=num%>"><%=num%></option>
<%
  }
 }
%>
</select> 页 
<!--显示下一页，尾页 -->
　<%=nextpage%>　<%=lastpage%>
<!--显示当前页数，总页数，总记录数，每页显示数据数量 -->
　共 <%=nowPage%> / <%=pagecos%> 页 <%=counts%> / <%=rs.PageSize%> 条记录
  </td>
 </tr>

<%
//内容依靠循环显示
 for(var i=1;i<=nowSize;i++){
%>
<tr>
<td><span>用户IP：</span><%=rs("usip")%></td>
</tr>
<tr>
<td><span>建议：</span><%=rs("us1")%></td>
</tr>
<tr>
<td><span>提交时间：</span><%=rs("usetime")%></td>
</tr>
<%
//数据库游标向移向下一条记录
  rs.MoveNext();
 }
%>
</table>
<%
//如果数据库游标不在数据库列中
}else{
 Response.Write("没有用户信息!")
}
//关闭数据库连接
rs.Close()
%>