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 Veri derseniz, 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.

aspkodlari.com

asp bot örneği, gethttp, google, veri almak