Enes37 Üye Puan: 82  | Gönderilme Tarihi: 28 Ekim 2010 20:26:57
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”)
%>
alıntıdır http://www.teknoalem.org/aspde-dbden-veri-cekerek-xml-olusturma.html
|
Sayfalar: 
Ara
Bu içeriğin geçmişi: 
28 Ekim 2010 20:29:25 tarihinde 
