<%
functionloadTempletFile (Byvalpath)
onerrorResumEnext
dimobjstream
setobjstream = server.createObject ("ADODB.Stream")
Withobjstream
.type = 2
.mode = 3
.abierto
.LoadFromFileserver.Mappath (ruta)
iferr.number <> 0then
Err.Clear
Response.write ("预加载的模板 [" & Path & "] 不存在!")
respuesta.end ()
endif
.charset = "" & Chrset & ""
.Position = 2
LoadTempletFile = .ReadText
.cerca
fin
setobjstream = nada
Función final
functionMoveFiles (Sfolder, DFolder)
onerrorResumEnext
dimfso
setfso = server.createObject ("scripting.filesystemObject")
iffso.foldereRexists (server.mappath (sfolder)) yfso.folderExists (server.mappath (dfolder)) luego
FSO.CopyFolderServer.Mappath (Sfolder), Server.Mappath (DFolder)
MoveFiles = True
demás
MoveFiles = False
setfso = nada
callAlertBox ("系统没有找到指定的路径 [" & sfolder & "]!", 2)
endif
setfso = nada
Función final
FunctionRenameFolder (Sfolder, DFolder)
onerrorResumEnext
dimfso
setfso = server.createObject ("scripting.filesystemObject")
iffso.foldereRexists (server.mappath (sfolder)) luego
FSO.MoveFolderServer.Mappath (Sfolder), Server.Mappath (DFolder)