Empfohlen: Funktionsfunktion der ASP -Datei % '==================================================== ' Compiled by: Zhang Hui' Programmer code: WJ008' Compiled time: June 1, 2008' Follow address: www.wj008.net ' All file addresses used by all functions use absolute Adressen '========================================================================== ==================================================================================
<%@ Sprache = vbscript Codepage = 936%>
<%
Option explizit 'obligatorische Definition von Variablen
Dim idCount'Tal -Anzahl von Datensätzen
Dim Pages'number von pro Seite
DIM -Pagec'tal -Anzahl von Seiten
Dim Page 'Seiten Nummer
Dim Pagenc 'Die Anzahl der Seitenzahlen pro Seite = Pagenc*2+1
pagenc = 2
Dim Pagenmax 'maximale Seitenzahl der Seiten pro Seite angezeigt
Dim Pagenmin 'Die minimale Seitenzahl der Seiten pro Seite angezeigt
Seite = clng (Anfrage (Seite))
Dim Start 'Zeit des Programms Beginn
Dim Endt 'Time of Ending Program
DIM -Daten aus dem Namen
Daten aus = Tabelle 1
Dim Conn, Rs
Dim Datapath 'Datenbankpass
Dim SQLID 'ID für diese Seite erforderlich
diemen Sie mich von dieser Seite
ich = request.Servervariables (path_info)
Dim SQL'SQL Anweisung
Dim Taxis 'sortierende Aussage
'Taxis = Order by id asc' positive Sortierung
Taxis = Order By ID Desc 'umgekehrte Sortierung
Dim I 'Ganzzahl für die Schleife verwendet
start = timer ()
DataPath = db.mdb 'Datenbank
Seiten = 30
'Verbindung zum Öffnen der Datenbank
Dim db
db = db.mdb 'Definieren Sie den Datenbankpfad und den Namen
Setzen Sie conn = server.createObject (adodb.Connection)
Conn.open Provider = microsoft.jet.oledb.4.0; Data Source = & Server.Mappath (DB)
Wenn err.number <> 0 dann dann
Antwort.Write Database Link -Fehler!
Antwort.end ()
Ende wenn
'Holen Sie sich die Gesamtzahl der Datensätze
SQL = Wählen Sie Count (ID) als IDCount aus [& DataFrom &]
Setzen Sie rs = server.createObject (adodb.Recordset)
Rs.open SQL, Conn, 0,1
IDCount = RS (IDCount) 'Holen Sie sich die Gesamtzahl der Datensätze
if (idCount> 0) Dann wird die Gesamtzahl der Datensätze = 0 nicht verarbeitet
if (idCount mod pages = 0), dann ist die Gesamtzahl der Datensätze durch die verbleibende Anzahl jeder Seite geteilt, dann = die Gesamtzahl der Datensätze/Anzahl jeder Seite + 1
pagec = int (idCount/Seiten) 'Erhalten Sie die Gesamtzahl der Seiten
anders
pagec = int (idCount/Seiten)+1'Get die Gesamtzahl der Seiten
Ende wenn
'Holen Sie sich die ID, die für diese Seite benötigt wird.
ID -Werte "Alle Datensätze lesen", da es nur ID gibt, sodass die Geschwindigkeit sehr schnell ist
SQL = ID aus [& DataFrom &] & Taxis auswählen
Setzen Sie rs = server.createObject (adodb.Recordset)
Rs.open SQL, Conn, 1,1
Rs.PageSize = Pages 'Anzahl der pro Seite angezeigten Datensätze
Wenn Seite <1 dann Seite = 1
Wenn Seite> pagec dann Seite = pagec
Wenn pagec> 0 dann rs.absolutepage = Seite
für i = 1 bis rs.pagezesize
Wenn rs.eof dann beenden für
if (i = 1) dann
SQLID = RS (ID)
anders
SQLID = SQLID &, & RS (ID)
Ende wenn
Rs.Movenext
nächste
'Ende der ID erforderlich, um diese Seite zu erhalten
Ende wenn
%>
<! docType html public -// w3c // dtd html 4.01 transitional // en>
<html>
<kopf>
<meta http-äquiv = content-type content = text/html; charSet = gb2312>
<title> Schnelles Paging </title>
<link rel = stylesheet href = page.css type = text/css>
</head>
<body bgcolor =#f2f2f2 linksmargin = 0 topmargin = 0 marginwidth = 0 marginHeight = 0>
<Tabellenbreite = 100% Höhe = 100% Rand = 0 Cellpadding = 20 Cellpacing = 0>
<tr>
<td Valign = Middle> <Tabellenbreite = 100% Höhe = 100% Grenze = 0 Cellpadding = 0 Cellpacing = 1 Bgcolor =#CCCCCC>
<tr>
<td valign = top bgcolor =#fffffff> <br> <Tabellenbreite = 90% Grenze = 0 Align = Center CellPading = 0 Cellpacing = 0 class = zw>
<tr>
<td> <strong> <font color =#ff6600> Schnelles Paging </font> </strong> </td>
</tr>
</table>
<br>
<Tabellenbreite = 90% Grenze = 0 Align = Center Cellpadding = 3 Cellpacing = 1 bgcolor = cccccccc class = zw>
<tr align = center bgcolor =#9fcb07>
<td width = 9%> <strong> id </strong> </td>
<td width = 37%> <strong> Thema </strong> </td>
<td width = 33%> <strong> Inhalt </strong> </td>
<td width = 21%> <strong> Zeit </strong> </td>
</tr>
<%
if (idCount> 0 und sqlid <>) Dann wird die Gesamtzahl der Datensätze = 0 nicht verarbeitet
„Verwenden Sie die Daten in der Sprache dieser Seite aus und lesen Sie nur die für diese Seite erforderlichen Daten, sodass die Geschwindigkeit schnell ist
SQL = SELECT [ID], [AAAA], [BBBB], [CCCC] von [& DataFrom &] wobei ID in (& SQLID &) & Taxis
Setzen Sie rs = server.createObject (adodb.Recordset)
Rs.open SQL, Conn, 0,1
während (nicht rs.eof) 'Daten in die Tabelle füllen
%>
<tr bgcolor =#ffffff>
<td align = center> <%= rs (0)%> </td>
<td> <%= rs (1)%> </td>
<td> <%= rs (2)%> </td>
<td align = center> <%= rs (3)%> </td>
</tr>
<%
Rs.Movenext
Wend
%>
</table>
<br>
<Tabellenbreite = 90% Grenze = 0 Align = Center CellPadding = 2 Cellpacing = 0 Class = Zw>
<tr align = center>
<td align=left>There are a total of <strong><font color=#ff6600><%=idcount%></font></strong> records, <strong><font color=#ff6600><%=page%></font></strong>/<%=pagec%>, and each page is <strong><font color =#ff6600> <%= Seiten%> </font> </strong> Datensätze. </td>
</tr>
</table>
<Tabellenbreite = 90% Grenze = 0 Align = Center CellPadding = 2 Cellpacing = 0 Class = Zw>
<tr align = center>
<td align = rechts>
<%
'Set the page number to start ============================================
pagenmin = Seitenpagenc 'Berechnen Sie den Seitennummer-Startwert
pagenmax = Seite+Pagenc 'Berechnen Sie den Endwert der Seitenzahl
if (pagenmin <1), dann ist der Startwert der Seitenzahlen kleiner als 1, dann = 1
pagenmin = 1
Ende wenn
Wenn (Seite> 1) dann ist die Seitenzahl größer als 1, wird sie angezeigt (erste Seite)
response.write (<a href = '& ich &? Seite = 1'> <font color = '#000000'> Seite 1 </font> </a>)
Ende wenn
if (pagenmin> 1), dann wird der Startwert der Seitenzahl größer als 1 angezeigt (Aktualisierung).
response.write (<a href = '& mel &? page = & page- (pagenc*2+1) &'> <font color = '#000000'> Voraus </font> </a>)
Ende wenn
if (pagenmax> pagec) Dann ist der Endwert der Seitenzahl größer als die Gesamtzahl der Seiten, dann = Gesamtzahl der Seiten
pagenmax = pagec
Ende wenn
für i = pagenmin zu pagenmax 'Loop Ausgangsseitennummer
if (i = Seite) dann
response.write (<font color = '#ff6600'> <strong> & i & </strong> </font>)
anders
response.write ([<a href = & ich &? Page = & i &> <font color = '#000000'> & i & </font> </a>])
Ende wenn
nächste
if (pagenmax <pagec), dann ist der Endwert der Seitenzahl geringer als die Gesamtzahl der Seiten, es wird (danach) angezeigt (danach).
response.write (<a href = '& mel &? page = & page+(pagenc*2+1) &'> <font color = '#000000'> nach </font> </a>)
Ende wenn
if (Seite <pagec) dann 'Wenn die Seitenzahl geringer ist als die Gesamtzahl der Seiten, wird sie angezeigt (letzte Seite)
response.write (<a href = '& ich &? Page = & pagec &'> <font color = '#000000'> Letzte Seite </font> </a>)
Ende wenn
'Set the page number to end ==============================================
%> <script Language = JavaScript>
<!-
Funktion Gopage () {
window.location.href = <%= my my my my my my musing>? page =+ page.Value;
}
//->
</script>
Gehen zu
<Eingabename = Seite type = Textwert = <%= Seite%> Größe = 5> Seite
<Eingabe type = Taste name = value = sprung> </td>
</tr>
</table>
<%
Ende wenn
%>
<br>
<Tabellenbreite = 90% Grenze = 0 Align = Center CellPadding = 2 Cellpacing = 0 Class = Zw>
<tr>
<td align = center>
<p>
<%
endt = timer ()
rs.close
Setzen Sie Rs = nichts
conn.close
Setzen Sie Conn = nichts
%>
<%= formatnumber ((endt-start)*1000,3)%> ms </p>
<p> <a href = http://stone-stone.vip.sina.com/ target = _blank> Steinraum </a> </p> </td>
</tr>
</table>
<br> </td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
Share: ASP -Setup -Tipps für die Verwendung von Fckeditor 1. Öffnen Sie die Datei fcKconfig.js in der Standardsprache (relativ zum Ordner fcKeditors, unten), ändern Sie die automatische Erkennungssprache in die Nichtbekennung und ändern Sie die Standardsprache in vereinfachtes Chinesisch: Programmcode FCKConfig.Autodetektuage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Öffnen Sie die Datei fckconfig.js in der Schriftliste in der Schriftliste