يك كانتر شبيه مجيد آن لاين با ASP مي خواهم

miladanimator

Active Member
بچه ها منم از اين كنتور تو سايتم استفاده كردم
البته قابليت نمايش تعداد افراد آنلاين هم بهش اضافه كردم
يه نگاه بندازين ببينين اگه مي خواين كدشو برا دانلود بزارم
 

Hosein.NET

Member
نميرو جان بذار من با اين سايتت خيلي حال ميكنم
ياد آواتاره خودم ميفتم :D
حتما بذار
راستي اون سرچس كه قراره بذاري تو سايتت چه جوريه :d
 

ma3di3

Member
من از اين در سيتم استفاده كردم ولي نمي دونم چرا تاريخ رو درست نشون نمي ده يعني مثل ساعت 10 صبح روز رو تغيير مي ده به نظرم بايد تاريخ سرور رو تغيير بدم ولي نمي دونم اگه كسي مي دونه دريغ نكنه!!!!!!!
 

miladanimator

Active Member
سلام بچه ها
ببخشيد كه دير كردم
اينم كنتور
لينك دانلود

نمونه كنتور

توجه: بعد از دريافت فايل zip و un zip نمودن آن فايل global.asa رو در پوشه اصلي سايتتون قرار بدين و فايلهاي counter.asp و counter.mdb رو در محل مورد نظرتون قرار بدين!
اميدوارم مشكلي نداشته باشه.
 
البته يك مورد كوچولو
امروز كه به سايتم رفتم ابن رو ديدم:
بازديد امروز: 28
بازديد اين هفته:90 بازديد اين ماه:42 مجموع بازديد ها:355
البته امروز 35 امين روزي است كه از كانتر استفاده كرده ام و كد شما را هم اصلا تغيير ندادم.
فكر كنم چون تاريخ ميلادي است مشكل دارد .
جالا يك بررسي بكنيد ممنون مي شم.
من كه تو كد اشكالي نديدم.
 

miladanimator

Active Member
mehdi_sabzeie گفت:
البته يك مورد كوچولو
امروز كه به سايتم رفتم ابن رو ديدم:
بازديد امروز: 28
بازديد اين هفته:90 بازديد اين ماه:42 مجموع بازديد ها:355
البته امروز 35 امين روزي است كه از كانتر استفاده كرده ام و كد شما را هم اصلا تغيير ندادم.
فكر كنم چون تاريخ ميلادي است مشكل دارد .
جالا يك بررسي بكنيد ممنون مي شم.
من كه تو كد اشكالي نديدم.

احتمالا اعداد داخل ديتابيس رو دستكاري كردي
من خودم تو سايت nimroo.com ازش استفاده ميكنم و تا بحال همه جمع و تفريق ها درست بوده!
به نظر من يه بار ديگه فايل رو دانلود كن و بدون دستكاري در ديتابيس اونو آپلود كن

منم نميدونم ايراد كار از كجاست؟؟؟؟؟؟؟؟
 
miladanimator گفت:
mehdi_sabzeie گفت:
البته يك مورد كوچولو
امروز كه به سايتم رفتم ابن رو ديدم:
بازديد امروز: 28
بازديد اين هفته:90 بازديد اين ماه:42 مجموع بازديد ها:355
البته امروز 35 امين روزي است كه از كانتر استفاده كرده ام و كد شما را هم اصلا تغيير ندادم.
فكر كنم چون تاريخ ميلادي است مشكل دارد .
جالا يك بررسي بكنيد ممنون مي شم.
من كه تو كد اشكالي نديدم.

احتمالا اعداد داخل ديتابيس رو دستكاري كردي
من خودم تو سايت nimroo.com ازش استفاده ميكنم و تا بحال همه جمع و تفريق ها درست بوده!
به نظر من يه بار ديگه فايل رو دانلود كن و بدون دستكاري در ديتابيس اونو آپلود كن

منم نميدونم ايراد كار از كجاست؟؟؟؟؟؟؟؟
من كه نوشتم. اصلا كد را دستكاري نكردم.
اما يك مشكل هست كه تصور مي كنم بايد حل شود.
تاريخي كه در ديتابيس قرار مي گيرد تاريخ ميلادي است نه شمسي.
حالا يك نگاهي بياندازيد....
 

