İçinden Çıkamadığım Bir Konu(ASP)
-
<%
adr="http://www.deneme.com/aa.xml"
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send%>
<%= StrHTTP.Responsetext%>
şeklide farklı bi siteden siteme veri çekiyorum fakat burda yaşadıgım sorun şu eger deneme.com sunucusu o an için cevap veremiyosa serverimdeki xml dosyası hata veriyo dolayısı ile sayfanın yarısı derlenemiyo sayfa sapıtık bi vaziyette kalıy. bunu halletmek için nasıl bi yol izlemem lazım sizce
-
Bir üstat Konuna Cevap verene kadar, Farklı bir siteden veri çekmek Tam olarak nedir izah edermisin, Konun sayesindede İlgimi çeken bir konuda ben aydınlanmış olacam... ?
-
gerekli bileşen yüklü ve serveriniz asp destekliyorsa yukardaki kodu sayfana koyalayıp www.deneme.com/aa.xml yazan yere www.tahribat.com yazarsan direkt o sayfaya bağlandıgında server tahribat.com u bulur ve ordaki verileri senin sayfandaymış gibi gösterir hatta ve hatta split kullanma konusnda bilgin var ise bu verileri parçalarsın istediğin yeri alırsın istemediğini atarsın aklına takılan bişi olursa pm ile msn adresini at ben seni aydınlatırım
-
ShockMan bunu yazdı:
-----------------------------
Bir üstat Konuna Cevap verene kadar, Farklı bir siteden veri çekmek Tam olarak nedir izah edermisin, Konun sayesindede İlgimi çeken bir konuda ben aydınlanmış olacam... ?
-----------------------------örneğin tcmb nin sitesinden döviz kurlarını çekmek :)
-
lanetlicocuk bunu yazdı:
-----------------------------<%
adr="http://www.deneme.com/aa.xml"
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send%>
<%= StrHTTP.Responsetext%>
şeklide farklı bi siteden siteme veri çekiyorum fakat burda yaşadıgım sorun şu eger deneme.com sunucusu o an için cevap veremiyosa serverimdeki xml dosyası hata veriyo dolayısı ile sayfanın yarısı derlenemiyo sayfa sapıtık bi vaziyette kalıy. bunu halletmek için nasıl bi yol izlemem lazım sizce
-----------------------------şunu bi dene hocam
<%
set lanetlicocuk = CreateObject("MSXML.DOMDocument")
lanetlicocuk.async = false
lanetlicocuk.setProperty "ServerHTTPRequest", true
lanetlicocuk.load("http://deneme.com/aa.xml")
%><%
If (lanetlicocuk.parseError.errorCode <> 0) then
Response.Write "XML Hatası: " & lanetlicocuk.parseError.reason
end If
%>arşivde varmış ama çalışıyomu denemedim :)
-
snnyk bunu yazdı:
-----------------------------lanetlicocuk bunu yazdı:
-----------------------------<%
adr="http://www.deneme.com/aa.xml"
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send%>
<%= StrHTTP.Responsetext%>
şeklide farklı bi siteden siteme veri çekiyorum fakat burda yaşadıgım sorun şu eger deneme.com sunucusu o an için cevap veremiyosa serverimdeki xml dosyası hata veriyo dolayısı ile sayfanın yarısı derlenemiyo sayfa sapıtık bi vaziyette kalıy. bunu halletmek için nasıl bi yol izlemem lazım sizce
-----------------------------şunu bi dene hocam
<%
set lanetlicocuk = CreateObject("MSXML.DOMDocument")
lanetlicocuk.async = false
lanetlicocuk.setProperty "ServerHTTPRequest", true
lanetlicocuk.load("http://deneme.com/aa.xml")
%><%
If (lanetlicocuk.parseError.errorCode <> 0) then
Response.Write "XML Hatası: " & lanetlicocuk.parseError.reason
end If
%>arşivde varmış ama çalışıyomu denemedim :)
-----------------------------hacım saoalsın ama zaten bunların kullandıkları bileşenler bile farklı bu kodu daha önce incelemiştim bişi çıkmadı:(
-
adr="http://www.deneme.com/aa.xml"
Set adrcek = Server.CreateObject("Msxml2.XMLHTTP")
adrcek.open "GET",adr, false
adrcek.send
If adrcek.Status >= 400 And adrcek.Status <= 599 Then
yazi="Bir hata meydana geldi."
Else
yazi=adrcek.responsebody 'veya responsetext
End If
set adrcek=Nothingresponse.write yazi
-----------
dener misin bi
-
pesimistzombie bunu yazdı:
-----------------------------adr="http://www.deneme.com/aa.xml"
Set adrcek = Server.CreateObject("Msxml2.XMLHTTP")
adrcek.open "GET",adr, false
adrcek.send
If adrcek.Status >= 400 And adrcek.Status <= 599 Then
yazi="Bir hata meydana geldi."
Else
yazi=adrcek.responsebody 'veya responsetext
End If
set adrcek=Nothingresponse.write yazi
-----------
dener misin bi
-----------------------------yok hacım yine aynı sorun olay nerden kaynaklanıyo biliyomusun bence 3. satırda xml bileşeni tetikleniyo ve orda bileşen boş bi istek gelince sapıtıyo taminimce
-
sapıtmasından kastın ????????? bunun gibi şekiller mi çıkıyor?
eğer veriyi çektiğin server yanıt vermezse filan dll erişim sorunu diye hata verir onu aşman için
<%
on error resume next
adr="http://www.denemeasdasdsd.com/aa.xml"
'----------
Set adrcek = Server.CreateObject("Msxml2.XMLHTTP")
adrcek.open "GET",adr, false
adrcek.send
'-----
If adrcek.Status >= 400 And adrcek.Status <= 599 Then
yazi="Bir hata meydana geldi."
Else
yazi=adrcek.responsetext
End If
'-----
if yazi="" then
yazi="bir hata meydana geldi"
end if
'-----
set adrcek=Nothing
'----------
response.write yazi
%>
şu şekilde de deneyebilirsin bende sorun çıkartmıyor yani :/ -
pesimistzombie bunu yazdı:
-----------------------------sapıtmasından kastın ????????? bunun gibi şekiller mi çıkıyor?
eğer veriyi çektiğin server yanıt vermezse filan dll erişim sorunu diye hata verir onu aşman için
<%
on error resume next
adr="http://www.denemeasdasdsd.com/aa.xml"
'----------
Set adrcek = Server.CreateObject("Msxml2.XMLHTTP")
adrcek.open "GET",adr, false
adrcek.send
'-----
If adrcek.Status >= 400 And adrcek.Status <= 599 Then
yazi="Bir hata meydana geldi."
Else
yazi=adrcek.responsetext
End If
'-----
if yazi="" then
yazi="bir hata meydana geldi"
end if
'-----
set adrcek=Nothing
'----------
response.write yazi
%>
şu şekilde de deneyebilirsin bende sorun çıkartmıyor yani :/
-----------------------------hacım muhteşem oldugunu sölemişmiydim daha önce :) benimde ihtiyacım olan on error muş daha önce denemiştim böle bişi ama yememişti. seni yakalamışken bide şey sorayım verileri çektim alt alta dizdim 1. veriden sonuncu veriye kadar içerisinde link barındırıyo bu linkleri sistem sıra ile gezsin istiyorum çünkü o adres ziyaret edildiğinde o sayfanın verilerini veri tabanıma ekletiyorum bunu nasıl yapabilirim?
-
linkleri sistem sırayla gezsin derken anlamadım şimdi uykusuzluktan :/
eğer çekip sıralattığın verilerde teker teker linkler varsa döngüyü neyle yaptın bilmiyorum (for loop veya do loop farzedelim) döngü içinde xml den aldığın adresi aynı kodla içeriği tekrar çektirip db ye alman gerekir ki bu çok kasıntı bi iştir :/
yani örnek veriyorum tam kod değil
adr="http://www.denemeasdasdsd.com/aa.xml"
Set adrcek = Server.CreateObject("Msxml2.XMLHTTP")
adrcek.open "GET",adr, false
adrcek.send
---------burda veri çekme ve döngüye sokma+içerik sıralama
+sıralarken aldığın adresin içeriğini de dbye atma
---------döngüden çıkma
ama kasıntı iş o nedenle şöyle bişey yapmanı tavsiye ederim ki sende ziyaret ederken db ye atmaktan bahsetmişin, sıralatırken replace kullan linkler için ve linkleri kendi sitenden bi asp sayfasından
gidiyoruz.asp?url=sdsdsd.com şeklinde yollat adam linke tıkaldığında satırdaki url nin içeriği db ye at ve adamı yönlendir ancak güvenlik önlemini alman gerekir tabiki risk oluşturabilir bu işlem.
yanlış anldıysam kusura bakma uyanınca sakin kafayla tekrar bakarım :D