Licznik odwiedzin odporny na odświeżania


(Czerwony Wiatr) #1

Chodzi mi o jakis licznik odwiedzin strony ale żeby był odporny na odświeżania. Jeżeli ktos ma takowy to bardzo prosze o podanie kodu lub linku . Z góry dziękuje.

I jeszcze zeby niebył taki brzydki no i żeby może sie komponował z moją stroną http://www.komputerworld2006.prv.pl


(Piotrek Płatek) #2

a użyj googli...


(system) #3

Od dłuższego czasu wkurza mnie, że na tym forum wszystko jak się pisze to tylko w PHP. Ja dla odmiany dam w ASP :stuck_out_tongue:

No więc tworzysz plik licznik.txt oraz 10 plików graficznych, które kolejno nazywasz: 0.gif , 1.gif , 2.gif , ...

następnie dodajesz do pliku, w którym ma pokazać się licznik następujący kod:

Tę stronkę odwiedziło już <%

Dim fsoObject

Dim tsObject

Dim filObject

Dim lngVisitorNumber

Dim intWriteDigitLoopCount

Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

Set filObject = fsoObject.GetFile(Server.MapPath("licznik.txt"))

Set tsObject = filObject.OpenAsTextStream

lngVisitorNumber = CLng(tsObject.ReadAll)

If isEmpty(Session("blnCounterSet")) = True Then

	lngVisitorNumber = lngVisitorNumber + 1

	Session("blnCounterSet") = True

End if	

Set tsObject = fsoObject.CreateTextFile(Server.MapPath("licznik.txt"))

tsObject.Write CStr(lngVisitorNumber)

Set fsoObject = Nothing

Set tsObject = Nothing

Set filObject = Nothing

For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)

	Response.Write("
	Response.Write(Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & ".gif""") 

	Response.Write("alt=""" & Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & """>")

Next

%> osób.[/code]

(Balon) #4

bo asp niestety jest rzadko uzywany przez ludzi ze wzgledu na jego brak na serverach

a to sobie napisz licznik oparty na ciachac (cookies) i dodatkowo mozesz dodawac ip do bazy lub jak wolisz to do pliku...


(Czerwony Wiatr) #5

Dzięki za pomoc


(system) #6

strona jest na republice, darujcie sobie :stuck_out_tongue:

Mistrzuniu , w google wpisz darmowe+komponenty albo darmowe+liczniki