-
'==================================================
-
'过程名:SaveRemoteFile
-
'作 用:保存远程的文件到本地
-
'参 数:LocalFileName ------ 本地文件名
-
'参 数:RemoteFileUrl ------ 远程文件URL
-
'==================================================
-
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
-
SaveRemoteFile=True
-
dim Ads,Retrieval,GetRemoteData
-
On Error Resume Next
-
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
-
With Retrieval
-
.Open "Get", RemoteFileUrl, False, "", ""
-
.Send
-
If .Readystate<>4 or .Status > 300 then
-
SaveRemoteFile=False
-
Exit Function
-
End If
-
GetRemoteData = .ResponseBody
-
End With
-
Set Retrieval = Nothing
-
'If LenB(GetRemoteData) < 100 Then Exit Function
-
'If MaxFileSize > 0 Then
-
'If LenB(GetRemoteData) > 5000 Then Exit Function
-
Response.Write(Round(LenB(GetRemoteData)/1024)) & "KB"
-
'End If
-
Set Ads = Server.CreateObject("Adodb.Stream")
-
With Ads
-
.Type = 1
-
.Open
-
.Write GetRemoteData
-
.SaveToFile server.MapPath(LocalFileName),2
-
.Cancel()
-
.Close()
-
End With
-
If Err.number<>0 then
-
SaveRemoteFile=False
-
Exit Function
-
Err.Clear
-
End If
-
Set Ads=nothing
-
-
end Function