Klasik ASP xml veri çekme yardım

15-12-2022, 01:08:59

Merhaba arkadaşlar, kalsik asp sitemde xml veri çekebiliyordum sunucu firması farklı cihaz kurulum yaptı bu kezde xml kaynakları çalışıyor sunucumda ama o kaynağı çeken script sonuç göstermiyor. siteye girenlerin browser versiyonu bilgilerini çekiyordum şuan değişiklik yapmamama rağmen sorgulama yapılan sonuç veren xml kaynağınındaki bilgileri alamıyorum. yardımcı olabilecek varmıdır?

xml kaynağım bu şekilde çıktısı çalışıyor

<brlist>
<parser tarayici="Chromium WebView" cihaz="Galaxy Note 5"/>
</brlist >

çekim yaptığım asp kısmı ise bu şekilde

aranan="Mozilla/5.0 (Linux; Android 7.0; SM-N920L Build/NRD90M; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/86.0.4240.198 Mobile Safari/537.36 DaumApps/6.9.18 DaumDevice/mobile"
Set Xml=Server.CreateObject("MSXML2.DOMDocument")
Xml.Async=false
Xml.SetProperty "ServerHTTPRequest", true
Xml.load("http://orneksite.com/browser.php?brow="&aranan&"")
IF Xml.ParseError="0" Then
Set ObjListe=XML.selectNodes("//parser")
StrToplam=ObjListe.Length - 1
For i=0 To StrToplam

cihaz=ObjListe(i).GetAttribute("cihaz")

response.write ""&cihaz&""
Next
ELSE
END IF

01-05-2023, 04:09:45

#2

mehmetkul

Bu örnekten yola çıkabilirsin

<% 
Dim xml, nodes, node, i
Set xml = Server.CreateObject("Msxml2.DOMDocument")
xml.async = False
xml.load("veriler.xml")
Set nodes = xml.selectNodes("//parser ")

For i = 0 To nodes.length - 1
    Set node = nodes(i)
    Response.Write("<p>" & node.selectSingleNode("cihaz ").text & "</p>")
    Response.Write("<hr>")
Next
Set xml = Nothing
%>

02-05-2023, 23:06:56

#3

turgutduman06

cevap için teşekkür ederim bunlar aktif olarak kullandığım şekil daha önce çalışıyordu yazılımsal bir değişiklik olmamasına rağmen sunucu taşıma sonrası hiçbir xml çalışmadı, xml apiler çalışıyor döküm veriyor, ama çekme işlemi hata veriyor göstermiyordu, amacım bu şekilde MSXML2.DOMDocument yorumlama yapmıyor farklı başka bir şekilde nasıl çekebilirim şeklindeydi, sonuç bulamayınca sunucu değişmek zorunda kaldım yeni sunucuda çalışmaya başladı şuan

03-05-2023, 01:05:39

#4

mehmetkul

Muhtemelen sunucunun kısıtlamalarıyla ilgili bir durumdan kaynaklı olabilir. Bazı sunucularda bazı şeyleri ekstra işlere sokmak için kısıtlama getirebiliyorlar hem güvenlik açısından hem de ekstra satış açısından

03-05-2023, 01:09:05

#5

mehmetkul

Bu örneğin çalışması lazım herhangi bir kısıtlama olmadığı zaman

Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP")
xmlHttp.open "GET", "http://orneksite.com/browser.php?brow=" & aranan, False
xmlHttp.send

If xmlHttp.Status = 200 Then
    Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument")
    xmlDoc.loadxml xmlHttp.responseText
    
    Set objListe = xmlDoc.selectNodes("//parser")
    For i = 0 To objListe.Length - 1
        cihaz = objListe(i).GetAttribute("cihaz")
        response.write "" & cihaz & ""
    Next
End If