ASP bot örneği

ASP bot örneği

Günümüz web yazılımında site içeriğinin önemi büyüktür. Arama motoru devi Google için özgün veri site kalitenizin yükselmesi için seçilmiş en seçici kriterlerden biridir. Ancak özgün veri oluşturmak uzun zaman gerektirir. Bot yazılarak başka site içeriği alınıp kendimize göre şekillendirilebilinir. Bu sitemizin index sayısını da artıracaktır. Sitenin index sayısı (Google’da site:siteadresi.com ile gelir) arttıkça ziyaretçi sayısı da artacaktır. Bugün yazacağımız kod başka bir siteden istediğimiz veriyi almamızı sağlayacaktır. Bu borsa bilgileri olabilir, hava durumu olabilir ya da bir makale olabilir. Sizin yeteneğiniz doğrultusunda banlanmadığınız sürece alamayacağınız veri yoktur. Hemen başlıyoruz. Hedefimiz aspkodlari.com içinde belli bir yeri almak olsun.

<%
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject(“MSXML2.ServerXMLHTTP.3.0″ )
StrHTTP.Open “GET” , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
%>

<%
dim aranan,temp,URL,Veri,AramaBaslangic,AramaBitis,Hata

URL = “http://www.aspkodlari.com/”
Veri = GETHTTP(Url)

%>

Yukardaki kod aspkodlari.com anasayfasının kaynak kodlarını Veri değişkenine yükler. Response.Write Veriderseniz, sayfayı aynen sizin sitenizde gösterecektir. Eğer sayfanın belli bir kısmını almak istiyorsak String fonksiyonlarını kullanarak istediğimize ulaşabiliriz. Instr, Replace,Left,Right,Len,Mid bu hazır fonksiyonlardan çokça kullanılanlardır. Devam ediyoruz.

<%

AramaBaslangic = “<!– blog title and tag line –>”
AramaBitis = “<!– page navigation –>”

if Veri=”" then

Hata = 1

end if

temp=”"
if Hata > 0 then
temp=”Sayfada hata var”
else
KodBaslasin = Instr(Veri, AramaBaslangic)
KodBitsin = Instr(Veri, AramaBitis)
Sonuclar = Mid(Veri, (KodBaslasin), ((KodBitsin)-(KodBaslasin)))
Sonuclar = Replace(Sonuclar,”ASP Kodları”,”ASP Dersleri”)
temp = Sonuclar
end if
Response.Write temp
%>

Bu kadar. Yukardaki kod ile aspkodlari.com içinde <!– blog title and tag line –> ve <!– page navigation –>arasındaki html kodlarını almış olduk.