<%
functionloadtempletfile (byvalpath)
onerrorresumenext
Dimobjstream
setobjstream = server.createobject ( "adodb.stream")
Withobjstream
.type = 2
. 모드 = 3
.열려 있는
.LOADFROMFILESERVER.MAPPATH (경로)
iferr.number <> 0then
err.clear
response.write ( "ite ["& path & "] 不存在!")
응답 ()
endif
.charset = ""& chrset & ""
.Position = 2
loadTemPletFile = .ReadText
.닫다
끝
setobjstream = 아무것도
최종 기능 장애
FunctionMoveFiles (Sfolder, DFolder)
onerrorresumenext
Dimfso
setfso = server.createobject ( "scripting.filesystemobject")
iffso.dolerexists (server.mappath (sfolder)) andfso.doderexists (server.mappath (dfolder))
fso.copyfolderserver.mappath (sfolder), server.mappath (dfolder)
MoveFiles = true
또 다른
movefiles = false
setfso = 아무것도
Callalertbox ( "box ["& sfolder & "]!", 2)
endif
setfso = 아무것도
최종 기능 장애
functionrenamefolder (Sfolder, Dfolder)
onerrorresumenext
Dimfso
setfso = server.createobject ( "scripting.filesystemobject")
iffso.dolerexists (Server.mappath (Sfolder))
fso.moveDerserver.mappath (sfolder), server.mappath (dfolder)