Ein ASP + SQLServer-Paging-Programm von mir: Die Besonderheit dieses Programms besteht darin, die Datensätze der aktuellen Seite auf der Seite abzulegen. Die Leistung ist gut und es sind keine gespeicherten Prozeduren erforderlich. Da der Code nicht gekapselt ist, ist er sehr fragmentiert. Um ihn in Ihrem Programm verwenden zu können, müssen Sie ihn kurz lesen. Achten Sie dann auf die Bedeutung der Orte, die Sie selbst festlegen müssen. Einige können weggelassen werden. Einige Parameterübergaben können auch weggelassen werden.
Der Code lautet wie folgt:
'''' Das Snow-Paging-Tool von Saibei (SQL-Server) erfordert keine gespeicherten Prozeduren --------------------------- ---
'Es gibt # in den Kommentaren ## erfordert Benutzereinstellungen
'Es gibt eine Beschreibung der Parameterübergabe** im Kommentar, die über Parameter übergeben werden soll.
'Variablen definieren
dim tOption 'Abfragebedingungen
dim tOrder 'Strings sortieren
dim tOrderField 'Das Bestellfeld kann über folgende Parameter abgerufen werden: order_field
dim tOrderDirection 'Sortierrichtung kann über folgende Parameter ermittelt werden: order_direction
dim tPageSize 'Seitengröße
dim tTotalCount 'Die Gesamtzahl der Datensätze kann über die folgenden Parameter ermittelt werden: t_count
dim tPageCount 'Anzahl der Seiten
dim tCurPage 'Die aktuelle Seitennummer kann über folgende Parameter ermittelt werden: page
dim tTableName 'Tabellen- oder Ansichtsname
dim tFieldAlias ‘Alias der Zeilennummer
dim tFieldList 'Feldliste abfragen
dim tPageField 'Feld, das für das Paging verwendet wird.
dim r_count 'Anzahl der gefundenen Datensätze
set rs=server.createobject("adodb.recordset") 'Record Set Object
' Sortierverarbeitung
tOrderField=Request("order_field") 'Sortierfeld abrufen (Parameterübergabe**)
tOrderDirection=Request("order_dir") 'Sortierrichtung abrufen (Parameterübergabe**)
if(tOrderField="") then tOrderField="item_code" ' ### Legen Sie das Standardsortierfeld fest
if(tOrderDirection="") then tOrderDirection="asc" ' ### Legen Sie die Standardsortierrichtung fest
„www.downcodes.com
tOrder=" order by " & tOrderField & " " & tOrderDirection & " " 'Sortierzeichenfolge generieren
'Parameter definieren
tPageSize=find_rs_count ' ### Seitengröße festlegen
tTableName="view_select1" ' ### Tabelle oder Ansicht festlegen und abfragen
tFieldList=" * " ' ### Feldliste, die abgefragt werden soll
tPageField="item_code" ' ### Legen Sie einen Primärschlüssel oder ein eindeutiges Indexfeld für Paging-Berechnungen fest
'Seitenverarbeitung
tCurPage=Request("page") 'Holen Sie sich die aktuelle Seite (Parameterübergabe**)
tTotalCount=Request("t_count") 'Ermitteln Sie die Gesamtzahl der Seiten (Parameterübergabe**)
if(tCurPage="") then tCurPage=1
if(cint(tCurPage)=0) then tCurPage=1
if(tPageCount="") dann tPageCount =1
if(cint(tPageCount)=0) then tPageCount=1
' Abfragebedingungen erstellen, die je nach Programm definitiv unterschiedlich sein werden. Aber die letzte Bedingung muss sein „wo ???“
tOption=" issue_flag='Y'" ' ### Bedingungen festlegen
if f_c<>"" then tOPtion= tOPtion & f_c ' ### Bedingungen festlegen
if trim(tOption)="" then
tOption = " where 1=1 " 'Wenn es keine Bedingung gibt, fügen Sie selbst eine hinzu.
anders
tOption= " where " & tOPtion
Ende wenn
'Konstruieren Sie die Abfragezeichenfolge, den Kern dieses Paging-Programms. Diese Abfragezeichenfolge ist der Datensatz, den wir nur zum Herunterladen der aktuellen Seite benötigen.
if(tCurPage>1) then
conStr="select top " & tPageSize & " " & tFieldList & " from " & tTableName & tOption
conStr =conStr & " und " & tPageField & " not in(select top " & tPageSize*(tCurPage-1) & " " & tPageField & " from " & tTableName & tOption & " " & tOrder & ") " & tOrder
anders
conStr="select top " & tPageSize & " " & tFieldList & " from " & tTableName & tOption & " " & tOrder
Ende wenn
'Führen Sie die Hauptabfrage aus und rufen Sie den entsprechenden Datensatz ab
Call ConnDataBase() ' ### Stellen Sie eine Datenbankverbindung her
rs.cursorlocation=3
rs.open conStr,conn,3,1 'Abfrage ausführen
r_count = rs.recordcount
„Wenn die Gesamtzahl der Datensätze nicht abgefragt wurde und die Gesamtzahl der Datensätze die Seitengröße überschreitet, fragen Sie die Gesamtzahl der Datensätze unter den aktuellen Bedingungen ab.“
if(r_count>=tPageSize oder tCurPage>1) und tTotalCount=0 then
set rr=conn.execute("select count(*) from " & tTableName & " " & tOption)
tTotalCount=rr(0)
rr.close()
setrr=nichts
Ende wenn
if(cint(tTotalCount)=0) then tTotalCount=r_count 'Wenn die Gesamtzahl der Datensätze 0 beträgt, wird die Anzahl der Datensätze im aktuellen Differenzdatensatzsatz auf die Gesamtzahl der Datensätze gesetzt, was angibt, dass die aktuelle Gesamtzahl der Datensätze kleiner ist als die Seitengröße
„Berechnen Sie die Anzahl der Seiten anhand der Seitengröße und der Gesamtzahl der Datensätze.“
if(cint(tTotalCount)>cint(tPageSize)) dann
tPageCount=cint((cint(tTotalCount) cint(tPageSize)))
if(cint(tTotalCount) mod cint(tPageSize))>0 dann
tPageCount =tPageCount +1
Ende wenn
Ende wenn
tCurPage=cint(tCurPage)
tPageCount=cint(tPageCount)
'------------------------------------------------ - -------------------
Dies ist der gesamte Code. Interessierte Freunde können ihn studieren oder kapseln und Paging-Navigation und andere Methoden hinzufügen. Wie auch immer, ich hoffe, dass dieser Code für alle nützlich sein kann.