Asp ile Tekil Hit ve Google Ziyaretçileri

<%
on error resume next
refer=Request.ServerVariables("HTTP_REFERER")
parcam = split(refer,"/")
parcala=parcam(2)
parcalasa=InStr(parcala,"google")
if InStr(parcala,"google") then
referer=Request.ServerVariables("HTTP_REFERER")
end if
Function IP
if Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" then
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
else
IP = Request.ServerVariables("REMOTE_ADDR")
end if
End Function


set yokla = veri.execute("select ip from logs where ip='"&IP&"' limit 0,1")
If yokla.BOF Then

veri.execute("Insert Into logs (ip,refer) Values ('"&IP&"','"&referer&"')")
end if%>

Genişletmek için tıkla ...

set resetle=veri.execute("select * from zaman")
zaman=resetle("zaman")
if Cdate(zaman) < date then
set dunu = veri.execute("select COUNT(DISTINCT ip) as dun from logs limit 0,1")
dunku=dunu("dun")
session.LCID= 1055
veri.execute("Update Zaman set zaman='"&Date&"'")
veri.execute("Update Zaman set dun='"&dunku&"'")
veri.execute("TRUNCATE logs")
else
end if
set zaman= nothing

Genişletmek için tıkla ...