<%
FunctionloadTemPletfile (Byvalpath)
onErrorresumeNext
Dimobjstream
setObjstream = server.createObject ("adodb.stream")
Withobjstream
.Type = 2
.Mode = 3
.offen
.loadfromFileServer.Mappath (Pfad)
Ifr.number <> 0Then
err.clear
response.write ("预加载的模板 [" & path & "] 不存在!")
Antwort.end ()
Endif
.Charset = "" & chrset & "" "
.position = 2
LoadTemPletFile = .ReadText
.schließen
Endwith
setObjstream = nichts
Endfunktion
FunktionsmoveFiles (Sfolder, Dfolker)
onErrorresumeNext
Dimfso
setfso = server.createObject ("scripting.filesystemObject")
IFFSO.FORDEREXISTS (server.mappath (sfolker)) und fso.FORDEREXISTS (server.mappath (dfolder)) dann
fso.copyFolderServer.Mappath (Sfolker), Server.Mappath (Dfolker)
moveFiles = true
anders
moveFiles = false
setfso = nichts
Callalertbox ("系统没有找到指定的路径 [" & sfolger & "]!", 2)
Endif
setfso = nichts
Endfunktion
FunktionRenameFolder (Sfolder, Dfolker)
onErrorresumeNext
Dimfso
setfso = server.createObject ("scripting.filesystemObject")
IFFSO.FORDEREXISTS (server.MAppath (sfolker)) dann
fso.moveFolderServer.Mappath (Sfolker), Server.Mappath (Dfolker)