Die FSO -Komponenten in ASP sind sehr mächtig. Wenn Sie diese Funktion nicht haben, wissen Sie nicht, was ASP werden wird. Tatsächlich werden Freunde, die ASP-Programmierung lernen wollen, definitiv FSO-bezogenen Operationen ausgesetzt sein. Der folgende neue Technologiekanal bringt Ihnen eine vollständige Sammlung von ASP -FSO -Dateiverarbeitungsfunktionen.
Die Codekopie lautet wie folgt:<%
'Erstellen Sie eine Ordnerfunktion
Funktion creatingFolder (StrFolder) 'Parameter ist ein relativer Pfad
'Die erste Wahl besteht darin, festzustellen, ob der Ordner bereits vorhanden ist
Dim StrTestFolder, ObjfSO
strTestfolder = server.mappath (StrFolder)
Setzen Sie OBJFSO = CreateObject ("Scripting.FilesSystemObject").
'Überprüfen Sie, ob der Ordner existiert
Wenn nicht objfSo.Folderexists (StrTestFolder), dann
„Wenn es nicht existiert, erstellen Sie einen Ordner
OBJFSO.CreateFolder (StrTestFolder)
Ende wenn
Setzen Sie objfso = nichts
Endfunktion
'Löschen Sie den Ordner
Funktion Delformer (StrFolder) 'Parameter ist der relative Pfad
strTestfolder = server.mappath (StrFolder)
Setzen Sie OBJFSO = CreateObject ("Scripting.FilesSystemObject").
'Überprüfen Sie, ob der Ordner existiert
Wenn objfso.Forterexists (StrTestFolder) dann
OBJFSO.DELETEFOLDER (STRTESTFOLDER)
Ende wenn
Setzen Sie objfso = nichts
Endfunktion
'Erstellen Sie eine Textdatei
Funktion CreateTeTextFile (FileUrl, FileContent) 'Parameter ist der relative Pfad und der Inhalt, der in die Datei geschrieben werden soll
Setzen Sie OBJFSO = Server.createObject ("Scripting.FilesSystemObject").
Setzen Sie Fout = ObjfSO.CreateTextFile (Server.MAppath (FileURL)).
fout.WriteLine FileContent
fout.close
Setzen Sie objfso = nichts
Endfunktion
'Dateien löschen (geeignet für alle Dateien)
Funktion DeltextFile (FileURL) 'Parameter ist der relative Pfad
Setzen Sie OBJFSO = CreateObject ("Scripting.FilesSystemObject").
fileUrl = server.mappath (fileUrl)
Wenn objfso.FileExists (FileURL) dann prüft, ob die Datei vorliegt
OBJFSO.DELETEFILE (server.mappath (fileUrl))
Ende wenn
Setzen Sie objfso = nichts
Endfunktion
'Bilddateien erstellen und Bilddatenstrom speichern
Function CreateImage (FileUrl, ImageContent) 'Parameter ist der relative Pfad- und Dateiinhalt
Setzen Sie objstream = server.createObject ("adodb.stream") ', um adodb.stream -Objekt zu erstellen, ADO Version 2.5 oder höher muss erstellt werden
objstream.type = 1 'im Binärmodus geöffnet
objstream.open
objstream.write imageContent 'Schreiben Sie String -Inhalt in Puffer
objstream.savetofile server.mappath (fileUrl), 2 '-schreibe gepufferter Inhalte zur Datei
objstream.close () 'Close -Objekt
Setzen Sie Objstream = nichts
Endfunktion
'Ferne Dateidaten erhalten
Funktion Gethttppage (URL)
'Bei der nächsten Fehlerbehebung als nächstes
Dim Http
Setzen Sie http = server.createObject ("microsoft.xmlhttp").
Http.open "get", url, falsch
Http.send ()
Wenn http.readystate <> 4 dann
Ausgangsfunktion
Ende wenn
getttppage = byTestObstr (http.Responsebody, "GB2312")
Setzen Sie http = nichts
Wenn err.number <> 0 dann
getttppage = "Der Server hat Dateiinhaltsfehler erhalten"
Err.clear
Ende wenn
Endfunktion
Funktion byTestObstr (Körper, cset)
Dimer Objstream
Setzen Sie objstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Body
objstream.position = 0
objstream.type = 2
objstream.charset = cset
ByTestObstr = objstream.readText
objstream.close
objstream einstellen = nichts
Endfunktion
'Bilddatenstrom abrufen
Funktion GetPic (URL)
Bei der nächsten Fehleraufnahme als nächstes
Dim Http
Setzen Sie http = server.createObject ("msxml2.xmlhttp") 'Verwenden Sie die XMLHTTP -Methode, um den Inhalt des Bildes zu erhalten
Http.open "get", url, falsch
Http.send ()
Wenn http.readystate <> 4 dann
Ausgangsfunktion
Ende wenn
GetPic = http.responseBody
Setzen Sie http = nichts
Wenn err.number <> 0 dann
getPic = "Der Server hat Fehler beim Abrufen des Dateiinhalts erhalten."
err.clear
Ende wenn
Endfunktion
'Öffnen Sie die Datei (Textform)
Funktion OpenFile (FileUrl) 'Datei relativer Pfad
Dim Filename, FSO, HNDFILE
Dateiname = FileUrl
Dateiname = Server.Mappath (Dateiname)
Setzen Sie OBJFSO = CreateObject ("Scripting.FilesSystemObject").
Wenn objfso.fileExists (Dateiname) dann
Setzen Sie hndFile = objfso.opentextfile (Dateiname)
OpenFile = hndfile.readall
Anders
OpenFile = "Datei -Lesefehler"
Ende wenn
Setzen Sie hndfile = nichts
Setzen Sie objfso = nichts
Endfunktion
'Holen Sie sich den Suffixnamen der Datei
Funktion getFileexteName (Dateiname)
Dim pos
pos = Instrrev (Dateiname, ".")
Wenn pos> 0 dann
getFilexteName = Mid (Dateiname, POS+1)
anders
getFilexteName = ""
Ende wenn
Endfunktion
%>
Das obige ist eine vollständige Sammlung von ASP FSO -Dateiverarbeitungsfunktionen, die vom Editor des Foxin Technology Channel eingeführt wurden. Ich glaube, jeder hat ein gewisses Verständnis. Der Foxin Technology Channel wird Ihnen mehr Wissen teilen und Sie in dieser Branche immer besser machen.