ASPSimpleHitCounter/secret.asp at master · deonvz/ASPSimpleHitCounter · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
<html>
<head>
<title></title>
<!--mstheme--><link rel="stylesheet" type="text/css" href="_themes/ccs/ccs1000.css"><meta name="Microsoft Theme" content="ccs 1000, default">
</head>

<table>
<tr>
<td>
<!--#include file="banner.html" -->
</td>
</tr>
<tr>
<td>

<body>
<!---
	Created by: Deon van Zyl
	Date: 2000
	Simple Counter - Free to use
-->
<p align="left">
<%

' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits

Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

	CounterFile = Server.MapPath ("candycounter.txt")

	Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)

		If Not ReadCounterFile.AtEndOfStream Then
			CounterHits = Trim(ReadCounterFile.ReadLine)
			If CounterHits = "" Then CounterHits = 0
		Else
			CounterHits = 0
		End If

	ReadCounterFile.Close
	Set ReadCounterFile = Nothing

	CounterHits = CounterHits + 1

	Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
		WriteCounterFile.WriteLine(CounterHits)
	WriteCounterFile.Close
	Set WriteCounterFile = Nothing

Set ObjCounterFile = Nothing
%>

<br>
This page has been accessed : <b><Font face="arial" color="Yellow" size="2"><% =CounterHits %></font></b> since Feb 2004
</td>
</tr>
<tr>
<td>
&nbsp;
</td>
</tr>
<tr>
<td>
Introduction to Candy can be found <a href="Candy 00 - Introducing Candy rev3.pdf">here</a>.
</td>
</tr>
</table>
</body>
</html>