asp 分页代码示例

asp 分页代码有很多，这里举一个比较基础的小例，在这个例子中设置了一些细节上的判断，代码如下：

<%
 '排序
 dim rs,sql
  set rs=server.createobject("adodb.recordset")
  sql="select * from tabename order by columnname desc"   '这里只是一个查询例子，用到实际中请自行更改
  rs.open sql,conn,1,1
  '接收page
  rs.pagesize=5
  
  page=request.querystring("page")
  '没有传page值,那么page是空值,可以设置为1
  if page="" then page=1
  
   if isnumeric(page) then
     if page="" or cint(page)<1 then
      rs.absolutepage=1
     elseif cint(page)>rs.pagecount then
      rs.absolutepage=rs.pagecount
     else
      rs.absolutepage=page
     end if
    else
    rs.absolutepage=1
   end if
  %>