كوكي تعداد كاربران حاظر درسايت

nasser · Apr 14, 2003

سلام

يك سوال داشتم كسي مي دونه چه طور مي شه كوكي هاي كاربران حاظر در سايت را كه ما قبلا ، مثلا در هنگام ثبت نام روي كامپيوترشان نوشته ايم را وقتي كه در سايت ما online هستند ،، به جاي تعداد كاربران حاظر كوكي نوشته شده بر روي كامپيوترشان را كه مثلا نام طرف است را نشان بده
البته تقريبا بلدم كه چه طوري تعداد كاربران حاظر در سايت را بدست بيارم ولي كوكي نه ؟؟
و خيلي ممنون مي شم با زبان ASP كسي كمك كنه

ممنون

hoom · Apr 15, 2003

ناصر جان

كوكي براي Client خيلي خوب است. براي Server بهترين كار اينه كه توي global.asa يه تابع Session_OnStart بنويسي. اينطوري هر زمان كه كاربري به سايت تو وصل بشه ميتوني مشخصاتش رو بخوني و يا كارهاي ديگه اي بكني.

اينم يه مثال

کد:

Sub Session_OnStart

    Dim sConnectionString
    sConnectionString = Application("UserData_ConnectionString")
           
    Application.Lock

    Dim strIPAddress
    Dim strTime
    strIPAddress = Request.ServerVariables ("REMOTE_ADDR")
    strTime = CStr(Now)
           
    Dim objConnection
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open sConnectionString
                   
    Dim SQLQuery
    Dim RS
                   
    SQLQuery = "INSERT INTO UserInfo (IPAddress, ConnectTime) " & _
                     "VALUES ('" & strIPAddress & "', '" & strTime & "') "

    Set RS =  objConnection.Execute(SQLQuery)
                   
        SQLQuery = "SELECT COUNT(IPAddress) FROM UserInfo"

        Set RS =  objConnection.Execute(SQLQuery)
                                           
        Session("intUserCount") = RS.Fields(0)

    objConnection.Close
                   
    Set objConnection = Nothing
    Set RS = Nothing
     
    Application.UnLock
End Sub

اميدوارم كه سوالت رو درست متوجه شده باشم.

ارادتمند

AZAD_NAG · May 6, 2003

سلام

چه طوري تعداد كاربران حاظر در سايت را بدست بيارم با asp ?
متشكرم

hoom · May 6, 2003

سلام

اگه منظورت با استفاده از مثال منه كه اين همچين كاري رو نميكنه. براي اين كار يه چيزي مثل اين بنويس :

کد:

Sub Session_OnStart
   Application.Lock
   Application("lngUsers") = Application("lngUsers") + 1
   Application.UnLock
End Sub

Sub Session_OnEnd
   Application.Lock
   Application("lngUsers") = Application("lngUsers") - 1
   Application.UnLock
End Sub

بعدش هم هرجاي برنامه كه لازم داشتي تعداد كاربران حاضر رو داشته باشي اين كد رو بنويس

کد: