کمک چطوري ميشه با asp (البته دریم ویور ) اعضای حاضر در سایت را نمایش داد

[hossein_asp]

چطوري ميشه با asp (البته دریم ویور ) اعضای حاضر در سایت را نمایش داد
برای این سایت می خوام سایت من http://www.persianprogramers.somee.com

 

[miladmovie]

والا فکر نکنم دریم ویور کد آماده ای واسه این کار داشته باشه ! اون فقط یک IDE هست واسه برنامه نویسی !

ولی اینجا رو بگرد : http://www.hotscripts.com/ASP/Scripts_and_Components/index.html

 

[hossein_asp]

البته من خودم یه فکرایی کردم فکر کنم بهترین راهش ذخیره یوزر ها در یک فایل و
نمایشش بر اساس تاریخ و زمان باشه

 

[artin]

سلام
یه فایل به نام global.asa در شاخه اصلی سایتت www بساز یا اگه وجود داره این کدها رو توش اضافه کن

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
	Application("intActiveUserNumber") = 0
End Sub
Sub Session_OnStart
Session.Timeout = 20
	Application.Lock
		Application("intActiveUserNumber") = Application("intActiveUserNumber") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
	Application.Lock
		Application("intActiveUserNumber") = Application("intActiveUserNumber") - 1
Application.UnLock
End Sub
</SCRIPT>

حالا هر جا از کدهات که خواستی تعداد یوزهای آنلاین رو نشون بده فقط این کد پایین رو می زاری و دیگه هیچ چیزه دیگه ای لازم نداری

Response.Write Application("intActiveUserNumber")

مثلا

Online Users <strong><%Response.Write Application("intActiveUserNumber") %> Users</strong>

این روی 20 دقیه تنظیم شده اگه خواستی زمان رو عوض کنی فقط تو فایل گلوبال زمان تایم اوت رو کم و زیاد کن


موفق باشی

 

[hossein_asp]

دستتون درد نکنه به زودی امتحانش میکنم

 

[hossein_asp]

امتحانش کردم نشد پسوند فایلی که کد آخر توش می نویسیم باید aspx باشه

 

[artin]

خوب اینو بگو تو واسه دات نت می خوای نه ای اس پی کلاسیک


که منم دات نت باد نیستم شرمنده

 

[hossein_asp]

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

 

[artin]

من اینو تو کدهام استفاده کردم و مشکلی باهاش نداشتم

 

[hossein_asp]

خط سوم کدها با عرض معذرت باید حذف بشه تا کار کنه یعنی End Sub اگه به اینجا سر زدید یه
نگاه بندازید شاید من اشتباه کنم

 

[artin]

اشتباه از من بوده من این کدها رو از یه جای دیگه ورداشته بودم و چون خواستم سادتر نشون بده کامناشو حذف کردم که اون وسط یه خط اضافه پاک شده حالا کلشو می زارم

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

'The code in this section is for when the server starts or the first user uses your site
'any variables in the Application_OnStart will remain till the server is stopped or the server is rebooted
Sub Application_OnStart
	
	'Create an ActiveUsersNumber variable with Application scope and set it to 0
	Application("intActiveUserNumber") = 0

End Sub




'The code in this section is for when a user connects to any page in your web site
Sub Session_OnStart

	'The session timeout is how long a session (user connection) to your web site will last. The defualt is 20 minutes
	'When you call a web page a connection is made when the page is finshed downloading the connection is dropped 
	'if the session time out is set two low you wont register active users while they are reading a page
	'if you set it two high you will still register users as active after they have left your site
	'It is pobally best to leave at the defualt 20 minutes so that it dosent effect any other session variables used in your web site
	Session.Timeout = 30

	'The appilcation must be locked so that only one user can increment the Application ActiveUserNumber variable at a time
	Application.Lock
	
		'The Application ActiveUserNumber variable is incremented by 1
		Application("intActiveUserNumber") = Application("intActiveUserNumber") + 1
	
	'The application is now unlocked
	Application.UnLock

End Sub




'The code in this section is for when a user leaves yoursite or the session times out which ever comes first.
'Usally with HTTP access the server can not tell when a user has left the site so will wait for the session to time out
Sub Session_OnEnd

	'The appilcation must be locked so that only one user can decrement the Application ActiveUserNumber variable at a time
	Application.Lock
	
		'The Application ActiveUserNumber variable is decremented by 1
		Application("intActiveUserNumber") = Application("intActiveUserNumber") - 1
	
	'The application is now unlocked
	Application.UnLock

End Sub

</SCRIPT>