<%@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分页程序</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
else
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
next
%>
</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>"%>
<%ifepage=rs.pagecountthenresponse.write("末页")elseresponse.write"<ahref=c.asp?page="&rs.pagecount&">末页</a>"%>
现在是第<fontcolor="red"><%=epage%></font>页一共有<fontcolor="red"><%=rs.pagecount%></font>页