ASP分页技术源码

《ASP分页技术源码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、<%''本程序文件名为：Pages.asp%><%''包含ADO常量表文件adovbs.inc，可从"ProgramFilesCommonFilesSystemADO"目录下拷贝%><%''＊建立数据库连接，这里是Oracle8.05数据库 Setconn=Server.CreateObject("ADODB.Connection")  conn.Open"Provider=msdaora.1;DataSource=YourSrcName;UserID=YourUserID;Passwo

2、rd=YourPassword;"  Setrs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象 rs.CursorLocation=adUseClient         ''设定记录集指针属性 ''＊设定一页内的记录总数，可根据需要进行调整 rs.PageSize=10                    ''＊设置查询语句   StrSQL="SelectID,姓名,住址,电话from通讯录OrderByID"     rs.OpenStrSQL,conn,adOpenStatic,adL

3、ockReadOnly,adCmdText%> //点击"[第一页]"时响应： functionPageFirst() {  document.MyForm.CurrentPage.selectedIndex=0;  document.MyForm.CurrentPage.onchange(); } //点击"[上一页]"时响应： functionPagePrior() {    document.MyForm.CurrentPage.sele

4、ctedIndex--;  document.MyForm.CurrentPage.onchange(); } //点击"[下一页]"时响应： functionPageNext() {  document.MyForm.CurrentPage.selectedIndex++;  document.MyForm.CurrentPage.onchange();     } //点击"[最后一页]"时响应： functionPageLast() {   document.MyForm.CurrentPage.selectedIndex=document.MyFor

5、m.CurrentPage.length-1;  document.MyForm.CurrentPage.onchange(); } //选择"第？页"时响应： functionPageCurrent() {//Pages.asp是本程序的文件名  document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)  document.MyForm.submit(); } 

6、k="#008000"vlink="#008000"alink="#FF0000""> <%IFrs.EofTHEN  Response.Write("[数据库中没有记录！]") ELSE   ''指定当前页码  IfRequest("CurrentPage")=""Then   rs.AbsolutePage=1  Else   rs.AbsolutePage=CLng(Request("CurrentPage"))  EndIf     ''创建表单MyForm,方法为Get  Respon

7、se.Write("")   Response.Write("")  ''设置翻页超链接  ifrs.PageCount=1then    Response.Write("[第一页][上一页][下一页][最后一页]")  else    ifrs.AbsolutePage=1then     Response.Write("[第一页][上一页]")     Response.Write("[

8、PageNext()>下一页]")