<％
functionloadtempletfile（byvalpath）
onerrorresumenext
DimobjStream
setobjstream = server.createObject（ "adodb.stream"）
withobjstream
.type = 2
.mode = 3
。開ける
.loadfromfileserver.mappath（パス）
iferr.Number <> 0then
err.clear
respons.write（ "预加载的模板["＆path＆ "]不存在！"）
Response.End（）
endif
.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））then
fso.copyfolderserver.mappath（sfolder）、server.mappath（dfolder）
movefiles = true
それ以外
movefiles = false
setfso =何もない
callalertbox（ "系统没有找到指定的路径["＆sfolder＆ "！"、2）
endif
setfso =何もない
エンド機能
functionrenamefolder（sfolder、dfolder）
onerrorresumenext
dimfso
setFSO = server.createObject（ "Scripting.filesystemObject"）
iffso.folderexists（server.mappath（sfolder））その後
fso.movefolderserver.mappath（sfolder）、server.mappath（dfolder）