تعداد بازدیدکنندگان یک صفحه

S

salar007

Member
آقا مدتی هست من تو یه صفحه در یک نشریه الکترونیکی مطلب می نویسم
بهترین و راحت ترین کار برای اینکه بفهمم در هر شماره صفحه ی مربوط به من چند تا بازدیدکننده داره
به نظر شما چیه ؟
اگه روشی میدونید که مثل بعضی از این سایت ها که این امکان رو میدن نباشه!
یعنی تو اون صفحه غیر مطلب من چیزی نشون داده نشه!
 
mahdiflash

mahdiflash

Member
يعني مثل اين نمي خواهي


counter.php
 
A

akaveh

Member
راهي نيست بدون استفاده از سايتها اين كار بشه چون اين سايت چند با خود به خود 0 ميكنه
 
AliReza26

AliReza26

Active Member
چرا راهي نيست عزيز

بگو با چه زبوني مي خواهي بگم؟؟؟؟؟؟؟؟؟؟؟؟
 
AliReza26

AliReza26

Active Member
آقا با اي س پي: :wink:
اين كد را در صفحه اي كه كاربر مقالت را مي خوانه كد زير را به آن صفحه اضافه كن : :wink:


کد: 
<% 
 
 Const ForReading = 1
     Dim objOpenFile, objFSO, iCount,strpath
  
     strpath = "C:/counter.txt"

     Set objFSO = _
         Server.CreateObject("Scripting.FileSystemObject")
     If objFSO.FileExists(strPath) Then
        Set objOpenFile = _
          objFSO.OpenTextFile(strPath, ForReading)
        iCount = Cint(objOpenFile.ReadLine) + 1
        objOpenFile.Close
     Else
        iCount = 1
     End if
     Set objOpenFile = objFSO.CreateTextFile(strPath, True)
     objOpenFile.WriteLine(iCount)         
     objOpenFile.Close
     Set objOpenFile = Nothing
     Set objFSO = Nothing
 %>

و اين كد را هم براي خواندن كنتور از فايل استفاده كنيد. :wink:


کد: 
<%  
     Dim objOpenFile1, objFSO1, strPath1
   
strPath1 = "C:\counter.txt"
     Set objFSO1 = _
         Server.CreateObject("Scripting.FileSystemObject")
     If objFSO1.FileExists(strPath1) Then

        Set objOpenFile1 = _
          objFSO1.OpenTextFile(strPath1,1)
        response.write  (objOpenFile1.ReadLine)
        objOpenFile1.Close

     End if
             
     Set objOpenFile1 = Nothing
     Set objFSO1 = Nothing
 %>
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

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

بالا