分页代码
鉴于大家对asp十分关注，我们编辑小组在此为大家搜集整理了“分页代码”一文，供大家参考学习
分页代码:<%''''本程序文件名为：Pages.asp%><%''''包含ADO常量表文件adovbs.inc，可从"\Program Files\Common Files\System\ADO"目录下拷贝%><!--#Include File="adovbs.inc"--><%''''＊建立数据库连接，这里是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%><HTML><HEAD><title>分页示例</title><script language=javascript> //点击"[第一页]"时响应： function PageFirst() { document.MyForm.CurrentPage.selectedIndex=0; document.MyForm.CurrentPage.onchange(); } //点击"[]"时响应： function PagePrior() { document.MyForm.CurrentPage.selectedIndex--; document.MyForm.CurrentPage.onchange(); } //点击"[]"时响应： function PageNext() { document.MyForm.CurrentPage.selectedIndex++; document.MyForm.CurrentPage.onchange(); } //点击"[最后一页]"时响应： function PageLast() { document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1; document.MyForm.CurrentPage.onchange(); } //选择"第？页"时响应： function PageCurrent() { //Pages.asp是本程序的文件名 document.MyForm.action=''Pages.asp?Page=''+(document.MyForm.CurrentPage.selectedIndex+1) document.MyForm.submit(); } </Script></HEAD><BODY bgcolor="#ffffcc" link="#008000" vlink="#008000" alink="#FF0000""> <%IF rs.Eof THEN Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>") ELSE ''''指定当前页码 If Request("CurrentPage")="" Then rs.AbsolutePage=1 Else rs.AbsolutePage=CLng(Request("CurrentPage")) End If ''''创建表单MyForm,方法为Get Response.Write("<form method=Get name=MyForm>") Response.Write("<p align=center><font size=2 color=#008000>") ''''设置翻页超链接 if rs.PageCount=1 then Response.Write("[第一页] [] [] [最后一页] ") else if rs.AbsolutePage=1 then Response.Write("[第一页] [] ") Response.Write("[<a href=javascript:PageNext()></a>] ") Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ") else if rs.AbsolutePage=rs.PageCount then Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") Response.Write("[<a href=javascript:PagePrior()></a>] ") Response.Write("[] [最后一页] ") else Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") Response.Write("[<a href=javascript:PagePrior()></a>] ") Response.Write("[<a href=javascript:PageNext()></a>] ") Response.Write("[<a href=javascript:PageLast()>