0

したがって、画像をダウンロードして保存するために使用したい次のコードがあります。

<%
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
%>

これを Web の画像で実行すると、正常に動作します。ただし、NT 認証が必要なイントラネット イメージで使用しようとすると、401 エラーが返されます。response.write objXMLHTTP.Status

したがって、私のやや明白な質問は、NT 認証を使用せずにスクリプトでこれを行うにはどうすればよいかということです。

でも

また、画像に拡張子がないことが原因である可能性もあります。それらは形式http://domain/thumbs/image1ではなくhttp://domain/thumbs/image1.png

いずれにせよ、私はそれを機能させることはできません！

ありがとう

4

1 に答える 1

0

http://msdn.microsoft.com/en-us/library/ms763809%28v=vs.85%29.aspx

objXMLHTTP.open(bstrMethod, bstrUrl, bAsync, bstrUser, bstrPassword);
于 2015-01-12T12:04:48.133 に答える