Üye ol
Şifremi unuttum | Onay kodum gelmedi
Yardım

Asp DB İle Çekerek Veri Oluşturma
Enes37
Üye
Enes37

Puan: 82

Enes37 şu anda çevrimdışı
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.htmlBağlantı dışarı gidiyor
Bu içeriğin geçmişi:
28 Ekim 2010 20:29:25 tarihinde sendetiklat tarafından taşınmış.


h4yfans
Üye
h4yfans

Puan: 150

h4yfans şu anda çevrimdışı
Gönderilme Tarihi: 19 Kasım 2010 20:49:57 | # 1

şu asp nin zamanı geldi sanırım
Sayfalar:
[1]
1.3.0
Kullanım Şartları - İletişim - Öner
29 Temmuz 2014 Salı 13:31:49