<%@Idioma = "vBscript" Codepage = "936"%>
<
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<Evista>
<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 =; controlador = {MicrosoftAccessDriver (*. Mdb)};"
sql = "select*fromUser"
Rs.Opensql, Conn, 1,2
rs.pagesize = 6 '设置页面显示得页数
ifRequest ("página") <> "" entonces
Epage = cint (request ("Página"))
ifepage <1thenepage = 1
ifepage> rs.pageCountThenEpage = Rs.PageCount
demás
Epage = 1
endif
Rs.AbsolutePage = Epage
fori = 0tors.pagesize-1
ifrs.boforrs.eofthenexitfor
%> <tr>
<TD> <%= rs ("nombre")%> </td>
<td> <%= rs ("pase")%> </td>
</tr>
<%
Rs.Movenext
próximo
%>
</table>
<divalign = "izquierda"> <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 ("上一页") ElseraSponse.Write "<ahref = c.asp? Page =" & Epage-1 & "> 上一页 </a>"%>
<%ifepage = rs.pageCountThenResponse.write ("下一页") ElseraSponse.Write "<ahref = c.asp? Page =" & Epage+1 & "> 下一页 </a>"%>
<%ifepage = rs.pageCountThenResponse.Write ("末页") ElseraSponse.Write "<ahref = c.asp? Page =" & rs.pageCount & "> 末页 </a>"%>
现在是第 <fontcolor = "rojo"> <%= epage%> </font> 页一 post 有 <fontcolor = "rojo"> <%= rs.pageCount%> </font> 页