Kode pagination yang dapat menyimpan nilai parameter di asp

Penulis：Eve Cole Waktu Pembaruan：2009-06-25 17:39:22

<%''++++++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
''Contoh panggilan
'Redupkan int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
'int_RPP=2 'Atur nomor yang ditampilkan per halaman
'int_showNumberLink_=8 'Nomor tampilan navigasi nomor
'showMorePageGo_Type_ = 1 'Apakah menu drop-down atau lompatan nilai input? Jika dipanggil beberapa kali, hanya 1 yang dapat dipilih
'str_nonLinkColor_="#999999" 'Warna tautan tidak panas
'toF_="9" 'Beranda
'toP10_=" 7" 'Sepuluh besar
'toP1_=" 3" 'Sebelumnya
'toN1_=" 4" 'Selanjutnya
'toN10_=" 8" 'Sepuluh berikutnya
'toL_=":" 'Halaman terakhir

'=============== ==============
'Kode ini harus berada di antara VClass_Rs.Open dan loop for
' Setel VClass_Rs = CreateObject(G_FS_RS)
' VClass_Rs.Buka Ini_Fun_Sql,User_Conn,1,1
' JIKA bukan VClass_Rs.eof THEN
' VClass_Rs.PageSize=int_RPP
' cPageNo=NoSqlHack(Permintaan.QueryString("Halaman"))
' Jika cPageNo="" Maka cPageNo = 1
' Jika bukan isnumerik(cPageNo) Maka cPageNo = 1
'cPageNo = Clng(cPageNo)
' Jika cPageNo<=0 Maka cPageNo=1
' Jika cPageNo>VClass_Rs.PageCount Kemudian cPageNo=VClass_Rs.PageCount
' VClass_Rs.AbsolutePage=cPageNo
'UNTUK int_Start=1 SAMPAI int_RPP
''++++++++++
'Tambahkan badan loop untuk menampilkan data
''++++++++++
'VClass_Rs.MoveNext
' jika VClass_Rs.eof atau VClass_Rs.bof lalu keluar
' BERIKUTNYA
'AKHIR JIKA
'===============
'response.Tulis ""& fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)

