*/ -------------------------------------------- ------------------------------------------ -------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------
*/Von: Jianzheng State http://www.jzxue.com
*/ Autor: Tianya Hören Sie sich Rain E-Mail an: [email protected]: 809252803
*/ Zeit: 2007-10-6 Programmierforum Erster Start
*/ Aussage: Respektieren Sie die Arbeit des Autors, bitte behalten Sie den Text in diesem Absatz
*/ -------------------------------------------- ------------------------------------------ -------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------
<%
'Name: Millionen Datenpraxis
'Autor: Tianya hör auf Regen
Zeit: 6. Oktober 2007
'Plattform: Win2000+IIS5.0+SQL2000
Affiller: Verwenden Sie es so einfach wie beim ersten Mal.
'------------------------------------------------- --------------------------------------- --------- Verbinden Sie die Datenbank
Response.buffer = true
Dim SqllocalName, SQLUSERNAME, SQLPASSWORD, SQLDATABAS
Dim Connstr, Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
SqllocalName = (lokal) 'Verbinden von IP [lokal (lokal) IP IP IP IP]
SQLUSERNAME = SA 'Datenbank Benutzername
SQLPassword = xxxxxx 'Benutzerkennwort
SQLDATABASENAME = News2008 'Datenbankname
ConnStr = SQLOLEDB;
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Connstr
Wenn irren
err.clear
Setzen Sie Conn = nichts
Antwort.
Antwort.end
Ende wenn
'------------------------------------------------- --------------------------------------- --------- Verbinden Sie die Datenbank zu vervollständigen
'Variablen definieren
TBLNAME-TIBLE-NAME;
STRSQL-TOTAL-Ausführung;
Dim Tblname, fldname, fieldname, pageSizex, pagecountx, pageno, ordretyp, Strhere
Dim Strsql, FieldCount, Strtmp, Strororder, Topfield
''
Pageno = trim (request.queryString (pageno))
Wenn isnumerisch (pageno) oder pageno = dann 'dann' Wenn es keinen Seitenwert gibt, ist der Initialisierungswert
Pageno = ABS (Pageno)
Wenn pageno = 0 dann Pageno = 1
anders
Pageno = 1
Ende wenn
Tblname = tableenews
Fldname = id 'zeigt, dass der Sortierfeldwert in der Datenbank nicht wiederholt werden kann: Es wird empfohlen, dass der Primärschlüssel empfohlen wird
Fieldname = ID, Titel, addTime
PageSizex = 30
OrderType = 1 '0-is der Order 1-Liter 1-Liter
STRWHY = (Code = '0101') und (Hits> 100) 'Hinweis: Wenn eine Bedingung verwendet wird () Doppel -Klammern
Topfield = (pageno-1)*pageSizex'top
wenn orderype = 0 dann
Strtmp = <(SELECT MIN
Storder = order von [& fldname &] desc
anders
STRTMP => (Wählen Sie max aus
Storder = order von [& fldname &] ASC
Ende wenn
'Definieren Sie SQL -Anweisungen
STRSQL = SELECT TOP & CLNG (PageSizex) & FieldName & From & Tblname &
Wenn pageno = 1 dann 'dann' Wenn es sich um die erste Seite handelt, führen Sie den folgenden Code aus, um die Bibliothek schnell zu überprüfen
Wenn Strhere <> dann
STRSQL = STRSQL & WO & STRWHY & STRORDER & STRORDER &
anders
STRSQL = STRSQL & STRORDER
Ende wenn
anders
Wenn Strhere <> dann
STRSQL = STRSQL & WHERE & FLDNAME & STRTMP & (& FLDNAME &) VON (SELECT TOP & CLNG (TOPFIELD) & FLDNAME & FRM & TBLNAME & STRWHWHY & STR. URSE &) AS TBLTMP) und STRWHY & SORTER & STRORTER & STRORE & STR.
anders
STRSQL = STRSQL & WHERE & FLDNAME & STRTMP & (& FLDNAME &) von (Select Top & CLNG (Topfield) & Fldname & Tblname & Strrener & AS TBLTMP) & stärker & stärker & stärker & stärker & stärker
Ende wenn
Ende wenn
Setzen Sie rs = const.execute (STRSQL) 'Abfrage aus.
Wenn Rs.Bof und rs.eof dann
Conn.close: conn = nichts setzen
response.write <script Sprache = 'JavaScript'> alert ('Gegenwärtig werden keine Datensätze gefunden, bitte zur erneuten Operation zurückkehren! "); Geschichte (-1); </script>
Antwort.end
Ende wenn
Wenn Strwhere <>, dann sucht die Gesamtdatensätze
FieldCount = conn.execute (select count (& fldname &) von & tblname & strhow &) (0) (0)
anders
FieldCount = conn.execute (select count (& fldname &) von & tblname &) (0)
Ende wenn
if (fieldCount mod npageSize)> 0, dann finden Sie die Gesamtseitennummer pagecountx
Pagecountx = (fieldCount- (fieldCount mod mod modsizex))/ pageSizex +1
anders
Pagecountx = (fieldCount / pageSizex)
Ende wenn
'Daten anzeigen
tun, während nicht Rs.Eof
Antwort.Write & rs (Titel) && nbsp;
Rs.Movenext
Schleife
'Deaktivieren und veröffentlichen verwandte Ressourcen
Rs.close
Conn.close: conn = nichts setzen
'Paging anzeigen
Wenn pageno <= 1 dann
Response.write <font color = '#ff0000'> [homepage] [vorher] </font>
anders
Antwort.Write [<a href = '?
Antwort.Write [<a href = '? >]]
Ende wenn
Wenn pageno> = pagecountx dann
Response.write <font color = '#ff0000'> [nächste Seite] [Tail Seite] </font>
anders
Antwort.Write [<a href = '? ]
Antwort.Write [<a href = '?
Ende wenn
Antwort.Write [Seitenbestellung <font color = rot> & pageno & </font> Seite/Common <font color = rot> & pagecountx & </font> Seite]
Antwort.Write [Total <font color = rot> & fieldCount & </font> Eintrag <font color = rot> & pageSizex & </font> Streifen/Seite]
Antwort .
für i = 1 zu paycountx
Antwort.Write <Option Value = & I &
Wenn pageno = i dann antwort.write selectd
Response.write (> Nr .- & i & -page </option>)
nächste
Antwort.Write </selectd>
%>