Authentication 经典ASP-ServerXMLHTTP NT身份验证

Authentication 经典ASP-ServerXMLHTTP NT身份验证,authentication,asp-classic,serverxmlhttp,Authentication,Asp Classic,Serverxmlhttp,所以我有下面的代码,我想用它来下载图片并保存它们 <% function SaveFileFromUrl(Url, FileName) dim objXMLHTTP, objADOStream, objFSO Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0") objXMLHTTP.open "GET", Url, false objXMLHTTP.send() If objXML

所以我有下面的代码,我想用它来下载图片并保存它们

<%
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 OR objXMLHTTP.Status = 304 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
    response.write objXMLHTTP.Status
    Set objXMLHTTP = Nothing
end function
%>

当我在网上的图片上运行这个程序时,效果很好。但是,当尝试在需要NT身份验证的intranet映像上使用它时,我使用
response.write objXMLHTTP.Status

因此,我有点明显的问题是-如何在脚本中进行此操作而不取消NT身份验证

但是

这也可能是因为图像没有扩展名。它们的形式为
http://domain/thumbs/image1
而不是
http://domain/thumbs/image1.png

不管怎样,我都不能让它工作

谢谢

objXMLHTTP.open(bstrMethod, bstrUrl, bAsync, bstrUser, bstrPassword);