?? 7-1.asp
字號:
<html>
<!--#include file = adovbs.inc -->
<%
'設置每一頁所要顯示的記錄條數，這里為10條。
Session("flag")=10
'以Recordset對象的Open方法參數設置的方法連接數據庫
Set session("rs")=Server.CreateObject("Adodb.recordset")
Constr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("test.mdb")
Session("rs").cursorlocation=aduseclient
'Recordset對象的Open方法參數意義分別是：表名，數據庫連接信息，啟動keyset類型的
'游標，采取的Lock類型為只讀，指示ADO生成SQL查詢以便從在Source中命名的表中
'返回所有行。
Session("rs").open "article",Constr,adopenkeyset,adlockreadonly,adcmdtable
Response.write "<center><table border=3 bgcolor=00ffee cellspacing=0>"
response.write "<tr>"
response.write "<td>順序</td>"
for i=0 to session("rs").fields.count-1
'顯示表的各個數據字段的名稱
response.write "<td>"&Ucase(Session("rs")(i).name)&"</td>"
next
response.write "</tr>"
'記錄開始時，當前數據指針在Recordset對象的位置
Session("start")=Session("rs").AbsolutePosition
for j=0 to Session("flag")-1
Response.write "<tr>"
Response.write "<td>"&Session("rs").Absoluteposition&"</td>"
'記錄結束時，當前數據指針在Recordset對象的位置
Session("end")=session("rs").Absoluteposition
'其中session("rs").fields.count表示表的字段數
for i=0 to session("rs").fields.count-1
'把當前的數據記錄顯示出來
response.write "<td>"&session("rs").fields(i).value&"</td>"
next
response.write "</tr>"
'移到下一條數據記錄，然后判斷是否到表尾，是把數據指針移到表頭。
session("rs").movenext
if session("rs").Eof then
session("rs").MovePrevious
exit FOR
end if
next
response.write "</table>"
%>
<%'引入另一個文件，完成翻頁功能%>
<!--#include file=link.asp-->
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -