Question

我在这条线上间歇性地得到“VBScript运行时错误'800a0006'：溢出”：

Response.Cookies("AffiliateID").Expires = Date() + 30 '30 day cookie

错误消息引用了这一行但是它可能发生在它周围的代码中，如下所示：

 elseif Session("LoggedIn")<>1 and not isEmpty(request.querystring("aff")) then
    Dim arr_service_area_options, c
    arr_service_area_options = Split(Application("SERVICE_AREA_OPTIONS"),",")
    for c = 0 to UBound(arr_service_area_options)
        if CInt(Trim(request.querystring("aff"))) = CInt(Trim(arr_service_area_options(c))) then
            Session("AffiliateID") = arr_service_area_options(c)
            Response.Cookies("AffiliateID") = arr_service_area_options(c)
            Response.Cookies("AffiliateID").Expires = Date() + 30 '30 day cookie                    
            exit for
        end if
    next

Answer 1

尝试将行更改为

Response.Cookies("AffiliateID").Expires = DateAdd("d", 30, Date()) '30 day cookie

为什么我收到此VBScript“溢出”错误？

1 个答案: