-
functionloadtempletfile (byvalpath)
onerrorresumenext
dimobjstream
setObjstream = server.createObject ("adodb.stream")
withobjstream
.Type = 2
.Mode = 3
.เปิด
.loadfromfileserver.mappath (เส้นทาง)
iferr.number <> 0 แล้ว
err.lear
Response.write ("预加载的模板 [" & path & "] 不存在!")
Response.end ()
endif
.Charset = "" & chret & ""
.position = 2
loadTempleTfile = .readText
.ปิด
จบลงด้วย
setObjstream = ไม่มีอะไร
endfunction
FunctionMoveFiles (sfolder, dfolder)
onerrorresumenext
dimfso
setfso = server.createObject ("Scripting.FilesYstemObject")
iffso.folderexists (Server.mappath (sfolder)) และ foLdeRexists (server.mappath (dfolder)) จากนั้น
fso.copyfolderserver.mappath (sfolder), server.mappath (dfolder)
movefiles = true
อื่น
MoveFiles = FALSE
setfso = ไม่มีอะไร
callalertbox ("系统没有找到指定的路径 [" & sfolder & "]!", 2)
endif
setfso = ไม่มีอะไร
endfunction
FunctionRenameFolder (sfolder, dfolder)
onerrorresumenext
dimfso
setfso = server.createObject ("Scripting.FilesYstemObject")
iffso.folderexists (Server.mappath (sfolder)) แล้ว
fso.movefolderserver.mappath (sfolder), server.mappath (dfolder)