<%@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 {ขนาดตัวอักษร: 12PX}
-
</style> </head>
<body>
<p>
<TableWidth = "186" ความสูง = "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 ("หน้า") <> "" แล้ว
epage = cint (คำขอ ("หน้า"))
Ifepage <1thenepage = 1
ifepage> rs.pageCountThenePage = rs.pagecount
อื่น
EPAGE = 1
endif
Rs.absolutePage = epage
fori = 0tors.pagesize-1
ifrs.boforrs.eofthenexitfor
%> <tr>
<td> <%= rs ("ชื่อ")%> </td>
<td> <%= rs ("pass")%> </td>
</tr>
-
Rs.Movenext
ต่อไป
-
</table>
<divalign = "left"> <spanclass = "style1">
<formMethod = "รับ" 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> 页