In ASP, insbesondere in CMS -Systemen, die statische Zustände generieren müssen, müssen häufig einige Dateien beurteilt, erstellt und gelöscht werden. Heute hat der Herausgeber des Fehlers des Fehlers New Technology ihn hier für Sie aussortiert, was im Grunde den Grundbedürfnissen entspricht.
Benutzerdefinierte Funktionen, die üblicherweise in ASP verwendet werden, um das Upload und Löschen von Dateien zu verarbeiten
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',; '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',;
'Alle benutzerdefinierten VBS -Funktionen
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',; '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',;
Funktion DeleteFile (Dateiname) 'Datei löschen
Wenn Dateiname <> "" dann
Setzen Sie fso = server.createObject ("scripting.FilesSystemObject").
Wenn fso.FileExists (Dateiname) dann
fso.deleteFile Dateiname
Ende wenn
fso = nichts setzen
Ende wenn
Endfunktion
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',; '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',;
Funktion erstellte (Byval LocalPath) 'Das Programm, das ein Verzeichnis erstellt. Wenn es mehrere Ebenen von Verzeichnissen gibt, schafft es jeweils eine Ebene
Bei der nächsten Fehleraufnahme als nächstes
LokalPath = Ersetzen (lokaler Anhang, "/", "/")
set FileObject = server.createObject ("scripting.filesystemObject")
Patharr = Split (LocalPath, "/")
Path_Level = Ubund (Patharr)
für i = 0 bis path_level
Wenn i = 0 dann pathtmp = Patharr (0) & "/" else pathtmp = pathtmp & patharr (i) & "/"
cpath = links (pathtmp, len (pathtmp) -1)
Wenn nicht fileObject.FodereRexists (CPATH), dann fileObject.CreateFolder CPATH
nächste
Setzen Sie FileObject = nichts
Wenn err.number <> 0 dann
Createdir = false
err.clear
anders
Createdir = true
Ende wenn
Endfunktion
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',; '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',;
Funktion SaverandFileName (Byval SzFileName) 'Generieren Sie den neuen Zufallsdateinamen basierend auf dem Original -Dateinamen
randomisieren
'rannum = int (90000*rnd) +10000
'Wenn Monat (jetzt) <10, dann c_month = "0" & monat (jetzt) else c_month = Monat (jetzt)
'Wenn Tag (jetzt) <10 dann c_day = "0" & tag (jetzt) sonst c_day = tag (jetzt)
'Wenn Stunde (jetzt) <10, dann c_hour = "0" & stunde (jetzt) else c_hour = stunde (jetzt)
'Wenn Minute (jetzt) <10 dann c_minute = "0" & minute (jetzt) sonst c_minute = minute (jetzt)
'Wenn zweiter (jetzt) <10, dann c_second = "0" und zweiter (jetzt) else c_second = minute (jetzt)
Fileext_a = split (SZFileName, ".").
Fileext = lcase (Fileext_a (Ubund (Fileext_a)))
SaverandFileName = ersetzen (ersetzen (nun ":", ""), "-", ""), "", "") & int (10*rnd) & "." & FileExt
'GeneraterandomFileName = Jahr (jetzt) & c_month & c_day & c_hour & c_minute & c_second & "_" & rannum & "
Endfunktion
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',; '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',;
Funktion Jaron_Replacer (StrContent, start_string, end_string, ersetzen_string)
'CMS -Ersatzfunktion: Quellzeichenfolge, erster Teil, letzter Teil, Ersetzte Zeichen
'Geben Sie die ersetzte Zeichenfolge zurück
Jaron_Replacer = Ersatz (StrContent, Mid (Strcontent, Instration (StrContent, Start_String), Instrumente (StrContent, End_String)+Len (end_string) -1), Ersatz_String)
Endfunktion
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',; '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',;
Funktionersäureplus (StrContent, start_string, end_string, ersetzen_string)
'Löschen Sie im Dokument alle Zeichen zwischen Anfang und Ende
Bei der nächsten Fehleraufnahme als nächstes
MarkCounts = ubund (split (strcontent, start_string))
PRESTRING = STRCONTENT
für i = 0, um zu markieren
Startmark = Instrument (1, Preising, Start_String, 1)
Wenn startmark = 0 dann beenden Sie für
Compmark = instr (1, preestring, end_string, 1) + len (end_string)
Versstring = MID (PRESTRING, STARTMARK, COMPMARK - STARTMARK)
Prestring = Ersetzen (Preisträger, Versstring, Ersatz_String)
nächste
Austauschern = Vorresting
Wenn err.number <> 0 dann err.clear
Endfunktion
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',; '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '', Den '',;
%>
Im obigen Artikel handelt es sich um die häufig verwendeten Dateiverarbeitungsfunktionen in ASP. Ich glaube, jeder kennt die meisten von ihnen. Der falsche neue Technologiekanal wird weiterhin nützlicheres Wissen für Sie sammeln. Ich hoffe, Sie können die guten Absichten des Herausgebers verstehen. Wenn Sie diesen Artikel mögen, folgen Sie uns weiter!