Veritabansız daha hızlı bir sistem için yeni yazdım. İp adresine göre, Günlük gosterim sınırı eklemelidir. Sadece gunluk gosterim sayısını değiştirin. her ip adresi için belirlediğiniz kadar günlük gösterim yapar.
Alıntı
<%
'Günlük gösterim sayısını belirtin
strGunlukGosterim = 10
ip = request.ServerVariables("REMOTE_ADDR")
ip = replace(ip,".","_")
if application("sayac" & ip) = "" then application("sayac" & ip) = "0"
gun = day(now())
if application("gun" & ip) = "" then application("gun" & ip) = gun
if not application("gun" & ip) = gun then
application("gun" & ip) = gun
application("sayac" & ip) = "0"
end if
if application("sayac" & ip) < strGunlukGosterim then
%>
REKLAM KODUNUZ
<%
application("sayac" & ip) = application("sayac" & ip) + 1
end if
%>
kolay gele...