?? 7-2.asp
字號:
<html>
<!--#include file = adovbs.inc -->
<%
'設置每一頁所要顯示的記錄條數,這里為10條。
PageSize=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方法連接數據庫。
Session("rs").open "article",Constr,adopenkeyset,adlockreadonly,adcmdtable
'設置Recordset對象的每一頁數據記錄條數大小。
Session("rs").PageSize=PageSize
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>"
for j=0 to Session("rs").PageSize-1
Response.write "<tr>"
'顯示順序值。
Response.write "<td>"&Session("rs").Absoluteposition&"</td>"
'其中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
Exit FOR
End if
next
response.write "</table><br>"
%>
<%'引入另一個文件,完成翻頁功能%>
<!--#include file=link2.asp-->
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -