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

时间:2021-11-05 09:21:08
  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