adsense çok tıklanmayı engelleme kod

19-07-2010, 02:34:16

belki bazı arkadaşların işine yarar tamamen kodlar bana aitdir.

bi tane adsense diye tablo açılır 3 tane id,gosterim,ip diye sutun eklenir.

<%
	ip = request.ServerVariables("REMOTE_ADDR")

	set kss = server.createobject("ADODB.Recordset")
	sql ="Select * from adsense Where ip='"& ip &"'"
	kss.open sql,baglanti,1,3

	If kss.EOF And kss.BOF Then
		set ks = baglanti.execute("insert into adsense (ip,gosterim) values ('"&ip&"',1)")
%>
                       REKLAM KODUNUZ
<%
<%
	else
		if cint(kss("gosterim")) < 10 then 
			set ms = baglanti.execute("update adsense set gosterim='" & kss("gosterim")+1 & "' Where ip='"&ip&"'")
%>
                      REKLAM KODUNUZ
<%
		end if
	end if
%>

if cint(kss("gosterim")) < 10 then

bu satır daki 10 rakamını kafanıza göre verirsiniz aynı ip ye 9 kere reklam gösterir tabloyu boşaltmadığınız sürece daha da reklam cıkmaz o ip ye

bi sifirla.asp diye de sayfa acarsınız panel den arada kafanıza göre tıklarsınız

kodları da

baglanti.execute("TRUNCATE TABLE adsense")

işinize yarar umarım.

19-07-2010, 19:37:14

#2

weblogu

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...

20-07-2010, 21:56:10

#3

denom

Eline Sağlık