<body style="text-align:center;">
<%
'建立數(shù)據(jù)庫連接
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("Data/#database#.mdb")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from fy id "
rs.open sql,conn,3,3
rs.pagesize=13 '每頁的記錄個(gè)數(shù)
pagesize1=rs.pagesize
totalrecords=rs.recordcount '總共記錄數(shù)
totalpages=rs.pagecount '總共頁數(shù)
'得到當(dāng)前頁
page=cstr(request("page"))
if page="" then
page=1
elseif cint(page)>cint(totalpages) then
page=totalpages
elseif cint(page)<1 then
page=1
end if
'定位到當(dāng)前頁
rs.absolutepage=page
n=1
while n<=rs.pagesize and not rs.eof
response.write rs("content")&"<br>"
rs.movenext
n=n+1
wend
%>
<span style="color:red;"><%=page%></span>/<%=totalpages%> 每頁<%=pagesize1%>條 共<%=totalrecords%>條記錄
<%
'頁面連接
if cstr(page)="1" then
response.write "首頁 上一頁"
else
response.write "<a href='?page=1'>首頁</a> <a href='?page="&page-1&"'>上一頁</a> "
end if
if cstr(page)=cstr(totalpages) then
response.write " 下一頁 尾頁"
else
response.write " <a href='?page="&page+1&"'>下一頁</a> <a href='?page='"&totalpages&"'>尾頁</a>"
end if
'可以轉(zhuǎn)到相應(yīng)的頁面，輸入完數(shù)字后，也可直接按回車鍵
%>
<form name="wdf" action="?" style="padding:0px;margin:0px;display:inline;">
<input type="text" name="page" style="width:20px;" onkeydown="enterkey();">
<input type="submit" value="GO">
</form>
</body>
</html>
