<%
FunctionLoadTempleTFile (ByValPath)
onerrorresumenext
dimobjstream
setObjstream = server.createObject ("adodb.stream")
withobjstream
.Type = 2
.mode = 3
.ouvrir
.LoadFromFileServer.Mappath (Path)
iFerr.Number <> 0THEN
err.Clear
Response.Write ("预加载的模板 [" & Path & "] 不存在!")
réponse.end ()
endire
.Charset = "" & chrset & ""
.Position = 2
loadTempletFile = .readText
.fermer
fin
setObjstream = rien
finition de fin
functionmovefiles (sfolder, dfolder)
onerrorresumenext
dimfso
setfso = server.createObject ("scripting.filesystemObject")
iffso.folderexists (server.mappath (sfolder)) etfso.folderexists (server.mappath (dfolder)) puis
fso.copyfolderserver.mappath (sfolder), server.mappath (dfolder)
MoveFiles = True
autre
MoveFiles = faux
setfso = rien
Callalertbox ("系统没有找到指定的路径 [" & sfolder & "]!", 2)
endire
setfso = rien
finition de fin
FonctionRenameFolder (Sfolder, DFolder)
onerrorresumenext
dimfso
setfso = server.createObject ("scripting.filesystemObject")
iffso.folderexists (server.mappath (sfolder)) puis
fso.movefolderserver.mappath (sfolder), server.mappath (dfolder)