Solo para maestros!!!

[fenix4]

Código:

Sub Application_OnStart
application.lock 
application("max_intentos")=3
application("activa")="si"
	Const ForReading = 1
	Dim fso, MyFile
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set MyFile = fso.OpenTextFile("contador.txt", ForReading)
	ReadLineTextFile = trim(MyFile.ReadLine)

application("visitas")=0
application("contador")=ReadLineTextFile
application("fecha")=date()
Application("ActiveUsers") = 0
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
application.UnLock 
End Sub

Sub Session_OnStart
Session.Timeout = 10
Session("Start") = Now
Session("intentos") = 0
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1

	If application("fecha") = Date() Then 
		If Instr(Request.ServerVariables("REMOTE_ADDR"),"172.17.1")=False Then
			if Instr(Request.ServerVariables("REMOTE_ADDR"),"150.187.96")=False then
				application("contador")=application("contador")+1				
			end if	
		end if	
		application("visitas")=application("visitas")+1
		
	Else
		application("fecha") = Date()
		application("visitas") = 0 
	end if

Application.UnLock

End Sub

Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub

Sub Application_OnEnd
	Const ForWriting = 2
	Dim fso, MyFile
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set MyFile = fso.OpenTextFile("contador.txt", ForWriting, True)
	MyFile.WriteLine (application("contador"))
	MyFile.Close
End Sub

Alli tienen el codigo!!! cualquier duda me avisan, si creen que se le pueden mejorar cosas tambien me avisan, gracias, nota existen otros items que son para otras cosas!!!!!


Este contador lo unico que no hace es contar los usuarios de un rango de IP`s, pero si lo toma encuenta para las sessiones...


P.S.L.P.S