<%@ Language=VBSCRIPT%>
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath ("hits.txt")
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
If Request.Cookies("counter")<>"1" then
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
End If
Response.Cookies("counter")="1"
Response.Cookies("counter").expires=date +1
%>
Hendikin
ASP Programmer / WEB Developer
Indonusa Computer System
Jln. M.H. Thamrin No.53 Lt 18
Jakarta Pusat 10350
HP : 0816-1369935
Ph : 021-3142356
-----Original Message-----
From: Firdaus [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, December 12, 2000 2:38 PM
To: [EMAIL PROTECTED]
Subject: [MasterWeb] Counter nggak kelihatan
Dear members,
Ada yang bisa ngasih informasi gimana ngitung jumlah pengunjung ke suatu
situs
tanpa pake counter atau pakai counter tapi nggak kelihatan.
DAus
----------------------------------------------------------------------
Firdaus
Indonesia Daily Soccer
[EMAIL PROTECTED]
----------------------------------------------------------------------
Analisa Web Berhadiah GRATIS Webhosting 30 MB + Domain :
http://www.master.web.id/cgi-bin/webkritik/nopember.cgi
-------[ Master Web Indonesia - www.master.web.id ] -------
Moderator : [EMAIL PROTECTED]
Berlangganan : [EMAIL PROTECTED]
Stop Berlangganan : [EMAIL PROTECTED]
-----------------------------------------------------------
Analisa Web Berhadiah GRATIS Webhosting 30 MB + Domain :
http://www.master.web.id/cgi-bin/webkritik/nopember.cgi
-------[ Master Web Indonesia - www.master.web.id ] -------
Moderator : [EMAIL PROTECTED]
Berlangganan : [EMAIL PROTECTED]
Stop Berlangganan : [EMAIL PROTECTED]
-----------------------------------------------------------
