服务器 XMLHttp 导致 IE 8 中的页面永远执行？

Question

我从名为 Error1.asp 的页面中获取了以下代码。但每当它运行时，发布数据的页面永远不会显示。需要显示的是“default1.aspx”，但它永远不会在 IE8 中呈现。在 Firefox 和 Chrome 中，它使用如下相同的代码进行渲染，没有任何问题。 我怎样才能让这个 ServerXMLHttp 在 IE 8 中工作？我的电脑上有 Win 7 64 位。

Set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open  "POST","http://localhost/ClassicASPErrorHandling/default1.aspx",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xmlhttp.send   "errorDesc=" & Server.HTMLEncode(Server.GetLastError().Description() )& "&errorDetailedDesc=" & Server.HTMLEncode(Server.GetLastError().ASPDescription()) & "&errorURL=" & strURL & "&errorLineNumber=" & Server.HTMLEncode(ASPErr.Line()) & "&errorFile=" & Server.HTMLEncode( ASPErr.File()) & "&errorSource=" & Server.HTMLEncode(ASPErr.Source()) & "&logonUser="  & strLogonUser & "&errorCode=" & Server.HTMLEncode(Server.GetLastError().ASPCode() )
Response.Write xmlhttp.responseText
Response.ContentType = "text/xml"
Response.Write xmlhttp.responsexml.xml
Set xmlhttp = nothing

Answer 1

答案已经被接受，但是为了其他读者的利益，这里的代码应该是这样的：-

 Dim xmlhttp: Set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP") 
 xmlhttp.Open "POST", "http://localhost/ClassicASPErrorHandling/default1.aspx", false 
 xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 

 Dim lastErr: lastErr = Server.GetLastError()
 Dim entityBody: entityBody = "errorDesc=" & Server.URLEncode(lastErr.Description) _
      & "&errorDetailedDesc=" & Server.URLEncode(lastErr.ASPDescription) _
      & "&errorURL=" & Server.URLEncode(strURL) _
      & "&errorLineNumber=" & lastErr.Line _
      & "&errorFile=" & Server.URLEncode(lastErr.File) _
      & "&errorSource=" & Server.URLEncode(lastErr.Source) _
      & "&logonUser="  & strLogonUser _
      & "&errorCode=" & lastErr.ASPCode 

 xmlhttp.send Replace(entityBody, "+", "%20")

 Response.ContentType = "text/html"  

 Response.Write xmlhttp.responseText 

Answer 2

我怀疑这是一个浏览器问题，我认为发生的情况是您在页面上显示内容，然后更改内容类型，IE 可能无法理解这一点，因此，在您的代码中尝试此更改，看看它是否有效：

 Set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP")
 xmlhttp.Open  "POST","http://localhost/ClassicASPErrorHandling/default1.aspx",false
 xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

 xmlhttp.send   "errorDesc=" & Server.HTMLEncode(Server.GetLastError().Description() )& "&errorDetailedDesc=" & Server.HTMLEncode(Server.GetLastError().ASPDescription()) & "&errorURL=" & strURL & "&errorLineNumber=" & Server.HTMLEncode(ASPErr.Line()) & "&errorFile=" & Server.HTMLEncode( ASPErr.File()) & "&errorSource=" &      Server.HTMLEncode(ASPErr.Source()) & "&logonUser="  & strLogonUser & "&errorCode=" & Server.HTMLEncode(Server.GetLastError().ASPCode() )

 Response.ContentType = "text/xml" //THIS SHOULD HAPPEN BEFORE USING RESPONSE.WRITE

 Response.Write xmlhttp.responseText //DO NOT DO THIS UNLESS DATA IS XML BECAUSE OF CONTENTTYPE
 Response.Write xmlhttp.responsexml.xml
 Set xmlhttp = nothing

如果您尝试在 ContentType = "text/xml" 页面上显示非 XML 数据，我可以向您保证 IE 可能是第一个出现问题的浏览器。确保写入页面的唯一内容是 XML 或更改 ContentType = "text/html"