<%
'================================================================================
'기능 이름 : SaveremoteFile
'기능 : 원격 파일을 로컬에 저장하십시오
'매개 변수 : strfilename ---- 파일 이름을 저장합니다
'strremoteurl --- 원격 파일 URL
'반환 값 : 부울 참/거짓
'================================================================================
functionsaveremotefile (byvalstrfilename, byvalstrremoteurl)
디모스트림, 검색, getRemotedata
saveremotefile = false
onerrorresumenext
setretRieval = server.createObject ( "microsoft.xmlhttp")
검색. "get", strremoteurl, false, "", ""
검색
ifretrieveal.readystate <> 4thenexitfunction
ifretrieval.status> 300thenexitfunction
getRemotedata = retrieval.responsebody
setretrieval = 아무것도
iflenb (getRemotedata)> 100then
setoStream = server.createObject ( "adodb.stream")
Ostream.type = 1
Ostream.Mode = 3
Ostream.open
Ostream.writeGetRemotedata
Ostream.savetofileserver.mappath (strfilename), 2
Ostream.cancel
Ostream.close
setoStream = 아무것도
또 다른
종료 기능
endif
iferr.number = 0then
saveremotefile = true
또 다른
err.clear
endif
최종 기능 장애
%>