ASP分頁技術源碼

《ASP分頁技術源碼》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在工程資料-天天文庫。

1、<%''本程序文件名為：Pages.asp%><%''包含ADO常量表文件adovbs.inc，可從"ProgramFilesCommonFilesSystemADO"目錄下拷貝%><%''＊建立數(shù)據(jù)庫連接，這里是Oracle8.05數(shù)據(jù)庫?Setconn=Server.CreateObject("ADODB.Connection")??conn.Open"Provider=msdaora.1;DataSource=YourSrcName;UserID=YourUserID;Passwo

2、rd=YourPassword;"??Setrs=Server.CreateObject("ADODB.Recordset")?''創(chuàng)建Recordset對象?rs.CursorLocation=adUseClient?????????''設定記錄集指針屬性?''＊設定一頁內(nèi)的記錄總數(shù)，可根據(jù)需要進行調(diào)整?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("[數(shù)據(jù)庫中沒有記錄！]")?ELSE???''指定當前頁碼??IfRequest("CurrentPage")=""Then???rs.AbsolutePage=1??Else???rs.AbsolutePage=CLng(Request("CurrentPage"))??EndIf?????''創(chuàng)建表單MyForm,方法為Get??Respon

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

8、PageNext()>下一頁]")?????