(تازه کار) کنتور برای سایت

Printable View

شنبه 20 تیر 1383, 08:04 صبح
PayamGroup

(تازه کار) کنتور برای سایت

سلام
من تازه ASP را شروع کرده ام و می خوام یه کنتور برای سایتم بسازم که به صورت زیر باشه
1- تعداد کل بازدیدها
2-تعداد کاربران حاضر درسایت
3-تعداد بازدیدهای امیروز

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

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

اینم سورس:

&Otilde;&Yacute;&Iacute;&aring; &Egrave;&Uacute;&Iuml; << <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:
سه شنبه 27 مرداد 1383, 04:25 صبح
Peyman_Ranjbar

default.asp

<html>

<head>
<title>Hit Counter</title>

</head>
<body bgcolor="white" text="black">
<div align="center">
<h1>Hit Counter</h1>
<%
'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><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("[img][/img]")
Next
%>
<br>
<br>
[img]web_wiz_guide.gif[/img]
</div>
</body>
</html>

یه فایل به اسم
hit_count.txt
تو همون فولدر بزار
سه شنبه 27 مرداد 1383, 20:32 عصر
M-Gheibi

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

نقل قول:

دوست عزیز UnicorN به هنگام پست کردن متن کد خود را در تگ های کد قرار دهید تا به صورت واضح نمایش داده شود.
برای اینکار کد خودتون رو بنویسید و سپس انتخاب کرده دکمه Code را کلیک کنید.

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