<%@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 分页程序 </iteme>
<styleType = "text/css">
<!-
.Style1 {font-size: 12px}
->
</tyle> </head>
<body>
<p>
<tableWidth = "186" tinggi = "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*fromSer"
rs.opensql, Conn, 1,2
rs.pagesize = 6 '设置页面显示得页数
ifRequest ("halaman") <> "" Lalu
epage = cint (request ("page"))
Ifepage <1thenepage = 1
IfePage> rs.pagecountthenepage = rs.pagecount
kalau tidak
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
Berikutnya
%>
</boable>
<divalign = "kiri"> <spanclass = "style1">
<formMethod = "dapatkan" 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> 页