<%
on error resume next
dim rs,sql,i
filePath = Server.MapPath("db.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
set rs =Server.CreateObject("adodb.recordset")
sql="select * from info order by id"
rs.open sql,conn,1,1
rs.pagesize=6
page=clng(Request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.AbsolutePage = page
%>
<table>
<% for i=1 to rs.pagesize %>
<tr>
<td ><% response.write rs("rec1") %></td>
<td ><% response.write rs("rec2") %></td>
</tr>
<% rs.movenext
If rs.EOF Then
Exit For
End If
next
%>
</table>
<script Language="JavaScript">
function ChkFields() {
if (document.Myform.page.value=='') {
window.alert ("请输入页数");
Myform.page.focus();
return false
}
Myform.action="aa.asp";
Myform.submit();
return true
}
</script>
<form mehtod="POST" name="Myform" >
输入页数:<input type="text" name="page" size="4">
<input type="button" value="确定" οnclick="ChkFields()">
<%
if page>1 then
Response.write("<a href=aa.asp?page=1>第一页</a> ")
Response.write("<a href=aa.asp?page="&(page-1)&">上一页</a> ")
end if
if page <> rs.pagecount then
Response.write("<a href=aa.asp?page="&(page+1)&">下一页</a> ")
Response.write("<a href=aa.asp?page="&rs.pagecount&">最后一页</a> ")
end if
for i=1 to rs.pagecount
if i <> page then
response.write "<a href=aa.asp?page="&i&">" &i& "</a> "
else
response.write i&" "
end if
next
%>
页数:<% =page %>/<% =rs.pagecount %>
</form>