Ö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 yazdiriyoruzFunction kod_kontrol(kaynak_kod)If instr(kaynak_kod,banner_kodu)=0 Thenkod_kontrol=0elsekod_kontrol=1End ifEnd Function'//'xmlhttp objemizi yaratiyoruzset xobj=server.createobject("Microsoft.xmlhttp")'//For i=0 to top_site'Siteye baglaniyoruzon error resume nextxobj.Open "GET","http://" & siteler(i),falsexobj.send'//'kaynak kodu alıyoruzkaynak=trim(xobj.responsetext)' banner eklemeyenleri yazdiriyoruzIf kod_kontrol(kaynak)=0 Then'burada uyeye mail ile uyarabilir yada uyeligini pasif hale getirebilirsiniz!response.write "
” & siteler(i) & “ ”
End ifnext%>
Unutmadan uygulamanın çalışabilmesi için sunucunuzda xmlhttp companentinin yüklü olması gereklidir.Local sunucunuz için buradanxmlhttp (MSXML) companentini indirebilirsiniz.İyi kullanımlar 😉
