'=======================================================================================
'프로세스 이름 : SaveremoteFile
'기능 : 원격 파일을 로컬에 저장하십시오
'매개 변수 : localFileName ------ 로컬 파일 이름
'매개 변수 : RemoteFileUrl ----- 원격 파일 URL
'=======================================================================================
functionsaveremotefile (localfilename, implefileurl)
saveremotefile = true
Dimads, 검색, GetRemotedata
onerrorresumenext
setretRieval = server.createObject ( "microsoft.xmlhttp")
retrieval
. "get", ormotefileurl, false, ",", ",", ",", "", ""
.보내다
if.readystate <> 4or.status> 300then
saveremotefile = false
종료 기능
endif
getRemotedata = .ResponseBody
끝
setretrieval = 아무것도
'iflenb (getRemotedata) <100thenexitFunction
'ifmaxFilesize> 0then
'iflenb (getRemotedata)> 5000thenexitfunction
response.write (라운드 (Lenb (getRemotedata)/1024)) & "KB"
'endif
setads = server.createobject ( "adodb.stream")
Withads
.type = 1
.열려 있는
.writeGetRemotedata
.savetofilesserver.mappath (localfilename), 2
.취소()
.닫다()
끝
iferr.number <> 0then
saveremotefile = false
종료 기능
err.clear
endif
setads = 아무것도
최종 기능 장애