<％
功能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）