<%
'================================================
'函数名：SaveRemoteFile
'作用：保存远程文件到本地
'参数：strFileName----保存文件的名称
'strRemoteUrl----远程文件URL
'返回值：布尔值True/False
'================================================
FunctionSaveRemoteFile(ByValstrFileName,ByValstrRemoteUrl)
DimoStream,Retrieval,GetRemoteData
SaveRemoteFile=False
OnErrorResumeNext
SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")
Retrieval.Open"GET",strRemoteUrl,False,"",""
Retrieval.Send
IfRetrieval.readyState<>4ThenExitFunction
IfRetrieval.Status>300ThenExitFunction
GetRemoteData=Retrieval.ResponseBody
SetRetrieval=Nothing
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=Nothing
Else
ExitFunction
EndIf
IfErr.Number=0Then
SaveRemoteFile=True
Else
Err.Clear
EndIf
EndFunction
%>
