ASP implementiert eine Funktion, die überprüft, ob das Verzeichnis existiert, und erstellt ein Verzeichnis

'-------------------------

'-检查目录是否存在

'--------------------------

Funktionscheckdir (ByvalfolderPath)

Dimfso

Setfso = server.createObject ("scripting.filesystemObject")

IFFSO.FORDEREXISTS (Server.MAppath (OrdnerPath)) dann

'存在

Checkdir = true

Anders

'不存在

Checkdir = false

Endif

Setfso = nichts

Endfunktion

'-------------------------

'-建立目录

'--------------------------

FunctionMakenewsdir (Byvalfoldername)

Dimfso

Setfso = server.createObject ("scripting.filesystemObject")

FSO.CreateFolder (Server.MAppath (Folderame))

IFFSO.FORDEREXISTS (server.MAppath (Ordnungsname)) dann

Makenewsdir = true

Anders

Makenewsdir = false

Endif

Setfso = nichts

Endfunktion