aspのもう一つの改ページコードの例
一つの改ページコード例<%''本プログラムのファイル名は、Pages.asp%><%''は、ADO定数テーブルファイルadobs.incを含み、「\Program」から Files\Common Files\System\ADO「ディレクトリ下コピー%」<！--唵Include File=「adovabs.inc」<%'＊データベース接続を確立しました。ここはOracle 8.05データベースSetです。 conn=Server.reat Object（「ADODB.C onnect」） conn.Open "Provider=msdaora.1データ Source=YourSrcename;User ID=YourUserIDPassword=YourPassword; セット rs=Server.reat Object（「ADODB.Recordset」） ''Recordsetオブジェクトを作成するrs.cerLocation=adUseClient ''レコードセットのポインタ属性'＊を設定し、必要に応じて調整することができます。 RS.PageSize=10 ''＊クエリ文の設定 StrSQL=「Select」 ID、名前、住所、電話番号 from 通信録 Order By ID" RS.Open StrSQL，conn，adOpenStatic，adLockReadOnly，adCmdText%<改ページ例 laguage=javascript>//「第一ページ」をクリックした時の応答：function PageFirst(){ document.MyForm.CurrentPage.selectedIndex=0document.MyForm.rarentPage.onchange()///「前のページ」をクリックした時の応答：function PagePrior（）{ document.MyForm.CurrentPage.selectedIndex--document.MyForm.rarentPage.onchange()///「次のページ」をクリックした時の応答：function PageNext(){ document.MyForm.CurrentPage.selectedIndex+;document.MyForm.rarentPage.onchange() } //「最後のページ」をクリックした時の応答：function PageLast(){ document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1document.MyForm.rarentPage.onchange()///を選択しますページ「時応答：function」 PageCurrrent(){ //Pages.aspは本プログラムのファイル名document.MyForm.action='Pages.asp？Page='（document.MyForm.CurrentPage.selectedIndex+1）document.MyForm.submit（）; <%IF s.Eof THEN Resonse.Write(' size=2 カラー[/color][/url]萋[データベースには記録されていません！]") Resonse.Write(\次ページ ") Resonse.Write('最後のページ ") else if rs.Absolute Page=rs.PageCount then Resonse.Write('第一ページ ") Resonse.Write('前ページ ") Resonse.Write('[次ページ] [最後のページ ") else Resonse.Write(<第一ページ ") Resonse.Write('前ページ ") Resonse.Write('次ページ ") Resonse.Write('最後のページ ") end if end if end if''は、ページ番号のResonse.Writeをブラウズするためのドロップダウンリストボックスを作成します。 size=1 name=CurentPage onchange=PageCurent()>" For i=1 ト rs.PageCount if RS.Absolute Page=i then Resonse.Write(<') ''現在のページ番号else Response.Write(')end if 次のテキスト Response.Write('/select'ページ/共有)&rs.PageCount&ページ 合計「&rs.RecordCount&」バーのレコード
“）” Response.Write(\/form)''は、Response.Writeを表示するテーブルを作成します。 align=センター cell pacing=1 cell padding=1 border=1") Resonse.Write(" borderカラー=铎99 CCFF bordercolordark=骢b 0 e 6 border colorlight=钾000066]“）Reponse.Write（”