שמירת הIP המחוברים במערך בAPPLICATION. - תכנות - HWzone פורומים
עבור לתוכן
  • צור חשבון

שמירת הIP המחוברים במערך בAPPLICATION.


Ghosthunter

Recommended Posts

אני מניח שאתה רוצה לשמור את הip של כל גולש באתר...

אם כן, אז זו הדרך ההיגיונית לעשות את זה.

מה שכן, אתה צריך לשים את הקוד בApplication_Start

רק לפני שאתה מכניס ערכים למסד, תבדוק אם הip הזה קיים כל במסד, ורק אם לא אז תכניס ערך חדש.

קישור לתוכן
שתף באתרים אחרים

לפי מה שהבנתי צריך להכניס את זה למערך בAPPLICATION, אבל כל העבודה נעשית בSESSION(חיבור וניתוק של אנשים).

בסופו של דבר, למסד הכנסתי ע"י עוגיה שאני שומר אצל המשתמש(אני רוצה לשמור רק לאלה שמחוברים).

תודה.

קישור לתוכן
שתף באתרים אחרים

הקפצה:(שאלה חדשה)

ניסיתי לבצע את זה:


<% userip = Application("userip")
if Application("usercount") = 0 then
%> אין אנשים
<% end if
for i=1 to Application("usercount")
response.write(userip(i))
<% next
%>


SUB Application_OnStart
Dim uip()
Application("userip") = uip
Application("usercount") = 0
END SUB

SUB Session_OnStart
redim uip(ubound(uip)+1) preserve
uip(ubound(uip)) = Request.ServerVariables("REMOTE_ADDR")
Application.lock
Application("userip") = uip
Application("usercount") = ubound(uip)
Application.unlock
END SUB

SUB Session_OnEnd
dim tmp()
dim i, j, flag
redim tmp(ubound(uip)-1)
j=1
flag = false
for i=lbound(uip) to ubound(uip) step 1
if uip(i) <> Request.ServerVariables("REMOTE_ADDR") or flag then
tmp(j) = uip(i)
j=j+1
else
flase = true
end if
next i
uip = tmp
Application.lock
Application("userip") = uip
Application("usercount") = ubound(uip)
Application.unlock
END SUB

ולא הצלחתי(הוא טוען שאין אנשים באתר - המונה שווה ל- 0).

האם מישהו יכול לתקן אותי?

לפי http://www.microsoft.com/windows2000/en/server/iis/default.asp?url=/WINDOWS2000/en/server/iis/htm/asp/vbob8zw4.htm

תודה רבה.

עריכה: יש אפשרות לאתחל את הAPPLICATION שלי?

ועוד שאלה אחת: איך אני בודק אם יש לי שגיאות בGLOBAL ASA שלי? הוא צריך להציג לי שגיאת 500, או שהוא לא אומר כלום?

קישור לתוכן
שתף באתרים אחרים

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

×
  • צור חדש...