<%
functionTempletFile (byvalpath)
OnerRorResumenext
Dimobjstream
setObjStream = server.createObject ("adodb.stream")
Withobjstream
.type = 2
.mode = 3
.открыть
.loadfromfileserver.mappath (Path)
iferr.number <> 0then
err.clear
response.write ("预加载的模板 [" & path & "] 不存在!")
response.end ()
эндиф
.CHARSET = "" & chrset & ""
.position = 2
LoadTempletFile = .ReadText
.закрывать
Энд
setobjstream = ничего
конечная функция
functionMovefiles (sfolder, dfolder)
OnerRorResumenext
dimfso
setfso = server.createObject ("scripting.filesystemobject")
iffso.folderexists (server.mappath (sfolder)) andfso.folderexists (server.mappath (dfolder))
fso.copyfolderserver.mappath (sfolder), server.mappath (dfolder)
fove -files = true
еще
foyfiles = false
setfso = ничего
Callalertbox ("系统没有找到指定的路径 [" & sfolder & "]!", 2)
эндиф
setfso = ничего
конечная функция
functionReforDameFolder (sfolder, dfolder)
OnerRorResumenext
dimfso
setfso = server.createObject ("scripting.filesystemobject")
iffso.folderexists (server.mappath (sfolder))
fso.movefolderserver.mappath (sfolder), server.mappath (dfolder)