Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

ASP’de DB’den Veri Çekerek XML Oluşturma

Ana Sayfa » Webmaster » ASP’de DB’den Veri Çekerek XML Oluşturma
ASP’de DB’den Veri Çekerek XML Oluşturma

ASP’de database’den veri çekerek XML oluşturmak için gerekli kodları vereceğim.Oluşturacağınız XML veritabanını herhangi bir web sisteminde kullanabilirsiniz.

<% 'veri tabanı bağlantısı
dim SiteVeri
SiteVeri = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("vt.mdb")
'bağlantı bitti
'dosyayı oluşturma yeri
dosyakontur = Server.MapPath ("../../xml/banner.xml")
'tekrarlanmayan veriler
strXML = ""
strXML = strXML & "" & vbCrLf
strXML = strXML & "" & vbCrLf
strXML = strXML & "
strXML = strXML & "width=""680"" height=""300""" & vbCrLf
strXML = strXML & "currentItem=""0"" radius=""6"" transition=""y""" & vbCrLf
strXML = strXML & "showButtons=""true"" buttonLocation=""right""" & vbCrLf
strXML = strXML & "blurX=""0"" blurY=""10""" & vbCrLf
strXML = strXML & "showContent=""true""" & vbCrLf
strXML = strXML & "bgColor=""#000000"" bgAlpha=""0.6"" bgPaddingBottom=""0""" & vbCrLf
strXML = strXML & "titleColor=""#00CCFF"" titleFontSize=""16""" & vbCrLf
strXML = strXML & "descriptionColor=""#FFFFFF"" descriptionFontSize=""11"">" & vbCrLf
strXML = strXML & "" & vbCrLf
strXML = strXML & " " & vbCrLf
strXML = strXML & "" & vbCrLf

‘sql ve tekrarlanan veriler
b = 1
Set objRs = Server.CreateObject(“ADODB.RecordSet”)
StrSQLAlti = “SELECT * FROM frm_galeri ”
objRs.Open StrSQLAlti, SiteVeri, 3, 3
do while b<=7 and not objRs.eof

strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” aciadmin/slides/galeri/images/” & objRs(“dosya_ad”) & “” & vbCrLf
strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” ” & vbCrLf
strXML = strXML & ” strXML = strXML & ” 5″ & vbCrLf
strXML = strXML & ” ” & objRs(“url”) & “” & vbCrLf
strXML = strXML & ” _blank” & vbCrLf
strXML = strXML & ” ” & vbCrLf

objRs.movenext
b=b+1
loop

strXML = strXML & “”
‘xml dosyasının oluşturulması
Set objXMLYaz = Server.CreateObject(“ADODB.Stream”)
objXMLYaz.Open
objXMLYaz.Position = 0
objXMLYaz.Charset = “UTF-8”
objXMLYaz.WriteText strXML
objXMLYaz.SaveToFile dosyakontur,2
objXMLYaz.Close
Set objXMLYaz = Nothing

objRs.close
set objRs = Nothing
‘gelinen sayfaya dönüş
Response.Redirect Request.serverVariables(“HTTP_REFERER”)
%>

ASP’de DB’den Veri Çekerek XML Oluşturma - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

ÖNE ÇIKAN KATEGORİLER

RASTGELE İÇERİKLER

Etkili bir İçindekiler Sayfası Hazırlamak iPhone Rehberi Android’e nasıl taşınır? Huawei B199 ve Şaşırtıcı Özellikleri Bilgisayar  Teknolojisinin Hızlı Değişimi Pluton’dan İlk Detaylar Aselsan’ın Robot Komandosu İzci

FACEBOOK'TA BİZ

Hoşgeldiniz

Alemin Teknoloji ve Tasarım Blogu || TeknoAlem.Org - Tüm Hakları Saklıdır