''++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++
'******************************************************* *********
'Tujuan: Menjaga parameter halaman paging
'Kirim konsistensi kueri
'Masukan: moveParam: parameter paging
'removeList: parameter yang akan dihapus
'Kembali: Url paging
'******************************************************* *********
Fungsi PageUrl(moveParam,removeList)
redupkan nama str
redupkan KeepUrl,KeepForm,KeepMove
hapusList=removeList&","&moveParam
PertahankanForm=""
Untuk Setiap strName di Request.Form
'Tentukan nilai kirim dan nol dalam parameter formulir
jika bukan InstrRev(","&removeList&",","&strName&",", -1, 1)>0 dan Request.Form(strName)<>"" maka
KeepForm=KeepForm&"&"&strName&"="&Server.URLencode(Permintaan.Form(strName))
berakhir jika
hapusDaftar=hapusDaftar&","&strNama
Berikutnya

PertahankanUrl=""
Untuk Setiap strName Di Request.QueryString
Jika tidak (InstrRev(","&removeList&",","&strName&",", -1, 1)>0) Maka
KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName))
Akhiri Jika
Berikutnya

KeepMove=KeepForm&KeepUrl

Jika (KeepMove <> "") Lalu
KeepMove = Kanan(KeepMove, Len(KeepMove) - 1)
KeepMove = Server.HTMLEncode(KeepMove) & "&"
Akhiri Jika

'PageUrl = ganti(Request.ServerVariables("URL"),"/Search.asp","/Search.html") & "?" & KeepMove & moveParam & "="
PageUrl = "?" & KeepMove & moveParam & "="
Fungsi Akhir

Fungsi fPageCount(Page_Rs,showNumberLink_,nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,Page)

Redupkan This_Func_Get_Html_,toPage_,p_,sp2_,I,tpagecount
Redupkan NaviLength,StartPage,EndPage

This_Func_Get_Html_ = "" : I = 1
NaviLength=showNumberLink_

jika IsEmpty(showMorePageGo_Type_) lalu showMorePageGo_Type_ = 1
tpagecount=Halaman_Rs.jumlah halaman
Jika tPageCount<1 Maka tPageCount=1

jika bukan Page_Rs.eof atau bukan Page_Rs.bof maka

toPage_ = PageUrl("Page","submit,GetType,no-cache,_")

jika Page=1 maka
This_Func_Get_Html_=This_Func_Get_Html_& ""&toF_&" " &vbNewLine
Kalau tidak
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&"1 title=""Beranda"">"&toF_&"</a> " &vbNewLine
Akhiri Jika
jika Halaman<NaviLength maka
Halaman Awal=1
kalau tidak
Halaman Awal = memperbaiki(Halaman / Panjang Navi) * Panjang Navi
berakhir jika
Halaman Akhir=Halaman Awal+NaviLength-1
Jika EndPage>tPageCount Maka EndPage=tPageCount

Jika StartPage>1 Maka
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_& Page - NaviLength &" title=""上"&int_showNumberLink_&"Page"">"&toP10_&"</a> " &vbNewLine
Kalau tidak
This_Func_Get_Html_=Ini_Func_Get_Html_& ""&toP10_&" " &vbNewLine
Akhiri Jika

Jika Halaman <> 1 dan Halaman <>0 Lalu
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&(Page-1)&" title=""Halaman Sebelumnya"">"&toP1_&"</a> " &vbNewLine
Kalau tidak
This_Func_Get_Html_=This_Func_Get_Html_& ""&toP1_&" " &vbNewLine
Berakhir Jika

Untuk I=Halaman Awal Ke Halaman Akhir
Jika I=Halaman Lalu
This_Func_Get_Html_=Ini_Func_Get_Html_& ""&I&"" &vbBaris Baru
Kalau tidak
This_Func_Get_Html_=Ini_Func_Get_Html_& "<a href="&toPage_&I&">" &I& "</a>" &vbNewLine
Akhiri Jika
Jika saya<>tPageCount Maka This_Func_Get_Html_=This_Func_Get_Html_& vbNewLine
Berikutnya

Jika Halaman <> Page_Rs.PageCount dan Halaman <>0 Lalu
This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_&(Page+1)&" title=""Halaman Berikutnya"">"&toN1_&"</a> " &vbNewLine
Kalau tidak
This_Func_Get_Html_=Ini_Func_Get_Html_& ""&toN1_&" " &vbNewLine
Akhiri Jika

Jika Halaman Akhir<tjumlah halaman Lalu
This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_& Page + NaviLength &" title=""下"&int_showNumberLink_&"Page"">"&toN10_&"</a> " &vbNewLine
Kalau tidak
This_Func_Get_Html_=Ini_Func_Get_Html_& " "&toN10_&" " &vbNewLine
Akhir Jika

jika Page_Rs.PageCount<>Halaman lalu
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&Page_Rs.PageCount&" title=""Halaman Terakhir"">"&toL_&"</a>" &vbNewLine
Kalau tidak
This_Func_Get_Html_=This_Func_Get_Html_& ""&toL_&"" &vbNewLine
Berakhir Jika

Jika showMorePageGo_Type_ = 1 maka
Redupkan Tampilkan_Halaman_i
Tampilkan_Halaman_i = Halaman + 1
jika Show_Page_i > tPageCount maka Show_Page_i = 1
This_Func_Get_Html_=This_Func_Get_Html_& "<input type=""text"" size=""4"" maxlength=""10"" name=""Func_Input_Page"" onmouseover=""this.focus();"" onfocus="" this.value='"&Show_Page_i&"';"" onKeyUp=""value=value.replace(/[^1-9]/g,'')"" onbeforepaste=""clipboardData.setData('teks',clipboardData .getData('teks').replace(/[^1-9]/g,''))"">" &vbNewLine _
&"<input type=""button"" value=""Go"" onmouseover=""Func_Input_Page.focus();"" onclick=""javascript:var Js_JumpValue;Js_JumpValue=document.all.Func_Input_Page.value;if (Js_JumpValue=='' || !isNaN(Js_JumpValue)) location='"&topage_&"'+Js_JumpValue; else location='"&topage_&"1';"">" &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& " Lompat:<pilih NAMA = menu1 onChange=""var Js_JumpValue;Js_JumpValue=ini.options[this.selectedIndex].value;if(Js_JumpValue!='') location=Js_JumpValue;"">"
untuk i=1 hingga tPageCount
This_Func_Get_Html_=Ini_Func_Get_Html_& "<nilai opsi="&topage_&i
jika Halaman=i maka This_Func_Get_Html_=This_Func_Get_Html_& " gaya yang dipilih='warna:#0000FF'"
This_Func_Get_Html_=This_Func_Get_Html_& ">Halaman "&cstr(i)&"</option>" &vbNewLine
Berikutnya
This_Func_Get_Html_=This_Func_Get_Html_& "</select>" &vbNewLine

Berakhir jika

This_Func_Get_Html_=This_Func_Get_Html_& p_&sp2_&"  "&Page_Rs.PageSize&" mencatat per laman, sekarang: "&sp2_&Page&"/"&tPageCount&" halaman, total "&sp2_&Page_Rs.recordCount&" data."

else
'Tidak ada catatan
berakhir jika
fPageCount = Ini_Func_Get_Html_
Fungsi Akhir
%>
http://blog.csdn.net/hzf100/archive/2006/12/28/1465471.aspx