%''包含ADO常量表文件adovbs.inc,可從"ProgramFilesCommonFilesSystemADO"目錄下拷貝%>
歡迎來到天天文庫
瀏覽記錄
ID:41131507
大?。?2.00 KB
頁數(shù):4頁
時間:2019-08-17
《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%>
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??Respon7、se.Write("")???Response.Write("")??''設置翻頁超鏈接??ifrs.PageCount=1then????Response.Write("[第一頁][上一頁][下一頁][最后一頁]")??else????ifrs.AbsolutePage=1then?????Response.Write("[第一頁][上一頁]")?????Response.Write("[8、PageNext()>下一頁]")?????
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()>下一頁]")?????
8、PageNext()>下一頁]")?????
此文檔下載收益歸作者所有