ASP分页显示之乱盖

答案：第一次写这种贴子  ：)
个人认为功能不错，完全自创，绝无抄袭，若有雷同，纯属巧合！
说明：
.pagesize          '定义每页显示记录数
.recordcount    '记录总数
.pagecount      '总页数
.absolutepage  '当前页码（页面）
index.asp        未加入任何版面设计，故有点乱。功能俺也没测试，理论上是可以实现的（除俺敲错键）。……
index.asp示例程序如下：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit  '强制要求定义变量
'on error resume next

dim page  '定义页码变量
page=Request.QueryString("page")  '获取地址栏页码
if IsNumeric(page) then  '页码为整数
  page=cint(page)
  if page<1 then page=1
else
  page=1
end if

dim strSql '定义sql语句  
'mtest 表名
'file1字段（这里例出一个字段，实际中一般是多个字段）
strSql="select file1 from mtest"

dim objConn,strConn,objRs
set objConn=server.CreateObject("ADODB.connection") 
strConn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db.mdb")
objConn.Open strConn
set objRs=server.CreateObject("ADODB.recordset")
objRs.open strSql, objConn, 1,1

if objRs.eof or objRs.bof then  '表内的记录情况
  '以下一段为及时关闭、释放资源
  objRs.close              
  set objRs=nothing
  objConn.close
  set objConn=nothing
  response.write "未有数据"
else
  objRs.pagesize=20 '一页显示的记录数
  dim intReCun,intPaCun
  intReCun=objRs.Recordcount  '总记录数
  intPaCun=objRs.pagecount    '总页数
  if page>intPaCun then page=intPaCun  '当前页码于总页数比较
  objRs.absolutepage=page

  response.write "共:"&intReCun&"页 当前为:"&intPaCun&"页"
  dim strFile1,i
  set strFile1=objRs("file1") '建立对象（这里例出一个字段，实际中一般是多个字段）
  i=1
  ' 这里应该用对象
  do while not objRs.eof and i<=20  '此时的20为是一页显示的记录数objRs.pagesize
      response.write(strFile1 & "<br>")
      i=i+1
    objRs.movenext '下移一位
  loop
  '  以下一段为及时关闭、释放资源
  objRs.close              
  set objRs=nothing
  objConn.close
  set objConn=nothing
  set strFile1=nothing
%>

  <table>
    <form action="index.asp" method="get" name="PostTopic">
    <tr>
      <td height="18" align="center"> <a href=>        <a href=>        <input name="page"  type="text" id="page" value="<%=page%>" size="6" maxlength="4">
        &nbsp;&nbsp;
        <input name=cmdConfrom type=submit id="cmdConfrom" value= 提交 >
        <a href=>      </td>
    </tr>
    </form>
  </table>
<%
end if
%>

上一个：用ASP、VB和XML建立互联网应用程序(1)
下一个：为你的网页加一个Loading !!!!