Google çıkan ilk 10 sonucu alma...

Merhaba,

ara.asp?kelime=r10

boyle bir dosya yapmak istiyorum asp tearda ama beceremedim google veya yahoo farketmez sitemde aradığım kelimenin ilk 10 sonucunu kendi düzenime göre listelemek istiyorum. (google in sınırlaması olduğunu biliyorum belli bir sayıda onu aşacağım kendim ama bir türlü ilk 10 sonucu alamadım for dongusune kodum naptıysam beceremedim

YArdım edermisiniz ?

- r10 - Google'da Ara

- r10 - Yahoo! Search Results

sonuçları şöyle lsitelemek istiyorum
Konu:
Açıklama:
Link:

yani diğer önbellekti benzer sayfaalrdı vs... şeyler listelemek istemiyorum...

lütfen yardımcı olurmusunuz büyük üstatlar

Teşekkürler

veri çekme botları var sayfanın şu ananında şu alanına kadar olanları çek ve yansıt diyorsun o yapıyor. Fakat özellikle asp botu piyasada ücretsiz bulman imkansız. Eğer bulursan yapman gereken başlık metin ve linki ayrı ayrı süzgeçten geçirip yansıtmak. Ayrıca yansıtırkende for i = 1 to 10 gibi bir kod da kullanırsan 10 satırı sql kodunda da desc kullanırsa son 10 kelimeyi yansıtman mevcut...

<%
arakelime=Request("ara")
URL= "http://www.google.com.tr/search?hl=tr&q="&arakelime&"&meta="
On Error Resume Next
Set Veri_al= Server.CreateObject("Softwing.AspTear")
Sayfa_Al = Veri_al.Retrieve(URL,2,"","","")
'Hata Kodumuz "0" dan faklı yani hata var ise.
if Err <> 0 then
response.write Sayfa_Al
'Response.Write "İşlem sırasında bir hata oluştu.<br>"
'Response.Write "<b>Hata Açıklaması :</b> "& Err.Description
'eğer hata var ise aşağıda yazdığımız kısımları sayfamıza yazmasın.
Response.End
end if

%>



<%
For i=1 to 10
%>


<%
Basla = InStr(1,Sayfa_Al, "<em>" , 1) + Len("<em>" )
Bitir = InStr(Basla, Sayfa_Al, "</a></h3>" , 1) - Basla
Title = Mid(Sayfa_Al, Basla, Bitir)
response.write Title &"<br /><br />"


%>

<% Next %>

bu kodu yaptım ama bi turlu beceremedim yani biraz asp bilgisi olan üst seviye arkadaşlar varmı yani eğer AmazonGenTr arkadaşın dediği gibi burdan paylaşmak istemiyorsanız pm de atabilirsiniz.

şimdiden teşekkürler.

senin istediğin en basit yolla for döngüsü felan kullanmadan 2 nokta arasında secenekleme ile olur ama onda bazı istenmeyen karekterler çıkabilir onları temizlemek için replace kullanırsın çalışır hali burada http://www.hostingege.com/google.asp
google.asp
<form method=post action=googleara.asp>
<input name="link" value="sorgulamak istediğiniz adresi yazımız" size="43">
<input type=submit value=Gönder>
</form>


googleara.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%

Function trkarakter(heyy_gery)
heyy_gery = Replace(heyy_gery," ", "+")
trkarakter = heyy_gery
End Function
Function temizlikci(heyy_geryl)
heyy_geryl = Replace(heyy_geryl,"<li class=g><h3 class=r>", "<br>")
temizlikci = heyy_geryl
End Function


adr="http://www.google.com.tr/search?hl=tr&q="&trkarakter(Request("link"))&""
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send
kur = StrHTTP.Responsetext
Set StrHTTP = Nothing

if lcase(instr(kur,"<ol>"))>0 then
kes = split(kur,"<ol>")
kes2=split(kes(1),"</ol>")
link=kes2(0)
else
link= "<a href=http://www.google.com.tr>Bilader aradıgını bulamadık bide yan komşuya soruver</a>"
end if

response.write ""& temizlikci(link) &""

%>

yok ben öyle aynen çıkan sonucu almak istemiyorum yani for next ile 1 den 10 a kadar işlem yaptırmak istiyorum aspde mümkünmü acaba bu kod normal google çıkan sayfasını direk alıyor.

yani 1. arama sonuclarında sadece
ISIM
ACIKLAMA
LİNK
kısımları çıksa yeter.

desingby yazdıgın kod harika birde bu bulunan sonuçları access veri tabanına yazdıran bir kod olsa tadından yenmez valla varmı aceba

müsait olunca yazayım amaonun okadar zor bi olayı yok sadece veri tabanına bağlkacaksın ne yazdıracaksan onu yazdıracaksın oldu bitti vaktim olunca hazırlıyayım hatırlarsam