با سلام
----------------------------
ببخشيد اين مطلب از خودم نيست ولي چون ديدم ممكن است بدرد شما بخورد براتون گذاشتم
-------------------------------
براي نمايش دادن تعداد كاربران حاضر در سايت به زبان Asp بايد مراحل زير را دنبال كنيد :
1. ابتدا فايل golbal.asa را براي خود ميسازيد و يا اگر داريد كد زير را به آن اضافه ميكنيد .
* اگر فايل golbal.asa را نداريد ميتونيد كد زير رو تو notpad بنويسيد و سپس اونو با نام golbal.asa تو شاخه www ذخيره كنيد .
کد:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("Active") = 0
End Sub
Sub Application_OnEnd
'nothing needed here for this example
End Sub
Sub Session_OnStart
Session.Timeout = 5
Session("Start") = Now
Application.lock
Application("Active") = Application("Active") + 1
'add 1 to active visitor count when new visitor arrives
Application.unlock
End Sub
Sub Session_OnEnd
Application.lock
Application("Active") = Application("Active") - 1
'subtract 1 active visitor when visitor leaves
Application.unlock
End Sub
</SCRIPT>
سپس مرحله بعد رو ادامه بديد :
2. حالا تو هر كدوم از فايلهاي asp شما در هر دايركتوري تو سايتتون از كد زير استفاده كنين تعداد كاربرهاي حاضر در سايت رو نمايش ميده :
کد:
<%=Application("Active")%>
مثلا :
<%@ Language=VBScript %>
<html>
<head>
<title>Current Visitors</title>
</head>
<body>
بيننده فعال هم اكنون در سايت وجود دارند<%=Application("Active")%>تعداد
</body>
</html>
كه مثلا خروجي به شكل زير داره :
تعداد 10 بيننده فعال هم اكنون در سايت وجود دارند .
-----------------------------------------------
-------------------------------------------
منبع:سبحان ساعدي
-------------------------------------------
مجيد( 8O )