<٪@language = "vbscript" codepage = "936" ٪>
<! doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv = "content-type" content = "text/html ؛ charset = gb2312"/>
<title> ASP 分页程序 </itlem>
<StyleType = "Text/CSS">
<!-
.style1 {font-size: 12px}
->
</style> </head>
<body>
<p>
<tablewidth = "186" height = "39" border = "1" cellpadding = "0" cellspacing = "0">
<tr>
<td> 姓名 </td>
<td> 密码 </td>
</r>
<٪
setRs = server.createObject ("adodb.recordset")
conn = "dbq ="+server.mappath ("zheng.mdb")+"؛ defaultDir = ؛ driver = {MicrosoftAccessDriver (*. mdb)} ؛"
SQL = "SELECT*FROMUSER"
Rs.Opensql ، Conn ، 1،2
rs.pagesize = 6 '设置页面显示得页数
ifrequest ("صفحة") <> "ثم
epage = cint (طلب ("صفحة")))
ifepage <1thenepage = 1
ifePage> rs.pageCountThenePage = rs.pageCount
آخر
epage = 1
Endif
rs.absolutepage = epage
fori = 0tors.pagesize-1
ifrs.boforrs.eofthenexitfor
٪> <tr>
<td> <٪ = rs ("name") ٪> </td>
<td> <٪ = rs ("pass") ٪> </td>
</r>
<٪
Rs.Movenext
التالي
٪>
</table>
<divalign = "left"> <spanclass = "style1">
<portMethod = "get" onsubmit = "" "document.location =" C.asp؟ page = '+this.page.value ؛ returnfalse ؛' ">
<٪ ifePage = 1thenResponse.write ("首页") elseResponse.write ("<hhref = 'c.asp؟ page = 1'>" & "首页" & "</a>) ٪>
<٪ ifePage = 1thenResponse.write ("上一页") elseResponse.write "<ahref = c.asp؟ page =" & epage-1 & "> 上一页 </a>" ٪>
<٪ ifePage = rs.pageCountThenResponse.write ("下一页") elseResponse.write "<ahref = c.asp؟ page =" & epage+1 & "> 下一页 </a>" ٪>
<٪ ifePage = rs.pageCountThenResponse.write ("末页") elseResponse.write "<ahref = c.asp؟ page =" & rs.pageCount & "> 末页 </a>" ٪>
现在是第 <fontcolor = "red"> <٪ = epage ٪> </font> 页一页一 有 <fontcolor = "red"> <٪ = rs.pageCount ٪> </font> 页