<%@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">
<голова>
<metahttp-equiv = "content-type" content = "text/html; charset = gb2312"/>
<title> asp 分页程序 </title>
<styletype = "text/css">
<!-
.Style1 {font-size: 12px}
->
</style> </head>
<тело>
<p>
<tablewidth = "186" height = "39" border = "1" cellpadding = "0" cell -spacing = "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.pearsize = 6 '设置页面显示得页数
ifrequest ("page") <> "" then
epage = cint (request ("page"))
ifepage <1thenepage = 1
ifepage> rs.pagecountthenepage = rs.pagecount
еще
epage = 1
эндиф
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>"%>
<%ifepage = rs.pagecountthenresponse.write ("末页") elseresponse.write "<ahref = c.asp? Page =" & rs.pagecount & "> 末页 </a>"%>
现在是第 <fontcolor = "red"> <%= epage%> </font> 页一页一 有 <fontcolor = "red"> <%= rs.pagecount%> </font> 页