<٪
FunctionLoadTempletFile (ByvalPath)
onerrorresumenext
Dimobjstream
setObjStream = server.createBject ("Adodb.stream")
withobjstream
.type = 2
. وضع = 3
.يفتح
.LoadFromFileserver.mappath (المسار)
iferr.number <> 0then
err.clear
Response.write ("预加载的模板 [" & path & "] 不存在!")
استجابة.
Endif
.charset = "" & chrset & ""
.position=2
loadTempletFile = .readtext
.يغلق
endwith
setObjStream = لا شيء
الوظيفية
FunctionMovefiles (Sfolder ، dfolder)
onerrorresumenext
Dimfso
setfso = server.createObject ("scripting.filesystemObject")
iffso.folderexists (server.mappath (sfolder)) andfso.folderexists (server.mappath (dfolder)) ثم
fso.copyfolderserver.mappath (sfolder) ، server.mappath (dfolder)
Movefiles = صحيح
آخر
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)