Menù
Vai ai contenuti

Anno Acc. 2019/2020

I docenti
<% Response.Expires = 0 Set fs = CreateObject("Scripting.FileSystemObject") Path = server.mappath("/public/conta.txt") Set a = fs.OpenTextFile(path) conta = CLng(a.ReadLine) If Session("conta")="" then Session("conta") = conta conta = conta + 1 a.close Set a = fs.CreateTextFile(path, True) a.WriteLine(conta) End If a.Close response.write("Sei il Visitatore n. " & conta) %> <% Dim ip ip = Request.ServerVariables("REMOTE_ADDR") Response.write " Il tuo Indirizzo.IP: " &ip %> <% response.write "On-line " & Application("collegati") & " Visitatore." %>
Torna ai contenuti