<%@Sprache = "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">
<kopf>
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312"/>
<title> ASP 分页程序 </title>
<Syletyps = "text/css">
<!-
.Style1 {Schriftgröße: 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 =; triver = {microsoftAccessDriver (*. Mdb)};"
SQL = "Auswählen*FromuSer"
Rs.opensql, Conn, 1,2
rs.pageSize = 6 '设置页面显示得页数
IfRequest ("Seite") <> "" dann
epage = cint (request ("Seite"))
ifepage <1Thenepage = 1
ifepage> rs.pagecountThenePage = rs.pageCount
anders
Epage = 1
Endif
Rs.absolutepage = Epage
fei = 0Tors.pageSize-1
ifrs.boforrs.eofthenexitfor
%> <tr>
<td> <%= rs ("name")%> </td>
<td> <%= rs ("pass")%> </td>
</tr>
<%
Rs.Movenext
nächste
%>
</table>
<divalign = "links"> <spancklass = "style1">
<formMethod = "get" onsubmit = "" document.location = "casp? page = '+this.page.value; returnFalse;'">
<%ifepage = 1ThenResponse.Write ("首页") ElserePonse.Write ("<aRef = 'C.asp? Page = 1'>" & "首页" & "</a>")%>
<%ifepage = 1ThenResponse.Write ("上一页") ElSerePonse.Write "<Ahref = C.asp? Page =" & epage-1 & "> 上一页 </a>"%>
<%ifepage = rs.pageCountThenResponse.Write ("下一页") ElSerePonse.Write "<Ahref = C.asp? Page =" & Epage+1 & "> 下一页 </a>"%>
<%ifepage = rs.pageCountThenResponse.Write ("末页") ElSerePonse.Write "<Ahref = C.asp? page =" & rs.pageCount & "> 末页 </a>"%>
现在是第 <fontcolor = "rot"> <%= epage%> </font> 页一 页一 有 <fontcolor = "rot"> <%= Rs.PageCount%> </font> 页