<%@言語= "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>页