正在獲取“ 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？