Total:
<%
CounterFile = "\usercounthotel.cnt"
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set a = fs.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = a.Readline
set fs = Nothing
usercnt = FormatNumber(usercnt + 1,0)
Set fs = CreateObject("Scripting.FileSystemObject")
set b = fs.CreateTextFile (CounterFile, 1, 0)
b.WriteLine usercnt
Set b = Nothing
Response.Write usercnt
%>
Hits - <%
Dim x, y, temp, serv, D, hits
x = Trim(day(date()))
D = Application( "serv" )
If D = x Then
Application( "hits" ) = Application( "hits" ) + 1
Else
Application( "hits" ) = 1
End If
y = x
temp = y
Application( "serv" ) = temp
%> Heute: <%=Application( "hits" )%>
Besucher
I
Hotel-Net Ungarn
H-1119 Budapest, Albert u. 10.
Tel.: +36 30 9418816
Email: info@hotel-net.hu
(C) designed & powered by EIDS
Seite wurde geladen in
<%
Endzeit = Timer
Ladezeit = Endzeit - Startzeit
Response.Write round(Ladezeit,6)
%> Sekunden
jetzt: <% =application("activevisitors")%>
Besucher online
Total:
<%
CounterFile = "\usercounthotel.cnt"
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set a = fs.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = a.Readline
set fs = Nothing
usercnt = FormatNumber(usercnt + 1,0)
Set fs = CreateObject("Scripting.FileSystemObject")
set b = fs.CreateTextFile (CounterFile, 1, 0)
b.WriteLine usercnt
Set b = Nothing
Response.Write usercnt
%>
Hits - <%
Dim x, y, temp, serv, D, hits
x = Trim(day(date()))
D = Application( "serv" )
If D = x Then
Application( "hits" ) = Application( "hits" ) + 1
Else
Application( "hits" ) = 1
End If
y = x
temp = y
Application( "serv" ) = temp
%> Heute: <%=Application( "hits" )%>
Besucher