<%
功能loadTempletFile(byvalpath)
Onorresumenext
dimobjstream
setObjstream = server.createobject(“ adodb.stream”)
withobjstream
.type = 2
.mode = 3
。打開
.loadfromfileserver.mappath(路徑)
iferr.number <> 0
err.CLEAR
response.write(“預加載的模板[&path&“]不存在!”)
響應。 End()
Endif
.charset =“”&chrset&“”
.position = 2
loadTempletFile = .ReadText
。關閉
端
setObjstream =沒有
最終功能
FunctionMoveFiles(Sfolder,Dfolder)
Onorresumenext
Dimfso
setfso = server.createobject(“ scripting.filesystemobject”)
然後
fso.copyfolderserver.mappath(sfolder),server.mappath(dfolder)
movefiles = true
別的
movefiles = false
setfso =沒有
CallaLertBox(“系統沒有找到指定的路徑[“&sfolder&”]!”,2)
Endif
setfso =沒有
最終功能
functionRenameFolder(Sfolder,dfolder)
Onorresumenext
Dimfso
setfso = server.createobject(“ scripting.filesystemobject”)
Iffso.folderexists(server.mappath(sfolder))
fso.movefolderserver.mappath(sfolder),server.mappath(dfolder)