<% dim rs,sql,i

                filePath = Server.MapPath("66.mdb")
                Set oConn = Server.CreateObject("ADODB.Connection")
                oConn.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,oConn,1,1
%>
<%
  rs.pagesize=20
  page=clng(Request("page"))
  if page<1 then page=1
  if page>rs.pagecount then page=rs.pagecount
  rs.AbsolutePage = page
%>
<table width="620" border="0">
  <% for i=1 to rs.pagesize %>
  <tr>
    <td width="128" valign="top"><% response.write rs("tel") %></td>
    <td width="482"><% response.write rs("text") %></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" name="B1" value="确定" onclick="ChkFields()">
<%
  if page>1 then
     Response.write("<a href=aa.asp?page=1>第一页</a>&nbsp;")
     Response.write("<a href=aa.asp?page="&(page-1)&">上一页</a>&nbsp;")
  end if
  if page <> rs.pagecount then
      Response.write("<a href=aa.asp?page="&(page+1)&">下一页</a>&nbsp;")
      Response.write("<a href=aa.asp?page="&rs.pagecount&">最后一页</a>&nbsp;")
  end if
%>
<% for i=1 to rs.pagecount
    if i <> page then
    response.write "<a href=aa.asp?page="&i&">" &i& "</a>&nbsp;"
    else
    response.write i&"&nbsp;"
    end if
   next
%>
页数:<% =page %>/<% =rs.pagecount %>
</form>

评论