<% Response.Buffer = True Session.LCID = 1055 Session.CodePage = 1254 'ONLİNE ZİYARETÇİ zamanmiktari=1 ipno=Request.ServerVariables("REMOTE_ADDR") sor = "SELECT * FROM online where ipno='"& ipno &"'" efkan.open sor, sur, 1, 3 If efkan.eof Then efkan.addnew efkan("ipno")=ipno efkan("zaman")=now else efkan("zaman")=now end if efkan.update efkan.Close sor = "SELECT * FROM online" efkan.open sor, sur, 1, 3 Do While Not efkan.eof zaman=datediff("n",efkan("zaman"),now) if zaman > zamanmiktari then sor = "DELETE FROM online WHERE ipno = '"&efkan("ipno")&"'" efkan1.open sor, sur, 1, 3 end if efkan.movenext Loop onlineadet = efkan.RecordCount 'ONLİNE TOPLAM ZİYARETCİ efkan.Close 'SAYAÇ BAŞLA Dim ip_no,site_name,zaman,site_gel ip_no= Request.ServerVariables("REMOTE_ADDR") site_ad= Request.ServerVariables("URL") site_gel= Request.ServerVariables("HTTP_REFERER") if site_gel="" then site_gel="Anasayfam" else uzunluk=len(site_gel) kisa=mid(site_gel,8,uzunluk) bul=instr(kisa,"/") if bul<>"0" then site_gel=mid(site_gel,1,bul+6) end if end if zaman= mid(now(),1,10) 'BUGUN if session("ziyaretaa")<>"yes" then 'HİT GONDEREN SİTELERİN TOPLAM SAYACI sor="Select * from say_site where site_name like '"&site_gel&"' " efkan.Open sor,Sur,1,3 if efkan.eof then efkan.AddNew efkan("site_name")=site_gel efkan("hit")="1" efkan("gun")=zaman efkan.Update efkan.close else efkan("hit")=efkan("hit")+1 efkan.Update efkan.close end if 'HİT GONDEREN SİTELER GUNLUK SAYACI sor="Select * from site_gel where (gun like '"&zaman&"' and site_gel like '"&site_gel&"')" efkan.Open sor,Sur,1,3 if efkan.eof then efkan.AddNew efkan("site_gel")=site_gel efkan("hit")="1" efkan("gun")=zaman efkan.Update efkan.close else efkan("hit")=efkan("hit")+1 efkan.Update efkan.close end if 'EN ÇOK ZİYARET EDEN İPLER İP TOPLAM SAYACI sor="Select * from say_ip where ip_number like '"&ip_no&"' " 'İP İLKEZ GELİYORSA efkan.Open sor,Sur,1,3 if efkan.eof then efkan.AddNew efkan("ip_number")=ip_no efkan("hit")="1" efkan("vakit")=zaman efkan.Update efkan.close tekil="ok" else if efkan("vakit") <> zaman then tekil="ok" else tekil="no" end if 'İP KAYITLI AMA BUGUN GELMEDİYSE T. SAY efkan("hit")=efkan("hit")+1 efkan("vakit")=zaman efkan.Update efkan.close end if 'GÜNLÜK HİTİ Sor="Select * from say_hit where gun like '"&zaman&"'" efkan.Open sor,Sur,1,3 if efkan.eof then efkan.AddNew efkan("gun")=zaman efkan("tekil")="1" efkan("cogul")="1" efkan.Update efkan.close else if tekil="ok" then 'EGER BUGUN GELMEDİ İSE efkan("tekil")=efkan("tekil")+1 efkan("cogul")=efkan("cogul")+1 efkan.Update efkan.close else 'EĞER BUGUN ÖNCEDEN GİRİŞ YAPTISA efkan("cogul")=efkan("cogul")+1 efkan.Update efkan.close end if end if end if Dim gunt,gunc,topt,topc gunt=0 gunc=0 topt=0 topc=0 Sor="Select * from say_hit" efkan.Open sor,Sur,1,3 toplamgun=efkan.recordcount Do while not efkan.Eof if efkan("gun")=zaman then gunt=efkan("tekil") gunc=efkan("cogul") end if topt=efkan("tekil")+topt topc=efkan("cogul")+topc efkan.movenext loop efkan.close gunluktekilortalama = topt / toplamgun gunlukcogulortalama = topc / toplamgun Session("ziyaretaa")="yes" 'ONLİNE ÜYELER Session.LCID = 1055 DefaultLCID = Session.LCID onlineuye=0 sor="SELECT id, onay, sontarih, kadi FROM uyeler where onay=1 " efkan.Open sor,Sur,1,3 do while not efkan.eof zaman=datediff("n",efkan("sontarih"),now) ' ŞU AN DAN 1 DAKKA CIKAR SON TARİH FARKI BÜYÜKSE if zaman > 1 then else onlineuye=onlineuye + 1 end if efkan.movenext loop efkan.close %>
<%=bullet%> Aktif Ziyaretçi<%=onlineadet%>
<%=bullet%> Online Üye<%=onlineuye%>
<%=bullet%> Bugün Tekil<%=gunt%>
<%=bullet%> Bugün Çoğul<%=gunc%>
<%=bullet%> Toplam Tekil <%=topt%>
<%=bullet%> Toplam Çoğul<%=topc%>
<%=bullet%> Ip No : <%=ip_no%>