שלח תשובה

זירת השאלות

526
צפיות
14
תשובות

שלום.

,‏ 25 בנובמבר, 2004

שלום, כפי שאתם רואים אני חדש פה.
טוב, אז לעניין, בניתי מין מערכת סטטיסטיקות קטנה בASP, עכשיו, כשאני נכנס אליה מופיע לי השגיאה הבאה:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UBOUND'

/admin/stats/GrabStats.asp, line 5

שורה מס' 5 בקובץ:

FOR k = 0 TO UBOUND( localStats, 2 )

אשמח לעזרה, דוד.

תגיות:

14 תשובות

  1. ניר טייב הגיב:

    דחוף תכתוב על דלתות
    בקשר לבעייתך אז localState ה מערך או מחרוזת ? (אם זה מחרוזת אז תשתמש ב-LEN)

  2. ניר טייב הגיב:

    מצטערים, אין ביכולתנו לענות אם לא
    תעזור לנו לענות.  ההודעה איך מציגים שאלה באה לשם כך שתקרא אותה תיישם אותה ובסוף אנחנו נוכל לעזור לך בדרך היעילה ביותר.

  3. DavidBD הגיב:

    הבאתי כל מה שאני יכול לתת…
    הבאתי את השגיאה, שורה מס' 5 (שרשום שבה יש בעיה), מה עוד אני יכול לתת?

  4. אוריקס הגיב:

    יש לך שתי אפשרויות:
    1. לקרוא איך מציגים שאלה ולהציג את השאלה שלך בצורה נורמלית.
    2. לא להציג שאלה כראוי ולגרום לנו לא לרצות/להיות מסוגלים לענות לך.

    תבחר

  5. DavidBD הגיב:

    מה הבעיה?
    תגיד לי מה לשנות, אני קראתי איך מציגים..

  6. BuildHome הגיב:

    נסה להראות קצת יותר קוד ולא שורה

  7. DavidBD הגיב:

    כל הקוד מספיק?
    הנה:
    <%
    foundUser = FALSE
    Application.Lock
    localStats = Application( "Stats" )
    FOR k = 0 TO UBOUND( localStats, 2 )
        IF localStats( 0, k ) = Session.SessionID THEN
            localStats( 1, k ) = Request.ServerVariables( "SCRIPT_NAME" )
            foundUser = TRUE
           EXIT FOR
        END IF
    NEXT
    IF foundUser = FALSE THEN
    FOR k = 0 TO UBOUND( localStats, 2 )
        IF localStats( 0, k ) = "" THEN
        localStats( 1, k ) = Request.ServerVariables( "SCRIPT_NAME" )
        localStats( 2, k ) = Request.ServerVariables( "REMOTE_ADDR" )
        localStats( 3, k ) = NOW()
        EXIT FOR
        END IF
    NEXT
    END IF
    Application("Stats") = localStats
    Application.UnLock
    %>

שלח תשובה