<%
' Copyright (C) 2004 Mehmet Ayhan Taçyıldız
'
' Ataberk Sayac Script v1.0 a Hoşgeldiniz !
' Bu benim ilk asp sayac denemem ona göre ufak tefek hatalarım olabilir
' Bir ay içinde netten uzaklaşmak zorunda kalacam zati bu yüzden hiç yatamiyorum geceleri :(
' Üniversite Mahfediyor adami yaww inşallah bir sene içinde ders çalışıp şu üniversiteyi başımdan atarım :)
' İnsanın aklına ÖSS sinavında yazdıgı scriptler gelirmi yaw :)) geliyo işte :) Bi dalmışımki 15 dakka :)))
' Soruları unuttuk script düşünüyoz :) Tam dayaklık adamım :)
' Neyse yaw canım çok sıkılıyor bu script i o yüzden yaziyorum umarım bişiler daha kazandırırım arkadaşlarıma
'
' www.ataberk.org Web Sitemiz Açıldı Beklerim !
'
' Bu Benim MSN adresim ataberk@ataberk.org & ataberk30@hotmail.com Sakin Ama MSN ye yetişemez oldum artık :)
'
' Hadi başlıyoruz Şu an Saat : 04:14 Tarih: 30 Ağustos 2004 müş :) ana bugun zafer bayramı bu da benim zaferim :))
%>
<%
Set Ataberk=Server.CreateObject("ADODB.Connection")
Ataberk.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db_sayac/db.mdb")
'canım sıkılıyo zatenek :))
Set AtaberkTeam=Server.CreateObject("AdoDb.RecordSet")
sql="Select * From HitSay"
AtaberkTeam.open sql,Ataberk,1,3
' Toplam Hit i Yazdırıyos :)
AtaberkTeam("toplam") = AtaberkTeam("toplam")+1
AtaberkTeam.Update
Set kayit=Server.CreateObject("AdoDb.RecordSet")
sqlxx="Select * From TipSay Order By ip desc"
kayit.open sqlxx,Ataberk,1,3
tarihs = date ' Tarihe Eşitliyoruz !
saats = time ' Zamana Eşitliyoruz !
ips = Request.ServerVariables("Remote_Addr") ' İp Adresine Eşitliyoruz !
brows=split(Request.Servervariables("HTTP_USER_AGENT"),";")
brows(1)=replace(brows(1),"MSIE","Internet Explorer")
brows(2)=replace(brows(2),")","")
brows(2)=replace(brows(2),"NT 5.1","XP")
brows(2)=replace(brows(2),"NT 5.0","2000")
brows(1)=Trim(brows(1))
brows(2)=Trim(brows(2))
browsers = brows(1)
kayit.addnew
kayit("tarih") = tarihs
kayit("saat") = saats
kayit("ip") = ips
kayit("browser") = browsers
kayit.Update
%>
<%
alltime=1 'Kaydın kaç dakka veritabanına kalacağını belirtiyoruz
ip=Request.ServerVariables("REMOTE_ADDR") ' İp Adresini Çağırıp Eşitliyoruz !
Set AtaberkX = Server.Createobject("ADODB.Recordset")
sqlxx = "Select * From Online where ip='"& ip &"'" 'Tablomuz bağlanıyoruz Gözlerim patlıcak :D Dünde yatmadık zaten off Saat: 05:12
AtaberkX.open sqlxx, Ataberk, 1, 3
if AtaberkX.eof then
AtaberkX.addnew
AtaberkX("ip")=ip
AtaberkX("tarih")=now
else
AtaberkX("tarih")=now
end if
AtaberkX.update
AtaberkX.Close
Set AtaberkX = Nothing
Set AtaberkX = Server.Createobject("ADODB.Recordset")
sql = "Select * From Online"
AtaberkX.open sql, Ataberk, 1, 3
Do While Not AtaberkX.eof
otl = datediff("n",AtaberkX("tarih"),now)
if otl > alltime then
sql = "Delete From Online Where ip = '"&AtaberkX("ip")&"'"
Set Silsene = Ataberk.execute(sql)
Set Silsene = Nothing
end if
AtaberkX.movenext
Loop
AktifSayisi = AtaberkX.RecordCount ' Burada da aktif kişi sayısını bulmak için recordCount la tablo toplamına eşitliyoruz.
' Ve Sonunda Bitiyoruz OFf Dünyam kaydı ya :(( Uykummm varrr
%>
<%
Dim stoimg
For stoimg = 1 to Len(AtaberkTeam("toplam"))
Response.Write ""
Next
%>
<%
Dim stoimgip
For stoimgip = 1 to Len(kayit("ip"))
Response.Write ""
Next
%>
<%
Dim stoimgaktif
For stoimgaktif = 1 to Len(AktifSayisi)
Response.Write ""
Next
%>
<%
Dim stoimg
For stoimg = 1 to Len(AtaberkTeam("toplam"))
Response.Write "
<%
Dim stoimgip
For stoimgip = 1 to Len(kayit("ip"))
Response.Write "
<%
Dim stoimgaktif
For stoimgaktif = 1 to Len(AktifSayisi)
Response.Write "