asp-classic - 使用经典 ASP 从 URL 下载文件

Question

我有几个链接到 pdf 示例的网址

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

我想要做的是使用经典 ASP 在文件夹中自动下载 PDF

我尝试使用此代码 http://blog.netnerds.net/2007/01/classic-asp-push-file-downloads-from-directory-outside-of-the-web-root/
但这对 Http 不起作用，如果文件是本地的，则效果很好。

我想自动完成。

Answer 1

我使用了 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