我似乎无法使用 ASP（经典）、IIS6 加载 XML 文档。里面有详细信息

Question

因此，我正在编写一个在我的组织内使用的 Web 应用程序。应用程序要求它知道当前用户是谁。这是通过调用 Request.ServerVariables("AUTH_USER") 函数来完成的，只要在 IIS 中为此子网站禁用（未选中）“匿名访问”并且启用（选中）“集成 Windows 身份验证”，该函数就可以正常工作。

不幸的是，通过这样做，当我点击 XML DOM 的加载方法时，我收到了“访问被拒绝”错误。

示例代码：

dim urlToXmlFile
urlToXmlFile = "http://currentwebserver/currentsubweb/nameofxml.xml"

dim xmlDom
set xmlDom = Server.CreateObject("MSXML2.DOMDocument")

xmlDom.async = false
xmlDom.load( urlToXmlFile ) ' <-- this is where I get the error!

我到处都找过了，但找不到解决方案。无论身份验证方法如何，我都应该能够将 XML 文件加载到 DOM 中。

任何帮助将不胜感激。到目前为止，我能想到的唯一两个解决方案是：

a）创建一个新的子网，它只获取当前用户名并以某种方式将其传递回我的 XML 读取子网。

b) 将整个系统的安全性向“所有人”开放，这可行，但我们的信息系统部门不会关心这一点。

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

这是我的原始代码，这会导致访问被拒绝错误：

dim urlToXml
urlToXml = "http://someserver/somesomeweb/nameofxml.xml"

dim xmlDom
set xmlDom = Server.CreateObject("MSXML2.DOMDocument")
xmlDom.loadXML( urlToXml )

dim xsl 
set xsl = Server.CreateObject("MSXML2.DOMDocument")
xsl.async = false
xsl.load(server.MapPath("somexsl.xsl"))

Response.Write( xmlDom.transformNode(xsl) )
xmlDom.save( server.MapPath("accounting/somexml.xml") )

现在，这是我的新代码，感谢 thomask：

dim urlToXml
urlToXml = "http://someserver/somesomeweb/nameofxml.xml"

set http = CreateObject("MSXML2.ServerXMLHTTP.3.0")
http.Open "GET", urlToXml, false
http.Send()

dim xmlDom
set xmlDom = Server.CreateObject("MSXML2.DOMDocument")
xmlDom.loadXML( http.responseXML.xml )

dim xsl 
set xsl = Server.CreateObject("MSXML2.DOMDocument")
xsl.async = false
xsl.load(server.MapPath("somexsl.xsl"))

Response.Write( xmlDom.transformNode(xsl) )
xmlDom.save( server.MapPath("newxml.xml") )

再次非常感谢 thomask。

Answer 1

您可能想查看 MSXML2.ServerXMLHTTP(.3.0 - 6.0) 来指定用户凭据。如果Content-Type配置正确，ServerXMLHTTP应该在responseXml属性中为您提供DOMDocument。

Dim http
Set http = CreateObject("MSXML2.ServerXMLHTTP.3.0")

http.Open("GET", "http://currentwebserver/currentsubweb/nameofxml.xml", false, "user", "pass")
http.Send()