Asp ile Üye Sitelerde Banner Kontrolü Yapmak | bildirgec.org

Örneğin bir link siteniz var ve sitenize kayıt olan üylerin size ait banner`ı anasayfalarına eklemeleri gerekiyor.Tabiki site sayısı 100`lere hatta 1000`lere ulaşınca banner eklemelerini kontrol etmek imkansız hale gelecektir.Aşağıdaki kod ile tüm siteler için aynı anda kontrol yapabilir ve hangi sitelerin banner kodunuzu eklemediğini görebilirsiniz. (Denemek için boş bir asp sayfasına kopyalayıp çalıştırabilirsiniz.)

Aşağıdaki sitelerde eklenmesi gereken kod bulunamadı

<%
'Burayı veritabani baglantisi ile degistirin (Ben ornek acisindan dizi olusturuyorum!)
siteler=Array("www.panteray.com","www.google.com"
,"www.bildirgec.org","www.hafif.org")
top_site=ubound(siteler)
'//

'banner kodumuzu belirliyoruz (ben gostermek amaclı link yerine text yaziyorum)
banner_kodu="http://www.pilli.com"
'//

'Kontrol fonksiyonumuzu yazdiriyoruz
Function kod_kontrol(kaynak_kod)
If instr(kaynak_kod,banner_kodu)=0 Then
kod_kontrol=0
else
kod_kontrol=1
End if

End Function
'//

'xmlhttp objemizi yaratiyoruz
set xobj=server.createobject("Microsoft.xmlhttp")
'//

For i=0 to top_site

'Siteye baglaniyoruz
on error resume next
xobj.Open "GET","http://" & siteler(i),false

xobj.send
'//

'kaynak kodu alıyoruz
kaynak=trim(xobj.responsetext)

' banner eklemeyenleri yazdiriyoruz
If kod_kontrol(kaynak)=0 Then

'burada uyeye mail ile uyarabilir yada uyeligini pasif hale getirebilirsiniz!

response.write "

" & siteler(i) & "

"
End if

next

%>

Unutmadan uygulamanın çalışabilmesi için sunucunuzda xmlhttp companentinin yüklü olması gereklidir.Local sunucunuz için buradan xmlhttp (MSXML) companentini indirebilirsiniz.İyi kullanımlar ;)