Asp sayac sistemi yardım ?

arkadaşlar bu aşağıdaki kodlar çalışır vaziyette ve tam istediğim gibi çalışıyor fakat bu her sayfa yenileyince 1 artıyor ben istiyorum ki artsın ama üst üste 5 kere sayfa yenileyince yani bir flood varsa artmasın bunu nasıl yapabilirim ..

<%
Response.Expires = -1
Response.CacheControl = "No-Store"
'---------------------------------------------------------------------------------------
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("Db/okumasay.inc"), 1, TRUE)
aspplus_hitsayac=RS.ReadLine

If Request.ServerVariables("remote_addr") Then

aspci_hitsayac=aspci_hitsayac+1

Set RS2 = FS.CreateTextFile(Server.MapPath("Db/okumasay.inc"), TRUE)
RS2.WriteLine aspci_hitsayac
RS2.Close
Set RS2=Nothing
Request.ServerVariables("remote_addr")
End If
'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------
RS.Close
Set RS=Nothing
Set FS=Nothing
'---------------------------------------------------------------------------------------
%>

En son yenilenme tarihini alıp bir önce ki ile karşılaştırabilirsin. Eğer arada 2 saniye yoksa arttırma diyebilirsin.

ya aslında nasıl olsun diye kafam karıştı benim ben bunu sitemde şöyle oluşturdum

1 tane sayaccek asp ve bir ajax kodu ile sürekli çağırdım sayfayı sayyaccek asp okuma görevi verdim

1 tanedi yazıcı yani yukardaki gibi +1 şeklinde

şimdi bu adam okuma sayfasına girdimi 10 tane üst üste girdimi sayacta inanılmaz artış olacak

1 gün gbi bir koruma sacma olur cookies almak sacma adam cerezleri silene kadar bir daha saymayacak yani bunun böyle kısa bir süreligine nasıl engelleyebilirim flood gibi

adamın Ip sini session olarak ekleyebilirsin.

kodu en kolay şekilde çevirip verebilir misiniz

istediğini bununla yapamazsın
bu kod txt dosyasında bulunan veriyi her yenilendiğinde +1 yapma
bunu yapa bilmen için ya veri tabanı kullanacaksın yada sessiona kişinin ip sini ve bağlanma zamanını atıyacaksın sayfa yenilendiğinde if ile kontrol edip bağlanma zamanından istediğin süre geçmediyse +1 yapmasın gerekli kodu internetde araştırarak bula bilirsin.

örnek kod burada oluşturabilir misiniz ben veritabanını sonradan yaparım kodu görsem yeterli

sana kod vereyim mantığını anla ama bunu uygulaman için access veri tanını yapman lazım benden bu kadar

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
TopZiySay=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