<%
FunctionLoadTempletFile (BYVALPATH)
OnErrorReSumenext
DIMOBJSTREAM
setobjstream = server.createObject ("adodb.stream")
withobjstream
.Type = 2
.mode = 3
.abrir
.loadFromFileServer.Mappath (caminho)
iferr.number <> 0then
err.clear
Response.Write ("预加载的模板 [" & Path & "] 不存在!")
Response.end ()
endif
.Charset = "" & Chrset & ""
.Position = 2
loadTempletFile = .readText
.fechar
ENDWITH
setobjstream = nada
Função final
FunctionMoveFiles (SFolder, DFolder)
OnErrorReSumenext
dimfso
setfso = server.createObject ("scripting.filesystemobject")
iffso.Polderexists (Server.Mappath (Solder)) e FSO.Polderexists (Server.mappath (DFolder)) então
fso.copyFolderServer.mappath (Solder), Server.mappath (DFolder)
movefiles = true
outro
movefiles = false
setfso = nada
CallalertBox ("系统没有找到指定的路径 [" & SFolder & "]!", 2)
endif
setfso = nada
Função final
FunctionRenameFolder (SFolder, DFolder)
OnErrorReSumenext
dimfso
setfso = server.createObject ("scripting.filesystemobject")
iffso.Polderexists (Server.mappath (Solder)) então
FSO.MoveFolderServer.Mappath (SFolder), Server.Mappath (DFolder)