一个分页代码例子
<%''本程序文件名为: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("[第一页][上一页]")