Empfohlen: ASP Quick Pagination Code %@ Sprache = vbScript Codepage = 936 % Option explizit 'Erzwingen Sie die variable dim idcount' Gesamtzahl der Datensätze Dim Pages 'Anzahl der pro Seite dim Pagec' Gesamtzahl der Seiten dim Seite 'Seitenzahl dim Page' Pagennummer Dimpagenc 'Anzahl der Seiten, die pro Seite angezeigt werden.
Für einen Raum, der ASP und FSO unterstützt, ist bei FSO alles viel einfacher
Ich bin auch ein Anfänger und schrieb einige Codes für alle, um zu lernen und zu studieren
Betrachten Sie zunächst die Unterstützung von FSO -Komponenten?
<%
'FSO -Komponentenname
Dim fsObject
FSObject = scripting.FilesSystemObject
'==============================================================================
'◆ Ob Komponenten unterstützt werden
'==============================================================================
Funktion isobjinstalliert (StrclassString)
Bei der nächsten Fehleraufnahme als nächstes
Isobjinstalled = false
Err = 0
Dim Xtestobj
Setzen Sie xtestObj = server.createObject (StrclassString)
Wenn 0 = erren, dann isobjinstalled = true
Setzen Sie XtestObj = nichts
Err = 0
Endfunktion
Wenn isobjinstalliert (fSObject) dann
Antwort.Write √
anders
Antwort.Write ×
Ende wenn%>
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<%
'==============================================================================
'◆ Ob Komponenten unterstützt werden
'==============================================================================
Funktion isobjinstalliert (StrclassString)
Bei der nächsten Fehleraufnahme als nächstes
Isobjinstalled = false
Err = 0
Dim Xtestobj
Setzen Sie xtestObj = server.createObject (StrclassString)
Wenn 0 = erren, dann isobjinstalled = true
Setzen Sie XtestObj = nichts
Err = 0
Endfunktion
'==============================================================================
'FSO -Betrieb
'==============================================================================
'◆ Überprüfen Sie, ob ein Verzeichnis vorliegt
'==============================================================================
Funktion checkdir (OrdnerPath)
OrdnerPath = Server.Mappath (.) &/& OrdnerPath
Setzen Sie fso = createObject (fSObject)
Wenn fso.folgerexisten (OrdnerPath) dann
Checkdir = true
Anders
Checkdir = false
Ende wenn
Setzen Sie fso = nichts
Endfunktion
'==============================================================================
'◆ Generieren Sie das Verzeichnis basierend auf dem angegebenen Namen
'==============================================================================
Funktion makenewsdir (Folderame)
Dim fs0
Setzen Sie fso = createObject (fSObject)
Setzen Sie fs0 = fso.createfolder (Falzname)
Fso = nichts setzen
Endfunktion
'==============================================================================
'◆ Erstellen Sie einen neuen Ordner, wenn der Ordner nicht vorhanden ist ◆
'==============================================================================
Funktion untersuchend (OrdnerPath)
Wenn checkDir (OrdnerPath) = false, dann ist der Ordner nicht vorhanden
Makenewsdir (OrdnerPath) 'Erstellen Sie einfach einen Ordner
Ende wenn
Endfunktion
'==============================================================================
'◆ Ordner löschen ◆
'==============================================================================
Funktion Deletefoldera (OrdnerPath)
schwacher Weg
Setzen Sie fso = createObject (fSObject)
path = request.servervariables (appl_physical_path) & OrdnerPath
fso.deleteFolder (Pfad)
Fso = nichts setzen
Endfunktion
'==============================================================================
'◆ Ordnername ändern ◆ ◆
'==============================================================================
Funktion MOVEDFOLDER (Ordnungsname, Neulingname)
isfso
Setzen Sie fso = createObject (fSObject)
fso.movefolder & request.servervariables (appl_physical_path) &/& faltername &, & request.servervariables (appl_physical_path) &/& newfoldername &
Fso = nichts setzen
Endfunktion
'==============================================================================
'◆ Löschen Sie die angegebene Datei ◆ ◆
'==============================================================================
Funktion DeleteFile (Datei)
Setzen Sie fso = createObject (fSObject)
fso.deletefile request.servervariables (appl_physical_path) & Datei
Fso = nichts setzen
Endfunktion
'==============================================================================
'◆ Sicherung der angegebenen Datei ◆ ◆
'==============================================================================
Funktionskopie (OldFile, Newfile)
Setzen Sie fso = createObject (fSObject)
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie fso = server.createObject (fSObject)
oldFile = server.mappath (OldFile)
Wenn err.number> 0 dann aufrufen kann (ursprünglicher Pfadfehler!,)
newfile = server.mappath (newfile)
Wenn err.number> 0, rufen Sie Alarm auf (neuer Pfadfehler!,).
fso.copyfile Oldfile, Newfile 'überschreiben Sie die Originaldatei
Wenn Err.Number> 0 dann aufrufen (Err.Description,)
Setzen Sie fso = nichts
Endfunktion
'==============================================================================
'◆ Übertragen Sie die angegebene Datei ◆ ◆
'==============================================================================
Funktion MoveFile (Oldfile, Newfile)
Setzen Sie fso = createObject (fSObject)
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie fso = server.createObject (fSObject)
oldFile = server.mappath (OldFile)
Wenn err.number> 0 dann aufrufen kann (ursprünglicher Pfadfehler!,)
newfile = server.mappath (newfile)
Wenn err.number> 0, rufen Sie Alarm auf (neuer Pfadfehler!,).
'fso.moveFile Oldfile, Newfile' kann die Originaldatei nicht überschreiben
fso.moveFile d: /o/data/test.txt,d: /o/databackup/test3.txt
Wenn Err.Number> 0 dann aufrufen (Err.Description,)
Setzen Sie fso = nichts
Endfunktion
'==============================================================================
'◆ Dateicode lesen ◆
'==============================================================================
Funktion LoadFile (Datei) 'Lesen Sie die Datei lesen
Dim ftemp
Setzen Sie fso = createObject (fSObject)
Setzen Sie ftemp = fso.opentextFile (server.mappath (& Datei &), 1)
loadFile = ftemp.readall
ftemp.close
fso.close
Setzen Sie fso = nichts
Endfunktion
'==============================================================================
'◆ Generieren Sie Dateien aus Code ◆
'==============================================================================
'==========================================================
'■ Datei generiert den Dateinamen
'■ Code -Dateicode
'==========================================================
Funktion SaveFile (Datei, Code) 'Datei speichern
Dim Myfile
Setzen Sie fso = createObject (fSObject)
Setzen Sie myFile = fso.createTextFile (server.mappath (Datei), true)
MyFile.WriteLine (Code)
Myfile.close
myFile setze = nichts
Endfunktion
'==============================================================================
'◆ Komprimierte Datenbank ◆
'==============================================================================
'==========================================================
'■ DBPath Dateidateipfad
'■ Boolis97 Access97 Komprimierung
'==========================================================
Funktion compactdb (dbPath, boolis97)
Dimer StrdbPath, fso, Motor
dbPath = server.mappath (dbPath)
strDbPath = links (DBPath, Instrrev (dbPath,/))
Setzen Sie fso = createObject (fSObject)
Wenn fso.FileExists (dbPath) dann
Setzen
Wenn boolis97 = wahr ist
Dim Jet_3x
Engine.comPactDatabase Provider = microsoft.jet.oledb.4.0; Data Source = & DbPath, _
Provider = microsoft.jet.oledb.4.0; Data Source = & strdbPath & temp.mdb; _
& Jet OLEDB: Motor type = & jet_3x
Anders
Engine.comPactDatabase Provider = microsoft.jet.oledb.4.0; Data Source = & DbPath, _
Provider = microsoft.jet.oledb.4.0;
Ende wenn
fso.copyfile strdbPath & temp.mdb, dbPath
fso.deletefile (strdbPath & temp.mdb)
Fso = nichts setzen
Motor einstellen = nichts
Compactdb = Die aktuelle Datenbank wurde erfolgreich komprimiert!
Anders
Compactdb = Der Datenbankname oder Pfad ist falsch. Bitte versuchen Sie es erneut!
Ende wenn
Endfunktion
%>
Freigabe: 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 '========================================================================== ==================================================================================