ASP ile kaynak koduna erişmek

16-05-2008, 03:11:28

Daha önce denemedim ama asp ile bir bot yapmaya çalışıcam. Ve bir sitenin kaynağındaki kodlardan veri çekmem lazım, bunun için kaynak koduna ulaşmam gerekiyor. Böyle bir kod var sanırım ancak ben bulamadım yardımcı olur musunuz

16-05-2008, 12:22:59

#2

doronty37

Kimlik doğrulama veya yönetimden onay bekliyor.

XmlHttp ve AspTear bileşenleri ile yapabilirsin.

17-05-2008, 15:46:33

#3

hmakdeniz

Tam istediğin olay kodları biraz düzenledim...
ASPTear bileşeni ile çalışmaktadır.
iyi çalışmalar

<%
Server.ScriptTimeOut=100
strURL = Request.QueryString("url")		' Hangi sayfanın kaynak kodları alınacak 
Dim tear 
Set tear = Server.CreateObject("Softwing.AspTear") 						
strHTML = Tear.Retrieve(strURL,Request_Get, "","","")  					' Kaynak Kod gel buraya
strbasla = Instr(StrHTML,"</->")              	' Kodların içinde </-> ile başlayandan
strbitis = Instr(StrHTML,"</strong></a></p>")					' </strong></a></p> ' a
response.write(stroyun & "</a>" )
%>

17-05-2008, 19:16:58

#4

DayWalker

doronty37 adlı üyeden alıntı: mesajı görüntüle

XmlHttp ve AspTear bileşenleri ile yapabilirsin.

İsimler için teşekkürler.

hmakdeniz adlı üyeden alıntı: mesajı görüntüle

Tam istediğin olay kodları biraz düzenledim...
ASPTear bileşeni ile çalışmaktadır.
iyi çalışmalar

<%
Server.ScriptTimeOut=100
strURL = Request.QueryString("url")		' Hangi sayfanın kaynak kodları alınacak 
Dim tear 
Set tear = Server.CreateObject("Softwing.AspTear") 						
strHTML = Tear.Retrieve(strURL,Request_Get, "","","")  					' Kaynak Kod gel buraya
strbasla = Instr(StrHTML,"</->")              	' Kodların içinde </-> ile başlayandan
strbitis = Instr(StrHTML,"</strong></a></p>")					' </strong></a></p> ' a
response.write(stroyun & "</a>" )
%>

Valla çok güzel düzenlemişsin hocam

bileşenleri hiç bilmiyorum bileşen hostla mı alakalı veya localden yapsam çalışır mı, baby webserver veya iis den?

17-05-2008, 19:30:16

#5

hmakdeniz

babyweb serverdan calısmaz iis üzerine ASPTear bileşenini kuracaksın 1.0 v. ücretsiz diye hatırlıyorum...

Google'da arama yaparsan bulabilirsin.
Sonra bileşeni C'de herhangi bir yere örnek c:/dizin içine atıp
regsvr32 c:/dizin/asptear.dll

iis'i kapatıp tekrar açtıgında asptear calısacaktır.

başarılar

18-05-2008, 16:38:33

#6

DayWalker

ASPTearı bulup indirdim. Verdiğin bilgiler için çok teşekkürler

07-05-2009, 18:30:58

#7

~~ShekerChi~~

Üyeliği durduruldu

Kodu aşağıdakiyle düzenleyin ve AspTear'ı yükleyin.

Alıntı

<%
Server.ScriptTimeOut=999999
strURL = Request.QueryString("url") ' Hangi sayfanın kaynak kodları alınacak
Dim tear
Set tear = Server.CreateObject("Softwing.AspTear")
strHTML = Tear.Retrieve(strURL,Request_Get, "","","") ' Kaynak Kod gel buraya
response.write(strhtml & "</a>" )
%>

07-05-2009, 23:46:52

#8

electronicboy

selam XMLHTTP diye arama yap istersen ASPTear XMLHTTP'e göre daha yavaştır.

17-05-2009, 21:55:32

#9

~~ShekerChi~~

Üyeliği durduruldu

Bunun hızlısı yavaşı yoktur ki. Hepsi normal stabil çalışır. Hedef hostun serverının hızına göre ancak hız düşünülebilir.