?? pagev2.asp
字號:
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("person.mdb"))
set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM grade"
rs.Open sql, conn, 3
rs.PageSize = 4
'第一次顯示沒有頁碼,默認顯示第一頁
If Request("page") <> "" Then
iPage = Cint(Request("page"))
Else
iPage = 1
End If
Response.Write("當前第" & iPage & "頁")
rs.AbsolutePage = iPage
%>
<TABLE border="1"><TR>
<TD>學號</TD><TD>性別</TD><TD>姓名</TD><TD>數(shù)學</TD><TD>語文</TD><TD>英語</TD>
</TR>
<%
For I = 0 To rs.PageSize-1
If rs.EOF OR rs.BOF Then Exit For
Response.Write("<TR>")
Response.Write("<TD>" & rs("學號") & "</TD>")
Response.Write("<TD>" & rs("性別") & "</TD>")
Response.Write("<TD>" & rs("姓名") & "</TD>")
Response.Write("<TD>" & rs("數(shù)學") & "</TD>")
Response.Write("<TD>" & rs("語文") & "</TD>")
Response.Write("<TD>" & rs("英語") & "</TD>")
Response.Write("</TR>")
rs.movenext()
Next
conn.close()
%>
</TABLE>
<BR>
<A HREF="#">第一頁</A><A HREF="pageV2.asp?page=<%=iPage - 1%>"> 上一頁</A>
<A HREF="pageV2.asp?page=<%=iPage + 1%>"> 下一頁</A><A HREF="#"> 最后頁</A>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -