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.
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
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]