<％
'==========================================================================
'関数名：SavereMoteFile
'機能：リモートファイルをローカルに保存します
'パラメーター：StrfileName ----ファイル名を保存します
'strremoteurl ---リモートファイルURL
'戻り値：ブールの真/false
'==========================================================================
functionsaveremotefile（byvalsstrfilename、byvalstrremoteurl）
ディモストリーム、検索、getRemotedata
saveremotefile = false
onerrorresumenext
setretrieval = server.createObject（ "microsoft.xmlhttp"）
retireval.open "get"、strremoteurl、false ""、 ""
retrieval.send
ifretrieval.readystate <> 4thenexitfunction
ifretrieval.status> 300thenexitfunction
getRemotedata = retireval.responseBody
setretrieval =何もない
iflenb（getRemotedata）> 100then
setostream = server.createObject（ "adodb.stream"）
osttream.type = 1
ostream.mode = 3
ostream.open
ostream.writegetRemotedata
ostream.savetofileserver.mappath（strfilename）、2
ostream.cancel
ostream.close
setostream =何も
それ以外
exitFunction
endif
iferr.number = 0then
saveremotefile = true
それ以外
err.clear
endif
エンド機能
％>
