<％@語言=“ vbscript” codepage =“ 936”％>
<！ doctypehtmlpublic“ - // w3c // dtdxhtml1.0transitional // en”“” http://www.org/tr/xhtml1/xhtml1/dtd/xhtml1/xhtml1-transitional.dtd'>
<htmlxmlns =“ http://www.w3.org/1999/xhtml”>
<頭>
<metahttp-equiv =“ content-type” content =“ text/html; charset = gb2312”/>
<title> ASP </title>
<styletype =“ text/css”>
<！ -
.Style1 {font-size：12px}
- >
</style> </head>
<身體>
<p>
<tablewidth =“ 186”高=“ 39” border =“ 1” cellpadding =“ 0” cellspacing =“ 0”>
<tr>
<td> </td>
<td> </td>
</tr>
<％
setrs = server.createobject（“ adodb.recordset”）
conn =“ dbq =”+server.mappath（“ zheng.mdb”）+“; defaultDir =; driver = {microsoftacCessDriver（*。mdb）};';
sql =“選擇*fromuser”
Rs.Opensql，Conn，1,2
rs.pagesize = 6'設置頁面顯示得頁數
Ifrequest（“ page”）<>“”然後
epage = cint（請求（“ page”））
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>
</tr>
<％
Rs.Movenext
下一個
％>
</table>
<divalign =“ left”> <spanclass =“ style1”>
<formMethod =“ get” onsubmit =“” document.location =“ c.asp？page ='+this.page.value; returnfalse;'''>
<％ifepage = 1thenresponse.write（“首頁”）elseresponse.write（“ <ahref ='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> </a>“％>”％>
<％ifepage = rs.pagecountthenresponse.write（“末頁”）elseresponse.write“ <ahref = c.asp？page =”＆rs.pagecount＆pagecount＆“>末頁</a>”％>
現在是第<<fontcolor =“ red”> <％= epage％> </font>頁一共有<fontcolor =“ red”> <％= rs.pagecount％> </font> </font>頁