Question

我目前面临着创建CreateObject("MSXML2.ServerXMLHTTP.6.0")对象的一些问题。

Public Function PrepareHttpRequest(Request As RestRequest, TimeoutMS As Long, _
Optional UseAsync As Boolean = False) As Object
Dim Http As Object
**Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")**

' Set timeouts
Http.setTimeouts TimeoutMS, TimeoutMS, TimeoutMS, TimeoutMS

' Add general headers to request
Request.AddHeader "User-Agent", UserAgent
Request.AddHeader "Content-Type", Request.ContentType

If Request.IncludeContentLength Then
    Request.AddHeader "Content-Length", Request.ContentLength
Else
    If Request.Headers.Exists("Content-Length") Then
        Request.Headers.Remove "Content-Length"
    End If
End If

' Pass http to request and setup onreadystatechange
If UseAsync Then
    Set Request.HttpRequest = Http
    Http.onreadystatechange = Request
End If

Set PrepareHttpRequest = Http
End Function

以上代码适用于某些用户但在某些用户机器上失败。任何人都可以提供必要的修改来解决问题。

Answer 1

尝试：

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")

否则请设置On Error Goto ln并告诉我们Err.Description是什么，并将其谷歌

运行ProcessMonitor以查看它试图找到DLL的位置和regsvr32 msxml6.dll

的CreateObject（＆＃34; MSXML2.ServerXMLHTTP.6.0＆＃34）

1 个答案: