|
|
|
|
| |
| |
| |
| |
<%
Function GCounter( counter )
Dim s,i,g
s = CStr( counter )
For i = 1 to Len(s)
g = g&" "
Next
GCounter = g
End Function
%><%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("counter.txt")
Set txt = fs.OpenTextFile(counter_file)
counter = txt.ReadLine
txt.Close
if isEmpty(session("Connected")) then
'Application.Lock
'Application("counter") = Application("counter") + 1
'Application.UnLock
counter=counter+1
end if
session("connected") = true
Set txt = fs.CreateTextFile(counter_file, True)
txt.WriteLine(counter)
txt.Close
%>
| |
|
|