<%
'Plattform: Win2000+IIS5.0+Sql2000
„PS: Die letzte Version wurde aktualisiert. Die letzte Version war die SQL-Version und es wurden keine gespeicherten Prozeduren verwendet.
„Vorherige Version: [Original] Ausgezeichneter Daten-Paging-Code auf Millionenebene – (lange beschäftigt) (http://bbs.bccn.net/thread-175543-1-1.html)
'--------------------------------------------Der folgende Code ist der Webseitencode
Response.Buffer = True
Dimmen Sie SqlLocalName, SqlUsername, SqlPassword, SqlDatabaseName
Dim ConnStr,Conn
'''''''''''''''''''''''''' SQL-Datenbank''''''''''''' '''''' ''''''''''''''''''''''''''''''''
SqlLocalName =(local)'Verbindungs-IP [lokale (lokale) fremde IP]
SqlUsername=sa 'Datenbankbenutzername
SqlPassword=XXXXXX 'Benutzerpasswort
SqlDatabaseName=NewsTable 'Datenbankname
ConnStr = Provider=Sqloledb;Benutzer-ID= & SqlUsername & ; Initial Catalog = & SqlDatabaseName & ;
'''''''''''''''''''''''''''''''''''''' '''''''' ''''''''''''''''''''''''''''''''
Bei Fehler Weiter fortsetzen
Setze Conn=Server.CreateObject(ADODB.Connection)
Conn.open ConnStr
Wenn Sie sich irren, dann
ähm.Klar
SetConn=Nichts
Response.Write <div style='font-size:14px;color=#ff0000' align='center'>Datenbankverbindungsfehler, bitte überprüfen Sie die Datenbankverbindungszeichenfolge</div>
Antwort.Ende
Ende wenn
„Diese Klasse führt Instanziierungscode aus, ohne alle möglichen Bedingungen für das Paging zu berücksichtigen.“ Diese Kategorie dient nur als Referenz
'------------------------------------------------ - -------------------------------------------------
'PageNo-aktuelle Seite;PageSizeX-Seitengröße;PageCountX-Gesamtzahl der Seiten;FieldCount-Gesamtzahl der Datensätze;StrWhere-Abfragebedingungen
Dimmen Sie PageNo,PageSizeX,PageCountX,FieldCount,StrWhere
„Aufgabe ausführen.“
PageNo=trim(Request.Querystring(PageNo))
PageSizeX=30' definiert die Paging-Größe
if isnumeric(PageNo) oder PageNo= then'Wenn kein Seitenwert vorhanden ist, initialisieren Sie den Wert
PageNo=abs(PageNo)
wenn PageNo=0, dann PageNo=1
anders
SeitenNr=1
Ende wenn
StrWhere=(ClassCode=0101 and Hits>20)'Hinweis: Achten Sie hier auf die Länge der Zeichen
set recom = server.createobject(adodb.command)
recom.activeconnection = Verbindung
recom.commandtype = 4
recom.commandtext = News_Class
recom.Parameters.Appendrecom.CreateParameter(@StrWhere,202,1,100,StrWhere)
recom.Parameters.Appendrecom.CreateParameter(@PageSize,3,1,,PageSizeX)
recom.Parameters.Appendrecom.CreateParameter(@PageIndex,3,1,,PageNo)
set rs = recom.execute()
wenn rs.eof dann
set rs=nothing : set recom=nothing: Conn.Close : set Conn=nothing
Response.write <script LANGUAGE='javascript'>alert('Derzeit kein Datensatz gefunden, bitte gehen Sie zurück und versuchen Sie es erneut!');history.go(-1);</script>
Antwort.Ende
Ende wenn
'Daten anzeigen
tun, während nicht rs.eof
Response.write&rs(Title)& Zeit hinzufügen:&rs(AddTime)&<br/>
rs.movenext
Schleife
'Ermitteln Sie die Gesamtzahl der Datensätze und berechnen Sie die Anzahl der Seiten
setze rs = rs.NextRecordset
wenn rs(countx) > 0 dann
FieldCount=rs(countx)
anders
FieldCount=0
Ende wenn
if (FieldCount mod PageSizeX)>0 dann
PageCountX=((FieldCount - (FieldCount mod PageSizeX))/ PageSizeX)+1
anders
PageCountX= (FieldCount / PageSizeX)
Ende wenn
'Schließen und geben Sie verwandte Ressourcen frei
set rs=nothing : set recom=nothing: Conn.Close : set Conn=nothing
'Paging anzeigen
wenn PageNo<=1 dann
Response.Write <font color='#FF0000'>[Home] [Vorherige Seite]</font>
anders
Response.Write[<a href='?PageNo=1' target='_self' title='Homepage'><font color='#FF0000'>Homepage</font></a>]
Response.Write[<a href='?PageNo=&(PageNo-1)&' target='_self' title='Vorherige Seite'><font color='#FF0000'>Vorherige Seite</font>< /a >]
Ende wenn
wenn PageNo>=PageCountX dann
Response.Write <font color='#FF0000'>[nächste Seite] [letzte Seite]</font>
anders
Response.Write[<a href='?PageNo=&(PageNo+1)&'target='_self' title='Nächste Seite'><font color='#FF0000'>Nächste Seite</font>< /a >]
Response.Write[<a href='?PageNo=&PageCountX&' target='_self' title='Letzte Seite'><font color='#FF0000'>Letzte Seite</font></a>]
Ende wenn
Response.Write[Page <font color=red>&PageNo&</font>/total <font color=red> & PageCountX &</font>]
Response.Write [Total<font color=red>&FieldCount&</font> items<font color=red>& PageSizeX & </font> items/page]
Response.Write Gehe zu & <input id=zhuanpage name=zhuanpage size=2 value=&PageNo&> & page <input type=submit value=Go onclick=gotoPage()>
Response.Write</td></tr></table>
Response.Write<script>function gotoPage(){var pg=document.getElementById('zhuanpage').value;if(isNaN(pg)||pg>&PageCountX&||pg<0){window.alert('Bitte seien Sie korrekt Geben Sie die Seitenzahl ein, die nur eine positive Ganzzahl sein kann und nicht größer als &PageCountX&');return sein darf false;}else{window.location.href='?PageNo='+document.getElementById('zhuanpage').value+'';return true;}}</script>
%>
'------------------------------------------------ - ------Der folgende Code ist der gespeicherte Prozedurcode
CREATE-ProzedurNews_Class
--Informationsnachrichten mit Millionen von Seiten
(
@StrWhere varchar(100),
@PageSize int,
@PageIndexint
)
ALS
deklarieren@strSQLvarchar(2000) – Hauptanweisung
deklarieren@strCountSQL varchar(2000) – Gesamtdatensatz-Hauptanweisung
deklarieren@strTmpvarchar(1000) – temporäre Variable
Set @strTmp = Select top + str(@PageSize) + Title,AddTime from Tb_News – Beachten Sie hier, dass mehrere Felder erforderlich sind, um mehrere Felder zu lesen
if @StrWhere<>''
Beginnen
Setze @strSQL=@strTmp + where ID < (select min(ID) from (select top + str((@PageIndex-1)*@PageSize)+ ID from Tb_News Where +@StrWhere+order by ID desc)as tblTmp ) und +@StrWhere+ Reihenfolge nach ID-Beschreibung
set @strCountSQL=select count(ID) as countx from Tb_News Where +@StrWhere+
Ende
anders
Beginnen
Setze @strSQL=@strTmp + wobei ID < (select min(ID) from (select top + str((@PageIndex-1)*@PageSize)+ ID from Tb_News order by ID desc)as tblTmp ) order by ID desc
set @strCountSQL=select count(ID) as countx from Tb_News
Ende
wenn @PageIndex = 1
if @StrWhere<>''
Beginnen
Setze @strSQL=@strTmp + Where +@StrWhere+ order by ID desc
Ende
anders
Beginnen
Setze @strSQL=@strTmp + Reihenfolge nach ID-Beschreibung
Ende
exec(@strSQL)
exec(@strCountSQL)
GEHEN