ASP ile XML'den Veri Çekmek

ASP ile herhangi bir XML dosyasından veri çekmek gayet basit bir işlemdir. Yalnız burada dikkat edeceğiniz nokta bu XML dosyalarının detaylı veriler ile size velmiş olmasıdır. Standar sitenin sitemap XML dosyası herhangi bir işimize yaramaz ama herhangi bir sitenin RSS dosyası da işimizi görecektir.

Alttaki gibi örnek bir XML dosyamız olsun;

< videolar>
  < video>
    < resimyolu>orn1.jpg< /resimyolu>
    < embedkodu>orn1.flv< /embedkodu>
    < filmadi>orne1filmi< /filmadi>
  < /video>
  < video>
    < resimyolu>orn2.jpg< /resimyolu>
    < embedkodu>orn2.flv< /embedkodu>
    < filmadi>ornek2filmi< /filmadi>
  < /video>
< /videolar>

Yukarıda verilen örnek sitenin kayıtları ile birlikte sıralanıp gider. Bizde istersek hepsini istersek sadece belirli sayıda olanı çekip kendimize göre işleyebiliriz bunları.

< %
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load("http://www.site.tld/xmlservice.xml") 'XMLin alınacağı URL adresi
 
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 ve VT nize göre uyarlayabilirsiniz.
'Kayıt yapmak istemezseniz eğer sadece gösterim yaparsınız.
'rsC.Addnew
'  rsC("resimyolumuz") = strResimYolu
'  rsC("embedkodumuz") = strEmbedKodu
'  rsC("filmadimiz") = strFilmAdi
'rsC.Update
 
Next
% >

Üstte verdiğimiz kod ile en üstte bulunan XML dosyasında verileri direk çekmiş olduk. Bu kadar basit bir sistemdir. Bu işlem HTML kaynağından veri çekmekten çok çok daha basit bir işlemdir.

Tarih: Nisan 08, 2024