一個分頁代碼例子
<%''本程序文件名為:Pages.asp%>
<%''包含ADO常量表文件adovbs.inc,可從"/ProgramFiles/CommonFiles/System/ADO"目錄下拷貝%>
<!--#IncludeFile="adovbs.inc"-->
<%''*建立數據庫連接,這裡是Oracle8.05數據庫
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"Provider=msdaora.1;DataSource=YourSrcName;UserID=YourUserID;Password=YourPassword;"
Setrs=Server.CreateObject("ADODB.Recordset")''創建Recordset對象
rs.CursorLocation=adUseClient''設定記錄集指針屬性
''*設定一頁內的記錄總數,可根據需要進行調整
rs.PageSize=10
''*設置查詢語句
StrSQL="SelectID,姓名,住址,電話from通訊錄OrderByID"
rs.OpenStrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText
%>
<HTML>
<HEAD>
<title>分頁示例</title>
<scriptlanguage=javascript>
//點擊"[第一頁]"時響應:
functionPageFirst()
{
document.MyForm.CurrentPage.selectedIndex=0;
document.MyForm.CurrentPage.onchange();
}
//點擊"[上一頁]"時響應:
functionPagePrior()
{
document.MyForm.CurrentPage.selectedIndex--;
document.MyForm.CurrentPage.onchange();
}
//點擊"[下一頁]"時響應:
functionPageNext()
{
document.MyForm.CurrentPage.selectedIndex++;
document.MyForm.CurrentPage.onchange();
}
//點擊"[最後一頁]"時響應:
functionPageLast()
{
document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
document.MyForm.CurrentPage.onchange();
}
//選擇"第?頁"時響應:
functionPageCurrent()
{//Pages.asp是本程序的文件名
document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)
document.MyForm.submit();
}
</Script>
</HEAD>
<BODYbgcolor="#ffffcc"link="#008000"vlink="#008000"alink="#FF0000"">
<%IFrs.EofTHEN
Response.Write("<fontsize=2color=#000080>[數據庫中沒有記錄!]</font>")
ELSE
''指定當前頁碼
IfRequest("CurrentPage")=""Then
rs.AbsolutePage=1
Else
rs.AbsolutePage=CLng(Request("CurrentPage"))
EndIf
''創建表單MyForm,方法為Get
Response.Write("<formmethod=Getname=MyForm>")
Response.Write("<palign=center><fontsize=2color=#008000>")
''設置翻頁超鏈接
ifrs.PageCount=1then
Response.Write("[第一頁][上一頁][下一頁][最後一頁]")
else
ifrs.AbsolutePage=1then
Response.Write("[第一頁][上一頁]")