■□■身未动 心已远■□■

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://wanna.blogbus.com/logs/5776271.html

Function SaveFile(LocalFileName,RemoteFileUrl)
 Dim Ads, Retrieval, GetRemoteData
 On Error Resume Next
 Set Retrieval = Server.CreateObject("Microso"&"ft.XM"&"LHTTP")
 With Retrieval
  .Open"Get", RemoteFileUrl, False,"",""
  .Send
  GetRemoteData = .ResponseBody
 End With
 Set Retrieval = Nothing
 Set Ads = Server.CreateObject("Ado"&"db.Str"&"eam")
 With Ads
  .Type = 1
  .Open
  .Write GetRemoteData
  .SaveToFile Server.MapPath(LocalFileName), 2
  .Cancel()
  .Close()
 End With
 Set Ads=nothing
 if err<> 0 then
  SaveFile = false
  err.clear
 else
  SaveFile = true
 end if
End function