526
צפיות
צפיות
14
תשובות
תשובות
שלום.
שלום, כפי שאתם רואים אני חדש פה.
טוב, אז לעניין, בניתי מין מערכת סטטיסטיקות קטנה בASP, עכשיו, כשאני נכנס אליה מופיע לי השגיאה הבאה:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'UBOUND'
/admin/stats/GrabStats.asp, line 5
שורה מס' 5 בקובץ:
FOR k = 0 TO UBOUND( localStats, 2 )
אשמח לעזרה, דוד.
14 תשובות
מישהו?? אני חייב דחוף.
דחוף תכתוב על דלתות
בקשר לבעייתך אז localState ה מערך או מחרוזת ? (אם זה מחרוזת אז תשתמש ב-LEN)
מערך
קרא איך מציגים שאלה.
…
מצטער, אבל אני צריך עזרה…
מצטערים, אין ביכולתנו לענות אם לא
תעזור לנו לענות. ההודעה איך מציגים שאלה באה לשם כך שתקרא אותה תיישם אותה ובסוף אנחנו נוכל לעזור לך בדרך היעילה ביותר.
הבאתי כל מה שאני יכול לתת…
הבאתי את השגיאה, שורה מס' 5 (שרשום שבה יש בעיה), מה עוד אני יכול לתת?
יש לך שתי אפשרויות:
1. לקרוא איך מציגים שאלה ולהציג את השאלה שלך בצורה נורמלית.
2. לא להציג שאלה כראוי ולגרום לנו לא לרצות/להיות מסוגלים לענות לך.
תבחר
מה הבעיה?
תגיד לי מה לשנות, אני קראתי איך מציגים..
נסה להראות קצת יותר קוד ולא שורה
כל הקוד מספיק?
הנה:
<%
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
%>
הקפצה. (מצטער, נחת…)
הקפצה =