第一次寫(xiě)這種貼子 ：)
個(gè)人認(rèn)為功能不錯(cuò)，完全自創(chuàng)，絕無(wú)抄襲，若有雷同，純屬巧合！
說(shuō)明：
.pagesize '定義每頁(yè)顯示記錄數(shù)
.recordcount '記錄總數(shù)
.pagecount '總頁(yè)數(shù)
.absolutepage '當(dāng)前頁(yè)碼（頁(yè)面）
index.asp 未加入任何版面設(shè)計(jì)，故有點(diǎn)亂。功能俺也沒(méi)測(cè)試，理論上是可以實(shí)現(xiàn)的（除俺敲錯(cuò)鍵）。……
index.asp示例程序如下：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit '強(qiáng)制要求定義變量
'on error resume next

dim page '定義頁(yè)碼變量
page=Request.QueryString("page") '獲取地址欄頁(yè)碼
if IsNumeric(page) then '頁(yè)碼為整數(shù)
page=cint(page)
if page<1 then page=1
else
page=1
end if

dim strSql '定義sql語(yǔ)句
'mtest 表名
'file1字段（這里例出一個(gè)字段，實(shí)際中一般是多個(gè)字段）
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 '表內(nèi)的記錄情況
'以下一段為及時(shí)關(guān)閉、釋放資源
objRs.close
set objRs=nothing
objConn.close
set objConn=nothing
response.write "未有數(shù)據(jù)"
else
objRs.pagesize=20 '一頁(yè)顯示的記錄數(shù)
dim intReCun,intPaCun
intReCun=objRs.Recordcount '總記錄數(shù)
intPaCun=objRs.pagecount '總頁(yè)數(shù)
if page>intPaCun then page=intPaCun '當(dāng)前頁(yè)碼于總頁(yè)數(shù)比較
objRs.absolutepage=page

response.write "共:"&intReCun&"頁(yè) 當(dāng)前為:"&intPaCun&"頁(yè)"
dim strFile1,i
set strFile1=objRs("file1") '建立對(duì)象（這里例出一個(gè)字段，實(shí)際中一般是多個(gè)字段）
i=1
' 這里應(yīng)該用對(duì)象
do while not objRs.eof and i<=20 '此時(shí)的20為是一頁(yè)顯示的記錄數(shù)objRs.pagesize
response.write(strFile1 & "<br>")
i=i+1
objRs.movenext '下移一位
loop
' 以下一段為及時(shí)關(guān)閉、釋放資源
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="index.asp">第一頁(yè)</a>
<a href="index.asp?page=<%=page-1%>">上一頁(yè)</a>
<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="index.asp?page=<%=page+1%>">下一頁(yè)</a> <a href="index.asp?page=<%=intPaCun%>">最后一頁(yè)</a>
</td>
</tr>
</form>

<%
end if
%>