%
'''''_______________________________________________________________________'''''
''''/ \''''
'''/ \'''
''/ \''
'/ 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 ""
%>