在Checkout購物車上獲取Microsoft VBScript運行時錯誤'800a0009'

Question

我對ASP確實不是很熟悉，但是我正在管理的網站向我吐出了這個錯誤。 這是該站點的完整代碼：

Microsoft VBScript運行時錯誤'800a0009'下標超出范圍：'[數字：1]'/shopping_sub.asp，行715。

這是697-728中的代碼：

'Response.write strPass & "<p>"     
    'Response.write "Response: " & strResp
    'Response.end

    If strResp="ERROR" then
        RESULT_num_shipping_options = -1
        Session("ShipErrMsg")="To continue your order, please contact customer service regarding your contact information. Thank you."
    Else    
        RESULT_num_shipping_options=1

        vResp=Split(strResp,":")

        Dim RESULT_shipping_description_array(4)
        Dim RESULT_shipping_amount_array(4)

        For I = 0 to UBound(vResp)
                vResp2=Split(vResp(I),"|")
                RESULT_shipping_description_array(I)=vResp2(0)
                RESULT_shipping_amount_array(I)=vResp2(1)

        Next            
    End If      

Else
    RESULT_num_shipping_options = -1
    cShipping=0
End If
End If

'Response.write "Weight: " & siWeight & "<br/>"
'Response.write "Zip: " & receiverpostalcode & "<br/>"
'Response.write "Country: " & receivercountrycode & "<br/>"

在將7項商品添加到購物車后，它似乎開始起作用，但少於此數則返回錯誤。

並非所有產品都這樣，所以有什么主意嗎？

Answer 1

您是否已使用調試器確定vResp的值和vResp2的數組長度？

我的猜測是響應不是您所期望的。 如果您不能強制api始終具有正確的響應，那么您將想通過在嘗試訪問該值之前檢查split響應的長度來防止該api。

我看到的另一個不相關的問題是，如果UBound（vResp）_> 4，那么您將收到類似的錯誤