ASP分頁技術原始碼 (轉)[@more@]%>

<!--#Include File="adovbs.inc"--&gt
8.05資料庫
Set conn=Server.Create("ADO.Connection")
conn.Open "Provr=msdaora.1;Data =YourSrcName;User ID=YourUserID;Pass=YourPassword;"

Set rs=Server.CreateObject("ADODB.Recordset") ''建立Recordset
rs.CursorLocation=adUseClient ''設定記錄集指標屬性
''＊設定一頁內的記錄總數，可根據需要進行調整
rs.PageSize=10

''＊設定查詢語句
Str=" ID,姓名,住址,電話 from 通訊錄 Order By ID"
rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>

分頁示例

Response.Write("[資料庫中沒有記錄！]")
ELSE
''指定當前頁碼
If Request("CurrentPage")="" Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("CurrentPage"))
End If

''建立表單MyForm,方法為Get
Response.Write("")
Response.Write("

")
''設定翻頁超連結
if rs.PageCount=1 then
Response.Write("[第一頁] [上一頁] [下一頁] [最後一頁] ")
else
if rs.AbsolutePage=1 then
Response.Write("[第一頁] [上一頁] ")
Response.Write("[下一頁] ")
Response.Write("[最後一頁] ")
else
if rs.AbsolutePage=rs.PageCount then
Response.Write("[第一頁] ")
Response.Write("[上一頁] ")
Response.Write("[下一頁] [最後一頁] ")
else
Response.Write("[第一頁] ")
Response.Write("[上一頁] ")
Response.Write("[下一頁] ")
Response.Write("[最後一頁] ")
end if
end if
end if

''建立下拉選單框，用於選擇瀏覽頁碼
Response.Write("第頁/共"&rs.PageCount&"頁共"&rs.RecordCount&"條記錄

")
Response.Write("")

''建立表格，用於顯示
Response.Write("

Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")

Response.Write("")

Set Columns=rs.Fields

''顯示錶頭
For i=0 to Columns.Count-1
Response.Write("")
Next
Response.Write("")
''顯示內容
For i=1 to rs.PageSize
Response.Write("")
For j=0 to Columns.Count-1
Response.Write("")
Next
Response.Write("")

rs.movenext
if rs.EOF then exit for
Next

Response.Write("

")
Response.Write(""&Columns(i).name&"

"&Columns(j)&"

")

END IF
%>

''===程式在Server+IIS5.0+Oracle8.05下測試透過===
''===作者：夏春濤 E-:bluesky_521@yeah===
%>

ASP分頁技術原始碼 (轉)

相關文章