Solo para maestros!!!

[bakanzipp]

mandalo completo entonces socio..

a recolectar se ha dicho...

[movizonio]

La idea es muy buena, Si puedes mandarmelo le hecho un vistacillo a ver que tal. .
La verdad es que no he hecho ninguno asi todavía. :)

[email protected]

Gracias compañero

[mmoreno1977]

Buen foro amigos. Para complementar: Las direcciones IP se pueden tratar dentro de un rango y las demas simplemente entran en el contador. Que sencillo

Mauricio

[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

[fenix4]

Hola a todos, veo que muchos entraron y por supuesto vieron el codigo, pero no muchos me preguntaron de el, o dieron su opinión o dijeron si les funciono, la verdad es que quiero saber si esta perfecto, que se le puede mejorar?, no existe alguien que me pueda dar su opinión?, MAESTROS esto es con ustedes, el codigo esta tan bien??? Vamos espero sus criticas!!! y/o opiniones...

Espero aprender de mis errores y ayudar a
quien pueda.
:)


P.S.L.P.S