下載文件

Question

我有一個鏈接到一個PDF例如

abc.com/1.pdf abc.com/2g.pdf abc.com/i8.pdf

幾個URL

我想要做的是使用傳統的ASP

文件夾自動下載的PDF我嘗試使用此代碼http://blog.netnerds.net/2007/01/classic-asp-push-file-downloads-from-directory-outside-of-the-web-root/ 但對於HTTP，這並不工作，如果這些文件是本地它的作品好。

我想自動做到這一點。

Answer 1

如果有人願意使用它，我就可以在互聯網上的某處找到這段代碼。

<% 
Server.ScriptTimeout = 60 * 20 
' Set your settings 
strFileURL = "http://pathtofile.zip" 
strHDLocation = "c:\filename.zip" 

' Fetch the file 
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0") 

objXMLHTTP.Open "GET", strFileURL, False 
objXMLHTTP.Send() 

If objXMLHTTP.Status = 200 Then 
    Set objADOStream = CreateObject("ADODB.Stream") 
    objADOStream.Open 
    objADOStream.Type = 1 'adTypeBinary 

    objADOStream.Write objXMLHTTP.ResponseBody 
    objADOStream.Position = 0 'Set the stream position to the start 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    If objFSO.FileExists(strHDLocation) Then objFSO.DeleteFile strHDLocation 
    Set objFSO = Nothing 

    objADOStream.SaveToFile strHDLocation 
    objADOStream.Close 
    Set objADOStream = Nothing 
End if 

Set objXMLHTTP = Nothing 
%> 

Answer 2

我使用了user580950發佈的代碼和AnthonyWJones的評論，並創建了代碼的功能版本。調用該函數，並返回下載文件的內容類型或空字符串（如果找不到該文件）。

public function SaveFileFromUrl(Url, FileName) 
    dim objXMLHTTP, objADOStream, objFSO 

    Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0") 

    objXMLHTTP.open "GET", Url, false 
    objXMLHTTP.send() 

    If objXMLHTTP.Status = 200 Then 
     Set objADOStream = CreateObject("ADODB.Stream") 
     objADOStream.Open 
     objADOStream.Type = 1 'adTypeBinary 

     objADOStream.Write objXMLHTTP.ResponseBody 
     objADOStream.Position = 0 'Set the stream position to the start 

     Set objFSO = Createobject("Scripting.FileSystemObject") 
     If objFSO.Fileexists(FileName) Then objFSO.DeleteFile FileName 
     Set objFSO = Nothing 

     objADOStream.SaveToFile FileName 
     objADOStream.Close 
     Set objADOStream = Nothing 

     SaveFileFromUrl = objXMLHTTP.getResponseHeader("Content-Type") 
    else 
     SaveFileFromUrl = "" 
    End if 

    Set objXMLHTTP = Nothing 
end function