?? split.asp
字號:
<!--#include file="conn.asp"-->
<%'包含conn.asp文件,該文件用來打開Connection對象,
'使用Include文件可以免去在每個ASP程序中寫連接語句的麻煩%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分頁顯示</title>
</head>
<body>
<%
'定義Recordset對象
Set rs=Server.CreateObject("ADODB.Recordset")
'設置ActiveConnection屬性
Set rs.ActiveConnection=conn
strSQL="Select * From eword"
'打開記錄集
rs.Open strSQL,conn,3,1
'設置每頁顯示3行記錄
rs.PageSize=3
'讀取參數
page=CLng(Request.QueryString("page"))
'處理無效頁碼
If page<1 then
page=1
End if
If page>rs.PageCount Then
page=rs.PageCount
End if
'設置當前頁
rs.AbsolutePage=page
%>
<h2 align="center">分頁顯示表eword</h2>
<br> 當前頁碼:<%=page%>/<%=rs.PageCount%>
<br>
<table border="1" width="100%">
<tr><td bgcolor="#c0c0c0">序號</td><td bgcolor="#c0c0c0">英文單詞</td>
<td bgcolor="#c0c0c0">中文解釋</td></tr>
<%
For i=1 To rs.PageSize
strNo=(page-1)*rs.PageSize + i
'在表中顯示字段值
Response.Write("<tr><td>" &CStr(strNo)& "</td><td>"& rs.Fields(0).Value &_
"</td><td>" & CStr(rs.Fields(1).Value)& "</td></tr>")
rs.MoveNext
'如果到達記錄集結尾,結束循環
If rs.Eof Then Exit For
Next
Response.Write("</table><br>")
'設置第一頁
If Page=1 Then
Response.Write "第一頁 "
Else
Response.Write("<a href=split.asp?page=1>第一頁</a>")
End If
'設置上一頁
If Page=1 Then
Response.Write " 上一頁 "
Else
Response.Write("<a href=split.asp?page=" & page-1 & ">上一頁</a>")
End If
'設置下一頁
If Page=rs.PageCount Then
Response.Write " 下一頁 "
Else
Response.Write("<a href=split.asp?page=" & page+1 & ">下一頁</a>")
End If
'設置最后一頁
If Page=rs.PageCount Then
Response.Write " 最后一頁"
Else
Response.Write("<a href=split.asp?page=" & rs.PageCount & ">最后一頁</a>")
End If
'斷開數據庫連接
conn.Close
If Conn.state=0 Then
End if
'釋放連接關閉數據庫
Set Conn=nothing
Set rs=nothing
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -