Benutzerdefinierte Funktionen, die üblicherweise in ASP verwendet werden, um das Upload und Löschen von Dateien zu verarbeiten
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
'Alle benutzerdefinierten VBS -Funktionen
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
Funktion DeleteFile (Dateiname) 'Datei löschen
Wenn Dateiname <> dann
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Wenn fso.FileExists (Dateiname) dann
fso.deleteFile Dateiname
Ende wenn
fso = nichts setzen
Ende wenn
Endfunktion
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
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 Anpass,/,)
set FileObject = server.createObject (scripting.filesystemObject)
Patharr = Split (lokaler Anit in/)
Path_Level = Ubund (Patharr)
für i = 0 bis path_level
Wenn i = 0 dann Pathtmp = Patharr (0) & / sonst 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
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
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) sonst 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) sonst c_hour = stunde (jetzt)
'Wenn Minute (jetzt) <10 dann c_minute = 0 & minute (jetzt) else c_minute = minute (jetzt)
'Wenn zweiter (jetzt) <10 dann c_second = 0 & Second (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 &. & Fileext
Endfunktion
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
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
'' '' '' '' '' '' '' '' '' '' '' '' '' '' ',
Funktionersäureplus (StrContent, start_string, end_string, ersetzen_string)