<％@语言=“ 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>页