Asp Veri Çekmek

07-03-2014, 01:03:19

arkadaşlar google vs. aradım ama bir türlü bulamadım yardımcı olurmusunuz. Php de : <?php echo file_get_contents("http://www.a.com/veri.php") ?>

bunu asp de nasıl yapabilirim bilgisi olan yardımcı olabilir mi.

07-03-2014, 01:06:45

#2

~~caxe~~

Üyeliği durduruldu

@ZeoMast3r; Merhaba hocam şu konuyu inceleyiniz.

07-03-2014, 01:37:58

#3

ZeoMast3r

Açıkçası asp bilgim pek yok. Verdiğiniz linke daha önce denk geldim biraz araştırdım yapamayınca buraya yazmak durumunda kaldım.

denedim : 

Ayrıca linkteki fonksiyonu oluşturup response.write(file_get_contents("index.html")) denedim fakat hata aldım.

07-03-2014, 01:42:48

#4

tolgasen

🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺

<%
Function veri_cek(CekAdres)
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , CekAdres , false
objXmlHttp.sEnd
icerik = BinaryToString(objXmlHttp.ResponseBody)
veri_cek = icerik
End Function
%>

Böyle bir fonksiyon oluştur. Böylede kullan;

<%=veri_cek("http://www.a.com/veri.php")%>

07-03-2014, 02:46:33

#5

ZeoMast3r

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

<%
Function veri_cek(CekAdres)
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , CekAdres , false
objXmlHttp.sEnd
icerik = BinaryToString(objXmlHttp.ResponseBody)
veri_cek = icerik
End Function
%>

Böyle bir fonksiyon oluştur. Böylede kullan;

<%=veri_cek("http://www.a.com/veri.php")%>

malesef böyle bir hata aldım

07-03-2014, 03:03:40

#6

tolgasen

🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺

icerik = BinaryToString(objXmlHttp.ResponseBody),

olan yeri;

icerik = objXmlHttp.ResponseText

ile değiştir.

07-03-2014, 03:04:48

#7

ZeoMast3r

BÃ¶yle bir fonksiyon oluÅtur. BÃ¶ylede kullan;
msxml3.dll error '80072ee7'

The server name or address could not be resolved

/test.asp, line 6

07-03-2014, 03:06:39

#8

tolgasen

🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺

Hocam hangi siteden veri almaya çalışıyorsun? Sunucu adresi çözümlenemedi hatası alıyorsun.

07-03-2014, 12:03:42

#9

beyogluhosting

XML ile veri çektiğini düşünürsek bu şekilde kullana bilirsin.

Alıntı

<%
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://www.orneksiteadresi.com/xmlservice.xml") ' Xml in alınacağı adres

Set objRoot = objXML.documentElement
Set objItems = objRoot.getElementsByTagName("video")

Dim objItem
For Each objItem in objItems

strResimYolu = objItem.selectSingleNode("resimyolu").Text
strEmbedKodu = objItem.selectSingleNode("embedkodu").Text
strFilmAdi = objItem.selectSingleNode("filmadi").Text

'For next döngüsü içinde sql sorgularını çalıştırabilirsiniz db nize göre uyarlayın
'yada sadece gösterim yapın tercih sizin
'rs.Addnew
' rs("resimyolumuz") = strResimYolu
' rs("embedkodumuz") = strEmbedKodu
' rs("filmadimiz") = strFilmAdi
'rs.Update

Next
%>