SaveRemoteFile函数之asp实现保存远程的文件到本地的代码

1. '==================================================  
2. '过程名：SaveRemoteFile  
3. '作  用：保存远程的文件到本地  
4. '参  数：LocalFileName ------ 本地文件名  
5. '参  数：RemoteFileUrl ------ 远程文件URL  
6. '==================================================  
7. Function SaveRemoteFile(LocalFileName,RemoteFileUrl)  
8.     SaveRemoteFile=True  
9.     dim Ads,Retrieval,GetRemoteData      
10.     On Error Resume Next  
11.     Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")  
12.     With Retrieval  
13.         .Open "Get", RemoteFileUrl, False, "", ""  
14.         .Send  
15.         If .Readystate<>4 or .Status > 300 then  
16.             SaveRemoteFile=False  
17.             Exit Function  
18.         End If  
19.         GetRemoteData = .ResponseBody  
20.     End With  
21.     Set Retrieval = Nothing  
22.     'If LenB(GetRemoteData) < 100 Then Exit Function  
23.     'If MaxFileSize > 0 Then  
24.             'If LenB(GetRemoteData) > 5000 Then Exit Function  
25.             Response.Write(Round(LenB(GetRemoteData)/1024)) & "KB"  
26.     'End If  
27.     Set Ads = Server.CreateObject("Adodb.Stream")  
28.     With Ads  
29.         .Type = 1  
30.         .Open  
31.         .Write GetRemoteData  
32.         .SaveToFile server.MapPath(LocalFileName),2  
33.         .Cancel()  
34.         .Close()  
35.     End With  
36.     If Err.number<>0 then  
37.       SaveRemoteFile=False  
38.       Exit Function  
39.          Err.Clear  
40.        End If  
41.     Set Ads=nothing  
42.  
43. end Function