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