alireza64

Member
با سلام
من براي سايتم يه كنتور ساختم كه كاربران فعال و كل بازديدها رو نشون ميدم ولي شك دارم كه درست كار كنه (نتونستم درست تستش كنم)و از دوستان عزير ميخوام اگه مشكلي است به من اطلاع بدهند

كنتور من به اين صورت كار ميكنه
من درون فايل global.asa دو متغيير به نامهاي allcounter براي تعداد بازديدها و intActiveUserNumber براي كاربران فعال تعريف كرده ام كه درون صفحات ميتونيم از اين متغيرها استفاده كنيم.
باورود هر كار بر به سايت زيربرنامه Session_OnStart يك واحد به متغييرintActiveUserNumber و يك واحد به متغير allcounter اضافه ميكنه من يه فايل متني هم درست كرده ام به نام counter.txt كه تعداد بازديدها در اين فايل ثبت شده و هنگام ورود كاربر اين فايل بازشده مقدار مورد نظر از اين فايل خوده ميشه و يك واحد به اون اضافه مشه و دوباره درفايل نوشته ميشه .

با خروج هر كاربر هم در بخش Session_OnEnd يك واحد از متغيير intActiveUserNumber كم ميشه.

اين كد فايل global.asa:

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

Sub Application_OnStart
	Application("intActiveUserNumber") = 0
End Sub
Sub Session_OnStart
	Session.Timeout = 20
	' counter-------------------------------------------------------------------
	   Dim objFSO,objFile,strpath,strtext,counter
   set objfso=Server.CreateObject("Scripting.FileSystemObject")
   strpath=Server.MapPath("counter.txt")
   if objFSO.FileExists(strpath) then
      set objFile=objfso.Opentextfile(strpath,1)      
	  strtext=objFile.Readline
	  counter=Cint(strtext)+1
	  objfile.close
	  set objfile=nothing
	  
      set objFile=objfso.Opentextfile(strpath,2)
	  objFile.writeline(counter)
	  objfile.close
	  set objfile=nothing
	end if    
	'-----------------------------------------------------------------------------
	Application.Lock
	    Application("allcounter")=counter
		Application("intActiveUserNumber") = Application("intActiveUserNumber") + 1	
	Application.UnLock
End Sub
Sub Session_OnEnd
	Application.Lock
	Application("intActiveUserNumber") = Application("intActiveUserNumber") - 1
	Application.UnLock

End Sub

</SCRIPT>


همينطور كه ميدونيد اين فايل بايد در شاخه اصلي سايت قرار داده بشه
شما همچنين بايد يك فايل متني با نام counter.txt كنار اين فايل بسازيد و مقدار 0 را درون اون قرار بدهيد.
حالا شما ميتونيد با استفاده از دو متغير intActiveUserNumber وallcounter تعداد كاربران حاضر و تعداد كل بازديد ها رو داخل صفحات سايتتون نمايش بدهيد.

:D
 

miladanimator

Active Member
عليرضا جان منم تو كنتورم از يه همچين چيزي استفاده كردم
دانلودش كن و يه نگاه بهش بنداز
 

miladanimator

Active Member
مهدي جان مشكل شما رو با يكي از دوستانم در ميان گذاشتم . دوستم گفت تا آخر ماه صبر كن . چون در آخر ماه كليه اعداد مربوط به تعداد بازديد هاي: اين ماه و امروز و اين هفته صفر مي شوند و از اون به بعد به احتمال زياد مشكلت حل ميشه
 
كسي ميتونه همچين كانتري مثل مجيد آنلاين و با PHP معرفي كنه. من نياز مبرمي بهش دارم
 
اصلا چطوريه كه از آقا مجيد خواهش كنيم كانتر سايت را بگذاره تا همه دانلود كنن؟ نظر شما چي هست؟
 
miladanimator گفت:
بچه ها منم از اين كنتور تو سايتم استفاده كردم
البته قابليت نمايش تعداد افراد آنلاين هم بهش اضافه كردم
يه نگاه بندازين ببينين اگه مي خواين كدشو برا دانلود بزارم


با پي اچ پي هست يا اي اس پي
 

جدیدترین ارسال ها

بالا