正在获取“ Microsoft VBScript运行时错误'800a01a8'”

Question

我继承了一个网站进行常规维护。 网页是ASP页，但是我的大部分工作都使用html / css。 该网站已经运行了好几年，直到现在。 当我尝试加载包含VB脚本的页面时，出现以下错误：

Microsoft VBScript运行时错误'800a01a8'

所需对象：“ [object]”

/new_products.asp，第12行

asp页面的名称根据所调用的页面而变化，但行引用相同。

生成错误的代码如下：

        Dim objXMLHTTP
    Dim coordinates
    Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    ip = Request.ServerVariables("REMOTE_ADDR")
    objXMLHTTP.Open "GET", "http://www.ippages.com/xml/?ip="&ip&"&get=country", False
    objXMLHTTP.Send
    Set xmldoc = objXMLHTTP.responseXML
    country = xmldoc.selectSingleNode("ip_address/lookups/lookup_country").text
    set objXMLHTTP=nothing

    theCountry = Trim(UCASE(country))


    If theCountry = "CA-CANADA" then
        Bags = "13.99"
        SB4Pack = "14.00"
        currency_code = "CAD"
        lc = "CA"
        Pref = "$"
        ShipType = 1
    ElseIf theCountry = "US-UNITED STATES" then
        Bags = "13.99"
        SB4Pack = "14.00"
        currency_code = "USD"
        lc = "US"
        Pref = "$"
        ShipType = 2
    Else
        Bags = "8.00"
        SB4Pack = "11.00"
        currency_code = "GBP"
        lc = "UK"
        Pref = "£"
        ShipType = 2
    End If

由于我对VB的了解极为有限，我已尽力尝试找出代码为何无法正常工作的原因，但我为此感到困惑。 任何帮助都将不胜感激。

Answer 1

由于这是特定于环境的问题，正如您提到的那样，该问题最近才开始弹出...无法提供肯定的声明。 您需要对其进行调查。 一个人可以做的是建议一些事情。 我相信您的问题就是此声明之一。

Set xmldoc = objXMLHTTP.responseXML
country = xmldoc.selectSingleNode("ip_address/lookups/lookup_country").text

可能此值不为Null或Null或Nothing。尝试将国家/地区的值打印为Null，Nothing ...稍后再尝试更改国家/地区的大小写时。...可以使用工具捕获Http诸如Fidler之类的请求和响应工具，以验证lookup_country中即将出现的值或是否获取此节点。

另外其中theCountry声明。 如果它是动态变量，则检查是否有一个启用了OptionExplicit？