<%''++++++++++++++++++++++++++++++++++++++++++ +++++
''Anrufbeispiel
'Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
'int_RPP=2 'Legen Sie die pro Seite angezeigte Anzahl fest
'int_showNumberLink_=8 'Nummer der Navigationsanzeige
'showMorePageGo_Type_ = 1 'Ist es ein Dropdown-Menü oder ein Eingabewertsprung? Bei mehrmaligem Aufruf kann nur 1 ausgewählt werden
'str_nonLinkColor_="#999999" 'Nicht-Hotlink-Farbe
'toF_="<font face=webdings>9</font>" 'Homepage
'toP10_=" <font face=webdings>7</font>" 'Top Ten
'toP1_=" <font face=webdings>3</font>" 'Zurück
'toN1_=" <font face=webdings>4</font>" 'Weiter
'toN10_=" <font face=webdings>8</font>" 'Nächste zehn
'toL_="<font face=webdings>:</font>" 'Letzte Seite
'============================= ==============
'Dieser Code muss zwischen VClass_Rs.Open und der for-Schleife liegen
' Setze VClass_Rs = CreateObject(G_FS_RS)
' VClass_Rs.Open This_Fun_Sql,User_Conn,1,1
' WENN nicht VClass_Rs.eof DANN
' VClass_Rs.PageSize=int_RPP
' cPageNo=NoSqlHack(Request.QueryString("Page"))
' Wenn cPageNo="" Dann ist cPageNo = 1
' Wenn nicht isnumeric(cPageNo), dann ist cPageNo = 1
'cPageNo = Clng(cPageNo)
' Wenn cPageNo<=0, dann cPageNo=1
' Wenn cPageNo>VClass_Rs.PageCount, dann cPageNo=VClass_Rs.PageCount
' VClass_Rs.AbsolutePage=cPageNo
' FOR int_Start=1 TO int_RPP
''++++++++++++
'Fügen Sie einen Schleifenkörper hinzu, um Daten anzuzeigen
''++++++++++++
'VClass_Rs.MoveNext
' wenn VClass_Rs.eof oder VClass_Rs.bof dann beenden für
' NÄCHSTE
'ENDE WENN
'==========================================
'response.Write "<p>"& fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)
''++++++++++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++
'************************************************** * *********
'Zweck: Behalten Sie die Seitenparameter des Pagings bei
'Abfragekonsistenz senden
'Eingabe: moveParam: Paging-Parameter
'removeList: zu entfernende Parameter
'Return: Paging-URL
'************************************************** * *********
Funktion PageUrl(moveParam,removeList)
dim strName
dimmen Sie KeepUrl, KeepForm, KeepMove
removeList=removeList&","&moveParam
KeepForm=""
Für jeden strName in Request.Form
'Bestimmen Sie den Übermittlungs- und Nullwert in den Formularparametern
wenn nicht InstrRev(","&removeList&",",","&strName&",", -1, 1)>0 und Request.Form(strName)<>"" dann
KeepForm=KeepForm&"&"&strName&"="&Server.URLencode(Request.Form(strName))
Ende wenn
removeList=removeList&","&strName
Nächste
KeepUrl=""
Für jeden strName in Request.QueryString
Wenn nicht (InstrRev(","&removeList&",",","&strName&",", -1, 1)>0) Dann
KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName))
Ende wenn
Nächste
KeepMove=KeepForm&KeepUrl
Wenn (KeepMove <> "") Dann
KeepMove = Right(KeepMove, Len(KeepMove) - 1)
KeepMove = Server.HTMLEncode(KeepMove) & "&"
Ende wenn
'PageUrl = replace(Request.ServerVariables("URL"),"/Search.asp","/Search.html") & "?" & KeepMove & moveParam & "="
PageUrl = "?" & KeepMove & moveParam & "="
Funktion beenden
Funktion fPageCount(Page_Rs,showNumberLink_,nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,Page)
Dim This_Func_Get_Html_,toPage_,p_,sp2_,I,tpagecount
Dim NaviLength,StartPage,EndPage
This_Func_Get_Html_ = "" : I = 1
NaviLength=showNumberLink_
wenn IsEmpty(showMorePageGo_Type_), dann showMorePageGo_Type_ = 1
tpagecount=Page_Rs.pagecount
Wenn tPageCount<1, dann tPageCount=1,
wenn nicht Page_Rs.eof oder nicht Page_Rs.bof, dann
toPage_ = PageUrl("Page","submit,GetType,no-cache,_"),
wenn Page=1, dann
This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""Home"">"&toF_&"</font> " &vbNewLine
Anders
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&"1 title=""Homepage"">"&toF_&"</a> " &vbNewLine
Ende wenn
wenn Page<NaviLength dann
Startseite=1
anders
StartPage = fix(Seite / NaviLength) * NaviLength
Ende wenn
EndPage=StartPage+NaviLength-1
Wenn EndPage>tPageCount, dann EndPage=tPageCount.
Wenn StartPage>1, dann
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_& Page - NaviLength &" title=""上"&int_showNumberLink_&"Page"">"&toP10_&"</a> " &vbNewLine
Anders
This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""上"&int_showNumberLink_&"page"">"&toP10_&"</font> " &vbNewLine
Ende wenn
wenn Seite <> 1 und Seite <>0 dann
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&(Page-1)&" title=""Vorherige Seite"">"&toP1_&"</a> " &vbNewLine
Anders
This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""Vorherige Seite"">"&toP1_&"</font> " &vbNewLine
End If
For I=StartPage To EndPage
Wenn ich=Seite, dann
This_Func_Get_Html_=This_Func_Get_Html_& "<b>"&I&"</b>" &vbNewLine
Anders
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&I&">" &I& "</a>" &vbNewLine
Ende wenn
Wenn I<>tPageCount, dann This_Func_Get_Html_=This_Func_Get_Html_& vbNewLine
Weiter,
wenn Seite <> Page_Rs.PageCount und Seite <>0, dann
This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_&(Page+1)&" title=""Next Page"">"&toN1_&"</a> " &vbNewLine
Anders
This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""Nächste Seite"">"&toN1_&"</font> " &vbNewLine
End If
If EndPage<tpagecount Then
This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_& Page + NaviLength &" title=""下"&int_showNumberLink_&"Page"">"&toN10_&"</a> " &vbNewLine
Anders
This_Func_Get_Html_=This_Func_Get_Html_& " <font color="&nonLinkColor_&" title=""下"&int_showNumberLink_&"page"">"&toN10_&"</font> " &vbNewLine
End If
if Page_Rs.PageCount<>Page then
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&Page_Rs.PageCount&" title=""Last Page"">"&toL_&"</a>" &vbNewLine
Anders
This_Func_Get_Html_=This_Func_Get_Html_& "<font color="&nonLinkColor_&" title=""Last Page"">"&toL_&"</font>" &vbNewLine
End If
If showMorePageGo_Type_ = 1 dann
Dimmen Sie Show_Page_i
Show_Page_i = Seite + 1
Wenn Show_Page_i > tPageCount, dann ist 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('text',clipboardData .getData('text').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_& " Jump:<select NAME = menu1 onChange=""var Js_JumpValue;Js_JumpValue=this.options[this.selectedIndex].value;if(Js_JumpValue!='') location=Js_JumpValue;"">"
für i=1 bis tPageCount
This_Func_Get_Html_=This_Func_Get_Html_& "<option value="&topage_&i
if Page=i then This_Func_Get_Html_=This_Func_Get_Html_& " selected style='color:#0000FF'"
This_Func_Get_Html_=This_Func_Get_Html_& ">Seite "&cstr(i)&"</option>" &vbNewLine
nächste
This_Func_Get_Html_=This_Func_Get_Html_& "</select>" &vbNewLine
End if
This_Func_Get_Html_=This_Func_Get_Html_& p_&sp2_&" <b>"&Page_Rs.PageSize&"</b> Datensätze pro Seite, jetzt:<b><span class=""tx" "> „&sp2_&Page&“</span>/“&tPageCount&“</b> Seiten, insgesamt <b><span id='recordcount'>“&sp2_&Page_Rs.recordCount&“</span></b> Datensätze.“
sonst
„Keine Aufzeichnung
Ende wenn
fPageCount = This_Func_Get_Html_
Funktion beenden
%>
http://blog.csdn.net/hzf100/archive/2006/12/28/1465471.aspx