|
'LocalFileName 要保存的路径'RemoteFileUrl 要抓取的路径Function SaveFile(LocalFileName,RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set Retrieval =Server.CreateObject("Microsoft.XMLHTTP")With Retrieval .Open "Get", RemoteFileUrl, False, "", "" .Send GetRemoteData = .ResponseBody |
