ch5ex18.asp

北大青鸟java教程

<!-- #Include virtual="/ADOVBS.INC" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=test;uid=sa;pwd=123456;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.Open "SELECT * FROM jobs", Conn
'设置每页显示4条记录
rs.PageSize =4
'返回当前所在的页数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
%>
<table border=1>
  <tr><td>序号</td>
<%
for i=0 to rs.Fields.Count-1
response.write "<td>"&rs.fields(i).name&"</td>"
next
%>
</tr>
<%
'设置当前页面
rs.absolutepage=page
'显示当前页面的记录
For iPage = 1 To rs.PageSize
RecNo = (Page - 1) * rs.PageSize + iPage
 %>
  <tr><td><%=RecNo%></td>
    <%for i=0 to rs.Fields.Count-1%>
<td><%=rs.fields(i).value%></td>
<%next%>
  </tr>
<%
rs.MoveNext
'如果已经到了记录的末尾，则应该提前跳出循环
    If rs.EOF Then Exit For
Next%>
</table>
<p align="center">
<% 
'显示第一页，上一页，下一页，最后一页的信息及创建有效的链接
If Page <> 1 Then
    Response.Write "<A HREF= Ch5Ex18.asp?Page=1>第一页</A>&nbsp;&nbsp;"
    Response.Write "<A HREF=Ch5Ex18.asp?Page=" & (Page-1) & ">上一页</A>&nbsp;&nbsp;"
End If
If Page <> rs.PageCount Then
    Response.Write "<A HREF=Ch5Ex18.asp?Page=" & (Page+1) & ">下一页</A>&nbsp;&nbsp;"
    Response.Write "<A HREF=Ch5Ex18.asp?Page=" & rs.PageCount & ">最后一页</A>"
End If
%>
</p><p align="center">页数： <%=Page%>/<%=rs.PageCount%></p>
<%
rs.close
Conn.close
set rs=nothing
set conn=nothing
%>