PDA

View Full Version : (تازه کار) کنتور برای سایت



PayamGroup
شنبه 20 تیر 1383, 08:04 صبح
سلام
من تازه ASP را شروع کرده ام و می خوام یه کنتور برای سایتم بسازم که به صورت زیر باشه
1- تعداد کل بازدیدها
2-تعداد کاربران حاضر درسایت
3-تعداد بازدیدهای امیروز

اگه میشه در مورد فایل Global.asa هم یه توضیحی بدهید

من یه سورس دارم که کاربران حاضر در سایت را نشون میده و از این فایل استفاده کرده لطفا درموردش یه توضیحی هم بدهید

اینم سورس:

ÕÝÍå ÈÚÏ << <onlinenow2.htm>
<script language="vbscript" runat="server">
Sub Application_OnStart
Application("visitors")=0
End Sub
Sub Session_OnStart
Application.Lock
Application("visitors")=Application("visitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub
</script>

خیلی خیلی ممنونم
:) :oops: :oops: :oops: :oops:

Peyman_Ranjbar
سه شنبه 27 مرداد 1383, 04:25 صبح
default.asp



<html>

<head>
<title>Hit Counter</title>
<!-- The Web Wiz Guide hit counter is written by Bruce Corkhill ©2001
If you want your own hit counter then goto http://www.webwizguide.info -->
</head>
<body bgcolor="white" text="black">
<div align="center">
&lt;h1>Hit Counter&lt;/h1>
&lt;%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count

'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))

'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream

'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)

'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1

'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))

'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)

'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing

'HTML output to display the visitor number
Response.Write("<font size=2>Visitor Number</font>&lt;br>")

'Display the hit count as text
'Response.Write(lngVisitorNumber)

'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)

'Display the graphical hit count
Response.Write("")
Next
%>
&lt;br>
&lt;br>
web_wiz_guide.gif (http://www.webwizguide.info)
</div>
&lt;/body>
&lt;/html>



یه فایل به اسم
hit_count.txt
تو همون فولدر بزار

M-Gheibi
سه شنبه 27 مرداد 1383, 20:32 عصر
دوست عزیز UnicorN به هنگام پست کردن متن کد خود را در تگ های کد قرار دهید تا به صورت واضح نمایش داده شود.
برای اینکار کد خودتون رو بنویسید و سپس انتخاب کرده دکمه Code را کلیک کنید.

Peyman_Ranjbar
چهارشنبه 28 مرداد 1383, 01:05 صبح
دوست عزیز UnicorN به هنگام پست کردن متن کد خود را در تگ های کد قرار دهید تا به صورت واضح نمایش داده شود.
برای اینکار کد خودتون رو بنویسید و سپس انتخاب کرده دکمه Code را کلیک کنید.


چشم ببخشید من تازه عضو شدم