کدی جهت نمایش تعداد کاربران online در سرور asp

[B@RBOD]

برای نمایش بازدیدکنندگان این لحظه سایت خود کافی است فایل Global.asa خود را به شکل زیر تنظیم کنید:


کد:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
application("activevisitors") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
application.lock
application("activevisitors") = application("activevisitors") + 1
application.unlock
End Sub

Sub Session_OnEnd
application.lock
application("activevisitors") = application("activevisitors") - 1
application.unlock
End Sub

</SCRIPT>

حال کافی است در هر صفحه ای که می خواهید تعداد کاربران Online را نمایش دهید. کد زیر را قرار دهید:
کد:
<%=application("activevisitors")%>