ASP Bot Haber Detaylarını Alamıyorum. - Sayfa 2

29-04-2014, 17:02:55

#10

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

mantık hep aynı hocam, xmlhttp ile ilgili URL'den verileri çek, istediğin şekilde süz: Detayları aynı sayfada çekmek gibi bir zorunluluğunuz yoksa aşağıdaki gibi yapabilirsiniz.

functions.asp

<%
' Binary 2 String
Function BinaryToString(Binary) 
	Dim cl1, cl2, cl3, pl1, pl2, pl3 
	Dim L 
		cl1 = 1 
		cl2 = 1 
		cl3 = 1 
		L = LenB(Binary) 
	Do While cl1<=L 
		pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
		cl1 = cl1 + 1 
		cl3 = cl3 + 1 
	If cl3>300 Then 
		pl2 = pl2 & pl3 
		pl3 = ""
		cl3 = 1 
		cl2 = cl2 + 1 
	If cl2>200 Then 
	pl1 = pl1 & pl2 
	pl2 = "" 
	cl2 = 1 
	End If 
	End If 
	Loop 
	BinaryToString = pl1 & pl2 & pl3 
End Function
%>

gs_liste.asp

<!--#include file="functions.asp"-->
<%
'Kaynaktan verileri çek
strVeriCekilecekAdres = "http://galatasaraysd.org/etkinlikler/?sayfa=1"
Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "GET", strVeriCekilecekAdres, False
oXMLHttp.Send()
blnAlinanVeri = BinaryToString(oXMLHttp.responseBody)
Set oXMLHttp = Nothing
 
