mehdi_sabzeie
Member
تمنا
mehdi_sabzeie گفت:البته يك مورد كوچولو
امروز كه به سايتم رفتم ابن رو ديدم:
بازديد امروز: 28
بازديد اين هفته:90 بازديد اين ماه:42 مجموع بازديد ها:355
البته امروز 35 امين روزي است كه از كانتر استفاده كرده ام و كد شما را هم اصلا تغيير ندادم.
فكر كنم چون تاريخ ميلادي است مشكل دارد .
جالا يك بررسي بكنيد ممنون مي شم.
من كه تو كد اشكالي نديدم.
من كه نوشتم. اصلا كد را دستكاري نكردم.miladanimator گفت:mehdi_sabzeie گفت:البته يك مورد كوچولو
امروز كه به سايتم رفتم ابن رو ديدم:
بازديد امروز: 28
بازديد اين هفته:90 بازديد اين ماه:42 مجموع بازديد ها:355
البته امروز 35 امين روزي است كه از كانتر استفاده كرده ام و كد شما را هم اصلا تغيير ندادم.
فكر كنم چون تاريخ ميلادي است مشكل دارد .
جالا يك بررسي بكنيد ممنون مي شم.
من كه تو كد اشكالي نديدم.
احتمالا اعداد داخل ديتابيس رو دستكاري كردي
من خودم تو سايت nimroo.com ازش استفاده ميكنم و تا بحال همه جمع و تفريق ها درست بوده!
به نظر من يه بار ديگه فايل رو دانلود كن و بدون دستكاري در ديتابيس اونو آپلود كن
منم نميدونم ايراد كار از كجاست؟؟؟؟؟؟؟؟
<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>
miladanimator گفت:بچه ها منم از اين كنتور تو سايتم استفاده كردم
البته قابليت نمايش تعداد افراد آنلاين هم بهش اضافه كردم
يه نگاه بندازين ببينين اگه مي خواين كدشو برا دانلود بزارم