<% '''''_______________________________________________________________________''''' ''''/ \'''' '''/ \''' ''/ \'' '/ Simge Sayaç v2.0 \' '| Saat: 03:34 |' '| Tarih: 01 Haziran 2010, Perşembe |' '| http://www.simgetasarim.net Kurumsal ve Bireysel Web Çözümleri |' '\ http://www.birturku.com Yerli ve Yabancı Müzik-Video Arşivi /' ''\ /'' '''\ /''' ''''\_______________________________________________________________________/'''' ''''' ''''' strReferans_Site_Tam_Adres = Request.ServerVariables("http_referer") If strReferans_Site_Tam_Adres = "" Then strReferans_Site = Request.ServerVariables("Server_Name") Else strReferans_Site_Tam_Adres_Uzunlugu = Len(strReferans_Site_Tam_Adres) strReferans_Site_Sag_Taraf = Mid(strReferans_Site_Tam_Adres, 8, strReferans_Site_Tam_Adres_Uzunlugu) If InStr(strReferans_Site_Sag_Taraf , "/") <> Int(0) then strReferans_Site = Mid(strReferans_Site_Tam_Adres, 1, InStr(strReferans_Site_Sag_Taraf , "/") + 6) End If End If If strReferans_Site = Left(strSite_Kisa_Adresi, Len(strReferans_Site)) OR strReferans_Site = Left(strSite_Adresi, Len(strReferans_Site)) OR strReferans_Site = "" Then Set RS = DBBaglanti.ExeCute("SELECT site, toplam_ziyaret FROM tblSayacReferanslar WHERE site = '"&strSite_Adresi&"'") If RS.Eof Or RS.Bof Then Set KD = DBBaglanti.ExeCute("INSERT INTO tblSayacReferanslar (site, toplam_ziyaret, ziyaret_ettigi_son_gun) VALUES ('"&strSite_Adresi&"', '1', '"&Date()&"')") Set KD = Nothing Else Set KD = DBBaglanti.ExeCute("UPDATE tblSayacReferanslar SET toplam_ziyaret = "&RS("toplam_ziyaret") + 1&", ziyaret_ettigi_son_gun = '"&Date()&"' WHERE site = '"&strSite_Adresi&"'") Set KD = Nothing End If RS.Close Set RS = Nothing Else Set RS = DBBaglanti.ExeCute("SELECT site, toplam_ziyaret FROM tblSayacReferanslar WHERE site = '"&strReferans_Site&"'") If RS.Eof Or RS.Bof Then Set KD = DBBaglanti.ExeCute("INSERT INTO tblSayacReferanslar (site, tam_adres, toplam_ziyaret, ziyaret_ettigi_son_gun) VALUES ('"&strReferans_Site&"', '"&strReferans_Site_Tam_Adres&"', '1', '"&Date()&"')") Set KD = Nothing Else intSayac_Referans_Toplam_Ziyaret = RS("toplam_ziyaret") + 1 Set KD = DBBaglanti.ExeCute("UPDATE tblSayacReferanslar SET site = '"&strReferans_Site&"', tam_adres = '"&strReferans_Site_Tam_Adres&"', toplam_ziyaret = "&intSayac_Referans_Toplam_Ziyaret&", ziyaret_ettigi_son_gun = '"&Date()&"' WHERE site = '"&strReferans_Site&"'") Set KD = Nothing End If RS.Close Set RS = Nothing End If URL = "" For Each I In Request.QueryString If Len(URL) >0 then URL = URL & "&" Else URL = URL & "?" End If URL = URL & I & "="& Request.QueryString(I) Next URL = Request.ServerVariables("SCRIPT_NAME") & URL blnSayac_Tekil_Arttir = False blnSayac_Cogul_Arttir = False Set sayacRS = Server.CreateObject("ADODB.Recordset") sayacRS.Open "SELECT * FROM tblSayacIp WHERE ip = '"&intKullanici_Ip&"'", DBBaglanti, 1, 3 If sayacRS.Eof Then sayacRS.AddNew sayacRS("ip") = intKullanici_Ip sayacRS("toplam_ziyaret") = 1 sayacRS("ziyaret_ettigi_son_gun") = Now() sayacRS("tarayici_dili") = strTarayici_Dili sayacRS("isletim_sistemi") = OSType sayacRS("tarayici") = BrowserType sayacRS("referans") = strReferans_Site_Tam_Adres sayacRS("bulundugu_sayfa") = URL sayacRS.Update blnSayac_Tekil_Arttir = True blnSayac_Cogul_Arttir = True Else If Left(sayacRS("ziyaret_ettigi_son_gun"), 10) = Left(Now(), 10) Then blnSayac_Tekil_Arttir = False blnSayac_Cogul_Arttir = True Else blnSayac_Tekil_Arttir = True blnSayac_Cogul_Arttir = True End If sayacRS("toplam_ziyaret") = sayacRS("toplam_ziyaret") + 1 sayacRS("ziyaret_ettigi_son_gun") = Now() sayacRS("tarayici_dili") = strTarayici_Dili sayacRS("isletim_sistemi") = OSType sayacRS("tarayici") = BrowserType sayacRS("referans") = strReferans_Site_Tam_Adres sayacRS("bulundugu_sayfa") = URL sayacRS.Update End If sayacRS.Close Set sayacRS = Nothing Set sayacRS = Server.CreateObject("ADODB.Recordset") sayacRS.Open "SELECT tekil, cogul, gun FROM tblSayacGunluk WHERE gun = Date()", DBBaglanti, 1, 3 If sayacRS.Eof Then sayacRS.AddNew sayacRS("tekil") = 1 sayacRS("cogul") = 1 sayacRS("gun")= Date() sayacRS.Update Else If blnSayac_Tekil_Arttir = True Then sayacRS("tekil") = sayacRS("tekil") + 1 End If If blnSayac_Cogul_Arttir = True Then sayacRS("cogul") = sayacRS("cogul") + 1 End If sayacRS.Update End If sayacRS.Close Set sayacRS = Nothing Response.Write "" Response.Write "İp: "&intKullanici_Ip&"" Response.Write "
Ülke: "&UlkeBul(strTarayici_Dili)&" " intCevrimici_Kullanici_Sayisi = 0 Set RS = DBBaglanti.ExeCute("SELECT ziyaret_ettigi_son_gun FROM tblSayacIp") If Not RS.Eof Then Do While Not RS.Eof If RS("ziyaret_ettigi_son_gun") >= DateAdd("n", -5, Now()) Then intCevrimici_Kullanici_Sayisi = intCevrimici_Kullanici_Sayisi + 1 End If RS.MoveNext Loop Response.Write "
Aktif Ziyaretçi: "&intCevrimici_Kullanici_Sayisi&"" End If RS.Close Set RS = Nothing Set RS = DBBaglanti.ExeCute("SELECT tekil, cogul FROM tblSayacGunluk ORDER BY ID DESC") If Not RS.Eof Then Response.Write "
Bugün Tekil: "&RS("tekil")&"" Response.Write "
Bugün Çoğul: "&RS("cogul")&"" End If RS.Close Set RS = Nothing Set RS = DBBaglanti.ExeCute("SELECT Sum(tekil) AS toplam_tekil FROM tblSayacGunluk") If Not RS.Eof Then Response.Write "
Toplam Tekil: "&RS("toplam_tekil")&"" End If RS.Close Set RS = Nothing Set RS = DBBaglanti.ExeCute("SELECT Sum(cogul) AS toplam_cogul FROM tblSayacGunluk") If Not RS.Eof Then Response.Write "
Toplam Çoğul: "&RS("toplam_cogul")&"
" End If RS.Close Set RS = Nothing Call T() Response.Write "
" %>