|
1 :םויה תוסינכ
48 :שדוחה תוסינכ
1 :ןיילנוא םישלוג
|
|
|
ASPב םיטפירקס
|
םירקבמ הנומ
|
UNKNOWN :רבחמה םש
:תורעה\תויחנה
תא םשל ולעהו PageCnt םשב םכלש CGI-BINב רדלופ וניכה
םשב ץבוקל וארק ,דוקה תא ליכמש ץבוקה
GetHitCnt.asp.
:ושע ,דוקה תא םישהל םיצור םתאש ףד לכב
:דוק
|
<%
pgeNme = Request.ServerVariables("PATH_INFO")
pgeNme = Replace(pgeNme,"/","_")
pgeNme = Replace(pgeNme,"\","_")
LogTo = ("/cgi-bin/PageCnt/" + pgeNme)
CounterFile = Server.MapPath(LogTo + ".txt")
Set xFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set xMC = xFS.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = xMC.Readline
set xFS = Nothing
usercnt = FormatNumber(usercnt + 1,0)
Set xFS = CreateObject("Scripting.FileSystemObject")
set xRC = xFS.CreateTextFile (CounterFile, 1, 0)
xRC.WriteLine usercnt
Set xRC = Nothing
showHitCnt = usercnt
%>
------
Put this on every page you want to count:
<!-- #include virtual="/cgi-bin/PageCnt/getHitCnt.asp" -->
|
|
|
הרזח >>
|
... |