<%
FunctionLoadTempletFile (ByValpath)
OnerrorresumeNext
dimobjstream
setoBjStream = server.CreateObject ("adodb.stream")
WithoBJStream
.type = 2
.mode = 3
.membuka
.LoadFromFileServer.mappath (Path)
iferr.number <> 0then
err.clear
response.write ("预加载的模板 [" & Path & "] 不存在!")
response.end ()
endif
.charset = "" & chrset & ""
.posisi = 2
loadTempletFile = .readtext
.menutup
endwith
setobjstream = tidak ada
fungsi endfungsi
FunctionMovefefiles (SFOLDER, DOFORER)
OnerrorresumeNext
dimfso
setFSO = server.CreateObject ("Scripting.FilesystemObject")
iffso.folderexists (server.mappath (sfolder)) andfso.folderexists (server.mappath (dfolder)) lalu
fso.copyfolderserver.mappath (sfolder), server.mappath (dfolder)
moveFiles = true
kalau tidak
moveFiles = false
setfso = tidak ada
callalertbox ("系统没有找到指定的路径 [" & sfolder & "]!", 2)
endif
setfso = tidak ada
fungsi endfungsi
functionameFolder (SFOLDER, DOFORER)
OnerrorresumeNext
dimfso
setFSO = server.CreateObject ("Scripting.FilesystemObject")
iffso.folderexists (server.mappath (sfolder)) lalu
fso.moveFolderserver.mappath (sfolder), server.mappath (dfolder)