'========================================================================
'プロセス名：SavereMoteFile
'機能：リモートファイルをローカルに保存します
'パラメーター：LocalFileName ------ローカルファイル名
'パラメーター：RemoteFileUrl -----リモートファイルURL
'========================================================================
functionsaveremotefile（localfilename、remotefileurl）
saveremotefile = true
ディマド、検索、getRemotedata
onerrorresumenext
setretrieval = server.createObject（ "microsoft.xmlhttp"）
withretrieval
.open "get"、remotefileurl、false、 ""、 "
。送信
if.readystate <> 4or.status> 300then
saveremotefile = false
exitFunction
endif
getRemotedata = .ResponseBody
終わりに
setretrieval =何もない
'iflenb（getRemotedata）<100ThenExitFunction
'ifmaxfilesize> 0 then
'iflenb（getRemotedata）> 5000TheNexitFunction
Response.write（round（lenb（getRemotedata）/1024））＆ "kb"
'endif
setads = server.createObject（ "adodb.stream"）
withs
.type = 1
。開ける
.writegetRemotedata
.savetofilesserver.mappath（localfilename）、2
。キャンセル（）
。近い（）
終わりに
iferr.Number <> 0then
saveremotefile = false
exitFunction
err.clear
endif
setads = Nothing
エンド機能