haber1=split(blnAlinanVeri,"<div id=""Haberler_AnaSayfa_Resim"">")
for y = 1 to ubound(haber1)
haber2=split(haber1(y),"</div>")
haber = Trim(haber2(0))
'Verileri Süz
haber = replace(haber,"<img src=""","<img src=""http://galatasaraysd.org")
haber = replace(haber,"title="""," />")
haber = replace(haber,"title="""," />")
haber = replace(haber,"""/>","")
haber = replace(haber,"</a>","</a><br />")
haber = replace(haber,"/haberoku/","gs_detay.asp?URL=/haberoku/")
'Sonucu Yazdır
response.write haber
next
%>

gs_detay.asp

<!--#include file="functions.asp"-->
<%

'Kaynaktan verileri çek
URL = Request.QueryString("URL")
strVeriCekilecekAdres = "http://galatasaraysd.org/"&URL
Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "GET", strVeriCekilecekAdres, False
oXMLHttp.Send()
blnAlinanVeri = BinaryToString(oXMLHttp.responseBody)
Set oXMLHttp = Nothing
 
haber1=split(blnAlinanVeri,"<div id=""haberdetayi"">")
for y = 1 to ubound(haber1)
haber2=split(haber1(y),"</div>")
haber = Trim(haber2(0))
response.write haber
next
%>

Teşekkür ederim yalnız benim yapmak istediğim olay buda değil.Ben dosyayı çalıştırdığım zaman aynı sayfada haberin başlığı ve detayı gelmeli.Çünkü ben bunları veritabanına kayıt ettireceğim.

29-04-2014, 17:40:34

#11

~~vyslmkyy~~

Üyeliği durduruldu

ekteki kod ile ntvmsnbc nin rss inden haberleri çekebiliyordum bunu dahada geliştirmiştim ama o dosyayıo bulamadım ister karşı sitenin rss sini bul ordan çektir istersen linkleri sayfaya göre uyarla ordan çektir

<% @ Language = VBScript CodePage = 1254 %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<%
'*******************************************************************************************
dim strUrl
 strUrl = "http://www.ntvmsnbc.com/id/24927364/device/rss/rss.xml"
'*******************************************************************************************
dim objXML
set objXML = Server.CreateObject("Microsoft.XMLDOM")
 objXML.async = False
 objXML.setProperty "ServerHTTPRequest", True
 objXML.Load(strUrl)
'-------------------------------------------------------------------------------------------
if objXML.parseError.errorCode <> 0 then
'-------------------------------------------------------------------------------------------
 Response.Write "Hata!"
'-------------------------------------------------------------------------------------------
else
'-------------------------------------------------------------------------------------------
Dim objHaberBaslik : set objHaberBaslik = objXML.getElementsByTagName("guid")
 Response.Write "<b>Haber 01 : </b>" & objHaberBaslik(0).childNodes(0).text & "<br>" & vbNewLine
 Response.Write "<b>Haber 02 : </b>" & objHaberBaslik(1).childNodes(0).text & "<br>" & vbNewLine
 Response.Write "<b>Haber 03 : </b>" & objHaberBaslik(2).childNodes(0).text & "<br>" & vbNewLine
 Response.Write "<b>Haber 04 : </b>" & objHaberBaslik(3).childNodes(0).text & "<br>" & vbNewLine
 Response.Write "<b>Haber 05 : </b>" & objHaberBaslik(5).childNodes(0).text & "<br>" & vbNewLine

'-------------------------------------------------------------------------------------------
end if
'-------------------------------------------------------------------------------------------

%>

<%
dim iCounter
For iCounter = 0 To 4
dim srtHaberUrl
srtHaberUrl =  objHaberBaslik(iCounter).text
'-------------------------------------------------------------------------------------------
strDeger1 = "</div></div><div id=""content"" class=""w649 fL""><h1>"
strDeger2 = "</h1><h2>"
strBaslikBul = VeriBul(strDeger1, strDeger2, srtHaberUrl)
Response.Write strBaslikBul
Response.Write "<hr>" 
'-------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------
strDeger3 = "<h2>"
strDeger4 = "</h2>"
strSiiriBul = VeriBul(strDeger3, strDeger4, srtHaberUrl)
Response.Write strSiiriBul
Response.Write "<hr>"
'-------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------
strDeger5 = "<span id=""byLine""></span>"
strDeger6 = "<div class=""aC"" id=""AdShowcase_F1"">"
strTitleBul = VeriBul(strDeger5, strDeger6, srtHaberUrl)
Response.Write strTitleBul
Response.Write "<hr>"
'-------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------
strDeger7 = "</a><p class=""textBodyBlack""><span id=""byLine""></span>"
strDeger8 = "<script type=""text/javascript"" src=""http://blog.ntvmsnbc.com/nra/nra.js""></script>"
strkitleBul = VeriBul(strDeger7, strDeger8, srtHaberUrl)
Response.Write strkitleBul
'-------------------------------------------------------------------------------------------
Next

Function VeriBul(BaslangicDegeri,BitisDegeri,srtHaberUrl)
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
 objXmlHttp.Open "POST", ""&srtHaberUrl&"", false
 objXmlHttp.Send 
Set RegEx = New RegExp
 RegEx.IgnoreCase = True
 RegEx.Global = True
 RegEx.Pattern = "(" & BaslangicDegeri & ")(.+?)(" & BitisDegeri & ")"
Set Sonuc = RegEx.Execute(objXmlHttp.ResponseText)
For Each i In Sonuc
 VeriBul =  i.SubMatches(1)
Next
If IsEmpty(VeriBul) Then VeriBul = "Sonuc Yok"
Set RegEx = Nothing
Set Sonuc = Nothing
Set objXmlHttp = Nothing
End Function

set objXML = Nothing
%>

29-04-2014, 17:45:08

#12

1scripter

Başta söyleyeceğinizi sonda söylemişsiniz.

<%
Function BinaryToString(Binary) 
	Dim cl1, cl2, cl3, pl1, pl2, pl3 
	Dim L 
		cl1 = 1 
		cl2 = 1 
		cl3 = 1 
		L = LenB(Binary) 
	Do While cl1<=L 
		pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
		cl1 = cl1 + 1 
		cl3 = cl3 + 1 
	If cl3>300 Then 
		pl2 = pl2 & pl3 
		pl3 = ""
		cl3 = 1 
		cl2 = cl2 + 1 
	If cl2>200 Then 
	pl1 = pl1 & pl2 
	pl2 = "" 
	cl2 = 1 
	End If 
	End If 
	Loop 
	BinaryToString = pl1 & pl2 & pl3 
End Function
strVeriCekilecekAdres = "http://galatasaraysd.org/etkinlikler/?sayfa=1"
Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "GET", strVeriCekilecekAdres, False
oXMLHttp.Send()
blnAlinanVeri = BinaryToString(oXMLHttp.responseBody)
Set oXMLHttp = Nothing

haber1=split(blnAlinanVeri,"<div id=""Haberler_AnaSayfa_Baslik""><a href=""")
for y = 1 to ubound(haber1)
haber2 = split(haber1(y),""" title=""")
	strVeriCekilecekAdres2 = "http://galatasaraysd.org/"&trim(haber2(0))
	Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
	oXMLHttp.open "GET", strVeriCekilecekAdres2, False
	oXMLHttp.Send()
	blnAlinanVeri2 = BinaryToString(oXMLHttp.responseBody)
	Set oXMLHttp = Nothing
	
	'Başlık
	baslik1=split(blnAlinanVeri2,"<title>")
	for yyz = 1 to ubound(baslik1)
	baslik2=split(baslik1(yyz),"</title>")
	baslik = Trim(baslik2(0))
	response.write "<b>"&baslik&"</b><br />"
	next
	
	'Detay
	detay1=split(blnAlinanVeri2,"<div id=""haberdetayi"">")
	for yy = 1 to ubound(detay1)
	detay2=split(detay1(yy),"</div>")
	detay = Trim(detay2(0))
	response.write detay&"<br /><br />"
	next
