<%''本程式檔名為：pages.asp%>
<%''包含ado常量表檔案adovbs.inc，可從"/program files/common files/system/ado"目錄下拷貝%>
<%''＊建立資料庫連線，這裡是oracle8.05資料庫
set conn=server.createobject("adodb.connection")
conn.open "provider=msdaora.1;data source=yoursrcname;user id=youruserid;password=yourpassword;"
set rs=server.createobject("adodb.recordset") ''建立recordset物件
rs.cursorlocation=aduseclient ''設定記錄集指標屬性
''＊設定一頁內的記錄總數，可根據需要進行調整
rs.pagesize=10
''＊設定查詢語句
strsql="select id,姓名,住址,** from 通訊錄 order by id"
rs.open strsql,conn,adopenstatic,adlockreadonly,adcmdtext
%>
<%if rs.eof then
response.write("[資料庫中沒有記錄！]")
else
''指定當前頁碼
if request("currentpage")="" then
rs.absolutepage=1
else
rs.absolutepage=clng(request("currentpage"))
end if
||||||''建立表單myform,方法為get
response.write("")
''建立**，用於顯示
response.write("")
response.write("")
set columns=rs.fields
''顯示表頭
for i=0 to columns.count-1
response.write("")
response.write(""&columns(i).name&"")
next
response.write("")
''顯示內容
for i=1 to rs.pagesize
response.write("")
for j=0 to columns.count-1
response.write(""&columns(j)&"
") next
response.write("")
rs.movenext
if rs.eof then exit for
next
response.write("")
end if
%>
<%
''===程式在win2000server+iis5.0+oracle8.05下測試通過===
ASP分頁技術原始碼
asp分頁技術原始碼 頂熱 本程式檔名為 pages.asp 包含ado常量表檔案adovbs.inc，可從 program files common files system ado 目錄下拷貝 建立資料庫連線，這裡是oracle8.05資料庫 set conn server.createobje...
asp分頁技術 經典
language vbscript codepage 936 姓名所屬分類 編號使用者編號 set rs server.createobject adodb.recordset sql select from syscolumns rs.open sql,conn,1,1 if not rs.eof...
PHP MSSQL分頁原始碼
連線資料庫 myserver 192.168.0.123 主機 myuser sa 使用者名稱 mypass 密碼 mydb mssql庫名 s mssql connect myserver,myuser,mypass d mssql select db mydb,s 分頁資訊 biao yongh...