'==================================================
'過程名：SaveRemoteFile
'作用：保存遠程的文件到本地
'參數：LocalFileName------本地文件名
'參數：RemoteFileUrl------遠程文件URL
'==================================================
FunctionSaveRemoteFile(LocalFileName,RemoteFileUrl)
SaveRemoteFile=True
dimAds,Retrieval,GetRemoteData
OnErrorResumeNext
SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",RemoteFileUrl,False,"",""
.Send
If.Readystate<>4or.Status>300then
SaveRemoteFile=False
ExitFunction
EndIf
GetRemoteData=.ResponseBody
EndWith
SetRetrieval=Nothing
'IfLenB(GetRemoteData)<100ThenExitFunction
'IfMaxFileSize>0Then
'IfLenB(GetRemoteData)>5000ThenExitFunction
Response.Write(Round(LenB(GetRemoteData)/1024))&"KB"
'EndIf
SetAds=Server.CreateObject("Adodb.Stream")
WithAds
.Type=1
.Open
.WriteGetRemoteData
.SaveToFileserver.MapPath(LocalFileName),2
.Cancel()
.Close()
EndWith
IfErr.number<>0then
SaveRemoteFile=False
ExitFunction
Err.Clear
EndIf
SetAds=nothing
endFunction