response.write haber
next
%>

29-04-2014, 22:54:27

#13

beyogluhosting

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

Başta söyleyeceğinizi sonda söylemişsiniz.

<%
Function BinaryToString(Binary) 
	Dim cl1, cl2, cl3, pl1, pl2, pl3 
	Dim L 
		cl1 = 1 
		cl2 = 1 
		cl3 = 1 
		L = LenB(Binary) 
	Do While cl1<=L 
		pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) 
		cl1 = cl1 + 1 
		cl3 = cl3 + 1 
	If cl3>300 Then 
		pl2 = pl2 & pl3 
		pl3 = ""
		cl3 = 1 
		cl2 = cl2 + 1 
	If cl2>200 Then 
	pl1 = pl1 & pl2 
	pl2 = "" 
	cl2 = 1 
	End If 
	End If 
	Loop 
	BinaryToString = pl1 & pl2 & pl3 
End Function
strVeriCekilecekAdres = "http://galatasaraysd.org/etkinlikler/?sayfa=1"
Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "GET", strVeriCekilecekAdres, False
oXMLHttp.Send()
blnAlinanVeri = BinaryToString(oXMLHttp.responseBody)
Set oXMLHttp = Nothing

haber1=split(blnAlinanVeri,"<div id=""Haberler_AnaSayfa_Baslik""><a href=""")
for y = 1 to ubound(haber1)
haber2 = split(haber1(y),""" title=""")
	strVeriCekilecekAdres2 = "http://galatasaraysd.org/"&trim(haber2(0))
	Set oXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
	oXMLHttp.open "GET", strVeriCekilecekAdres2, False
	oXMLHttp.Send()
	blnAlinanVeri2 = BinaryToString(oXMLHttp.responseBody)
	Set oXMLHttp = Nothing
	
	'Başlık
	baslik1=split(blnAlinanVeri2,"<title>")
	for yyz = 1 to ubound(baslik1)
	baslik2=split(baslik1(yyz),"</title>")
	baslik = Trim(baslik2(0))
	response.write "<b>"&baslik&"</b><br />"
	next
	
	'Detay
	detay1=split(blnAlinanVeri2,"<div id=""haberdetayi"">")
	for yy = 1 to ubound(detay1)
	detay2=split(detay1(yy),"</div>")
	detay = Trim(detay2(0))
	response.write detay&"<br /><br />"
	next
response.write haber
next
%>

Hocam çok teşekkür ederim harikasın

Ben aslında konunun en başında bunu yazmıştım, sanırım dikkat etmediniz.

Hocam birde şöyle bir olay var, veri çekeceğim sitedeki çekeceğim verileri görmem için üye girişi yapmam gerekiyor.Bu tarz durumda siteye giriş yapıp verileri nasıl çekebilirim ?

02-05-2014, 01:35:03

#14

~~vyslmkyy~~

Üyeliği durduruldu

componentsiz olmuyor diye biliyorum
02-05-2014, 10:20:28

#15

beyogluhosting

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

componentsiz olmuyor diye biliyorum

Nasıl yani ? Biraz açıklayabilirmisiniz.
02-05-2014, 12:03:00

#16

~~vyslmkyy~~

Üyeliği durduruldu

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

Nasıl yani ? Biraz açıklayabilirmisiniz.

isimleri karıştıryor olabilirim sunucuya bileşen yüklemeniz gerekiyor asp tear di sanırım sonra o bileşen üzerinden yapabiliyorsunuz diye biliyorum
02-05-2014, 13:53:07

#17

beyogluhosting

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

isimleri karıştıryor olabilirim sunucuya bileşen yüklemeniz gerekiyor asp tear di sanırım sonra o bileşen üzerinden yapabiliyorsunuz diye biliyorum

Hocam siz tam olarak neyden bahsediyorsunuz ? Bot hazırlandı problem yok, ben üye girişi yapılması gereken sitelerden veri çekmeyi sordum en son.
02-05-2014, 14:03:14

#18

~~vyslmkyy~~

Üyeliği durduruldu

tmm bende size diyorumki bildiğim kadarıyla normal asp kodları ile diğer siteye login olup veri çektiremiyorsunuz sunucuda asp tear yüklüyse asp tear bileşenini kullanarak yapabiliyorsunuz diye cevapladım