Reload sikrer en counter
Hej alle.Jeg har en counter der viser
online personer
besøgstal idag
og ialt
online personer er der ingen fejl ved, men hver gang jeg reloader siden stiger besøgstallet
Er det meget svært og implementere noget kode ind så den ikke tæller op hele tiden?
Lidt af koden er på tyrkisk, håber det ikke er et problem :)
<html>
<head>
<title>Petabyte.tr.cx</title>
<meta http-equiv="Content-Type" content="text/html; charset=">
</head>
<body>
<%
%>
<!-- #Include file = "baglanti.asp" -->
<% bugun="BUGUN"
Set RS=server.createObject("ADODB.Recordset")
sor = "select*from sayac "
RS.open sor,Bag,1,3
rs.movefirst
if rs("tarih") = date then
RS.fields("ziyaret") = rs.fields("ziyaret") + 1
saybugun=rs("ziyaret")
else
rs("tarih")=date
rs("ziyaret") = 1
saybugun=1
end if
rs.getrows(1)
rs("tarih") = date
rs("ziyaret") = rs("ziyaret") + 1 ' +1 ler sayacin kaçar kaçar aticagini belirliyor.
saytoplam=rs("ziyaret")
RS.update
%>
<%
sure=1 'Burada kisi çiktiktan kaç dakka sonra dbase den silenecegini belirliyoruz.
ip=Request.ServerVariables("REMOTE_ADDR")
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, bag, 1, 3
ip=Request.ServerVariables("REMOTE_ADDR")
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, bag, 1, 3
'Yukarida yine baglanti.asp araciligi ile sayac.mdb e baglanti yapiyoruz. baglanti yapiyoruz.
If kset.eof Then
kset.addnew
kset("ip")=ip
kset("tarih")=now
else
kset("tarih")=now
end if
kset.update
kset.Close
Set kset = Nothing
' ve asagida bir kisi girdiginde online kismi öylece takilmamasi için kisi çiktiginda o kisiyi silen kisim yukarida sure den silenecek süreyi ayarlayabilirsiniz.
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online"
kset.open sql, bag, 1, 3
Do While Not kset.eof
zaman=datediff("n",kset("tarih"),now)
if zaman > sure then
sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'"
Set sil = bag.execute(sql)
Set sil = Nothing
end if
kset.movenext
Loop
online = kset.RecordCount
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing
%>
<!--////////////online personer bliver defineret\\\\\\\\\\--->
<!--////////////alt info bliver skrevet til siden\\\\\\\\\\--->
<%dim num%>
<%="<table ><td valign=top><b><font face=tahoma size=1 color=blue>Aktif :</font></td><td>"%>
<%For i = 1 To Len(online)
num = Mid(online, i, 1)%>
<%="<img src=img/" & num & ".gif width=15 height=15 >"%>
<%Next%>
<%="</td><tr>"%>
<%="<td><b><font face=tahoma size=1 color=blue>Bugün:</font></td><td>"%>
<%For i = 1 To Len(saybugun)
num = Mid(saybugun, i, 1)%>
<%="<img src=img/" & num & ".gif width=15 height=15 >"%>
<%Next%>
<%="</td><tr>"%>
<%="<td><b><font face=tahoma size=1 color=blue >Toplam:</font></td><td>"%>
<%For i = 1 To Len(saytoplam)
num = Mid(saytoplam, i, 1)%>
<%="<img src=img/" & num & ".gif width=15 height=15>"%>
<%Next%>
<%="</td></table>"%>
</tr>
</td>
</table>
<p>
Petabyte.tr.cx adresine gitmek için <a href="http://www.petabyte.tr.cx"> tiklayin </a>
<% 'yukarida gördügünüz bölümde ise rakamla verilecek bilgileri resimle vermesini sagladik
' isterseniz "widht" ve "height" elementlerinden görünen boyutu degistirebilirsiniz.
%>
<!--////////////Ve bilgilerin sayfaya yazdirildigi bölüm\\\\\\\\\\--->
</body>
</html>
