<％@言語= "vbscript" codepage = "936"％>
<
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<title>asp分页程序</title>
<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>
</tr>
<％
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（ "page"）<> "" then
epage = cint（request（ "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.pagecountthensponse.write（ "下一页"）elseresponse.write "<ahref = c.asp？page ="＆epage+1＆ ">下一页</a>"％>
<％ifepage = rs.pagecountthensponse.write（ "末页"）elseresponse.write "<ahref = c.asp？page ="＆rs.pagecount＆ ">末页</a>"％>
现在是第<fontcolor = "red"> <％= epage％> </font>页一<fontcolor = "red"> <％= rs.pagecount％> </font>页