asp-classic - 我想通过 vb 6 将我的一些经典 asp 自定义函数转换为 dll 文件

Question

这是我的经典 asp 函数：

Private Function XMLHttpRequest(XmlHttpMode, XmlHttpURL, XmlHttpData)

    Dim MyXmlhttp
    Set MyXmlhttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")                  '
    With MyXmlhttp
        .setTimeouts 6000000, 600000, 600000, 600000                              '

            .Open "GET", XmlHttpURL, True
            .Option(4) = 13056 '
            .Option(6) = True '         

            .SetRequestHeader "Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/78.0.3904.97 Safari/537.36"        

        .send (XmlHttpData)
        .waitForResponse (2000)             

      If MyXmlhttp.Status = 200 Then           
             XMLHttpRequest = .ResponseBody           
        Else
           XMLHttpRequest = "error code:" & .Status            
        End If            

    End With

    Set MyXmlhttp = Nothing
End Function

在iis中运行很好，但我通过vb6转换为dll，然后给我一个错误提示：

“对象不支持此属性或方法”</p>

VB6源代码参考下面的库，我想知道我需要什么对象包括我的vb代码项目（用于制作dll文件，然后我可以在我的classi asp源代码中调用）。提前谢谢！

标签： asp-classicvb6

Answer 1

如果您使用的是屏幕截图所示的Microsoft WinHTTP 服务，请将您的变量声明为 WinHttpRequest 而不是 XMLHttpRequest。一切都应该与 XMLHttpRequest 对象一样工作。