<% ' Sağlıcakla kalın ' Umarım İşinize Yarayan bir Script oluR.. ' Yeni Scriptlerde Görüşmek Üzere ' Bye.... %>
|
|
|
||||||
|
<%
' - #### ShN! Sayac v2 #### -
' Yeni Özellikleri ve Yeni görüntüsüyle karşınızda :)
' Günlük Tekil ve Günlük çoğul olayında hata olabilir. Scripti İndirdiğiniz yere yorum yazın ya da iletişime geçin..
' sahinet.net = sahinonline.net (oldu.)
' Bir süre WEB e ara vermiştim. Scriptin 2. versiyonu ile tekrar dönüş yapmak istedim.
' İletişim;
' http://www.sahinonline.net/Iletisim
' ya da
' sahin@sahinonline.net (sadece mail / no spam / no fake / no virus..)
' (c) 2008, 30 Temmuz
' Powered by ShN!
' Biraz Tablolu tasarım olacak ama kusura bakmayın ancak bu kadar :P
' Bu arada Script hakkında kötü yorumda bulunmayınız. Kullanmak istemeyen kullanmaz. İyisini bilende kendi yazar değil mi. Emeğe Saygı!!!
'######################################### Start Verildi ######################################
' Başlıyoruz:
%>
<%
' ######! LOG Alıyoruz.. Bu alınan LOGları /log.asp den görebilirsiniz..
logip2=Request.ServerVariables("remote_addr")
set kon=baglanti.execute("select ip from log where ip='"&logip2&"'")
if kon.eof then
set ekle=server.createobject("adodb.recordset")
sql="select * from log"
ekle.open sql,baglanti,1,3
ekle.addnew
ekle("ip")=logip2
ekle("cookie")=Request.ServerVariables("HTTP_COOKIE")
ekle("host")=Request.ServerVariables("REMOTE_HOST")
ekle("referer")=Request.ServerVariables("HTTP_REFERER")
ekle("tarih")=now()
ekle.update
end if
if not request.querystring("ref")="" then
ip= Request.ServerVariables("REMOTE_ADDR")
set ref=server.createobject("adodb.recordset")
sql="select * from ref where site='"&ip&"'"
ref.open sql,baglanti,1,3
if ref.eof then
ref.addnew
ref("site")= ""&request.querystring("ref")&""
ref.update
end if
end if
kon.close:set kon=nothing
' ######## Flood Yapmaya çalışan akıllılara karşılık verelim
IF Session("Duran" )="" Then
Session("Duran" )=0
Else
Session("Duran")=Session("Duran")+1
END IF
%>
<%
IF CInt(Session("Duran"))>5 Then 'Eğer sayfa 5 kere yenilenirse (refresh) alttaki mesaj yazsın diyoruz.
Session.TimeOut=5 ' TimeOut değeri dakika cinsindendir. 60 Yazarsanız 60 dakika yani 1 saat yapar :)
Response.Write (" <% ' Sağlıcakla kalın ' Umarım İşinize Yarayan bir Script oluR.. ' Yeni Scriptlerde Görüşmek Üzere ' Bye.... %> |
|||||||