<%
'Diyarbakır Surları Sayaç v1.0
'Bu sayaç Nuri Cengiz tarafından düzenlenmiştir.
'Ticari olmamak kaydıyla her türlü düzenleme yapılabilir.
'nuricengiz@hotmail.com
t=date()
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&database&"")
IP = Request.ServerVariables("REMOTE_ADDR")
GONDEREN = Request.ServerVariables("HTTP_REFERER")
if not GONDEREN = "" then
set GONDERENLER = server.createobject("adodb.recordset")
SQL = "Select * from GONDERENLER WHERE GONDEREN = '"&GONDEREN&"'"
GONDERENLER.open SQL,baglanti,1,3
if GONDERENLER.eof then
GONDERENLER.ADDNEW
GONDERENLER("SONGONDERME") = t
GONDERENLER("KACDEFA") = "1"
GONDERENLER("GONDEREN") = GONDEREN
GONDERENLER.update
else
GONDERENLER("KACDEFA") = GONDERENLER("KACDEFA") + 1
GONDERENLER("SONGONDERME") = t
GONDERENLER.update
end if
end if
set GELENLER = server.createobject("adodb.recordset")
SQL = "Select * from GELENLER WHERE IP = '"&IP&"'"
GELENLER.open SQL,baglanti,1,3
if GELENLER.eof then
GELENLER.ADDNEW
GELENLER("IP") = IP
GELENLER("SONGIRIS") = t
GELENLER("KACDEFA") = "1"
GELENLER.update
else
GELENLER("SONGIRIS") = t
GELENLER("KACDEFA") = GELENLER("KACDEFA") + 1
GELENLER.update
end if
%>
<% bugun="BUGUN"
Set RS=server.createObject("ADODB.Recordset")
sor = "select*from sayac "
RS.open sor,Baglanti,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
saytoplam=rs("ziyaret")
RS.update%>
<%
sure=1
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, baglanti, 1, 3
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, baglanti, 1, 3
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
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online"
kset.open sql, baglanti, 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 = baglanti.execute(sql)
Set sil = Nothing
end if
kset.movenext
Loop
online = kset.RecordCount
kset.Close
Set kset = Nothing
baglanti.Close
Set baglanti = Nothing%>
<%dim num%>