Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic ipuçları » Asp İle .Xml Güncelleme
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Web Borowser Kullanımı için gerekli kodlar

Yazar: ECZCEM

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 7510
Yayın Tar:14.08.2006
Yazar : murat4
Hit :3490

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Öncelikle tekrar merhaba arkadaşlar uzun bir uğraştan sonra bu kodu oluşturdum .

Veritabanımızdan İşlem yaptığımızda xml web sayfamız kendini güncelliyor. İşte bu kod ne işe yarıyacak.

Programımızdan web de ki veritabanına kimi zaman bağlanamıyoruz. işte bu olay ile xml i veritabanı olarak kullanabiliriz.

Hem Daha Güncel Hem de Daha Sağlıklı olacaktır. Ayrıca Hızlı da..

Şimdi Makalemizi inceleyelim



<%

' veritabanına bağlanma kodu burada

Set Baglan = Server.Createobject("ADODB.Connection")
Baglan.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("../db/hastane.mdb")

' türkçe karakterleri temizleme kodu yoksa xml de sorun alırız arkadaşlar..


Function Temizle(strInput)
strInput = Replace(strInput,"&", "&")
strInput = Replace(strInput,"'", "'")
strInput = Replace(strInput,"""", "")
strInput = Replace(strInput,">", ">")
strInput = Replace(strInput,"<","<")
strInput = Replace(strInput,"İ","I")
strInput = Replace(strInput,"Ş","S")
strInput = Replace(strInput,"Ü","U")
strInput = Replace(strInput,"Ö","O")
strInput = Replace(strInput,"Ç","C")
strInput = Replace(strInput,"?","G")
strInput = Replace(strInput,"ğ","g")
strInput = Replace(strInput,"ı","i")
strInput = Replace(strInput,"ş","s")
strInput = Replace(strInput,"ü","u")
strInput = Replace(strInput,"ö","o")
strInput = Replace(strInput,"ç","c")
Temizle = strInput
End Function

' xml sayfamızın kodları başlıyor...

yazgitsin = "<rss version='2.0'>"& VbCrlf
yazgitsin = yazgitsin & "<channel>"& VbCrlf
yazgitsin = yazgitsin & "<title>Muratsoft ASp KodBank </title>"& VbCrlf
yazgitsin = yazgitsin & "<link>http://www.Muratsoft.com</link>"& VbCrlf
yazgitsin = yazgitsin & "<description>Son 20 Kod</description>"& VbCrlf
yazgitsin = yazgitsin & "<language>tr</language>"& VbCrlf

'tabloya bağlanıyoruz.

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from haber where onay=true order by tarih desc"
rs.Open SQL,baglan,1,3
i = 0

'döngü ile veritabanından bilgi alıyoruz ve çoğaltırıyoruz..

Do While i =< 19 And Not rs.Eof
yazgitsin = yazgitsin & "<item>" & VbCrlf
yazgitsin = yazgitsin & "<title>" & Temizle(rs("haber_adi")) & "</title>" & VbCrlf
yazgitsin = yazgitsin & "<link>http://www.mncvizyon.com</link>" & VbCrlf
yazgitsin = yazgitsin & "</item>" & VbCrlf

i = i + 1
rs.MoveNext
Loop
rs.Close

yazgitsin = yazgitsin & "</channel></rss>"

'işlemimiz bitti bundan sonra rss.xml sayfamızı oluşturuyoruz.

SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
SET Yazicim = MyFileObject.CreateTextFile(Server.MapPath("rss.xml"))
Yazicim.WriteLine yazgitsin
Yazicim.Close

%>


artık sistemimiz tamam Bu sayfayı include sistemi ile bir haberi kaydetteğiniz sayfaya gömebilirsiniz. çalışınca bış çıkacaktır.
onaylayan: Webmaster




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin