08 February 2008, 14:59 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Asp destekli wap sayfasi yapiminda kullanilabilecek basit bir uygulama.
Asp destekli wap sayfasi yapiminda kullanilabilecek basit bir uygulama. Kod:
WML kodumuzun başına kodun ASP içerdiğini belirtmek için şöyle bir satır ekliyoruz: <% Response.ContentType = "text/vnd.wap.wml" %> Daha sonra veritabanı bağlantımızı klasik ASP/ADO kodu ile yapıyoruz. <% Dim RS, DB, Baglanti ' Değişkenleri tanımlıyoruz 'Bağlantı için DRIVER kodunu koyuyoruz. veritabani.mdb yazan 'yere sizin veritabanınızın dosya ismi gelecek. DB = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("veritabani.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5" 'Bağlantı için objeleri yaratıyoruz ve bağlantı kuruyoruz. Set Baglanti = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.Recordset") Baglanti.Open DB 'Bağlantı açıldı 'SQL statement kullanarak veritabanını sorguluyoruz. Set RS= Baglanti.Execute ("SELECT * FROM kitaplar ORDER BY kitapadi ASC") %> Tüm bunları WML dosyamızın başına ekledikten sonra W@P sitesinin arayüzü için WML kodlamaya geçiyoruz. <!-- Standart XML version ve DTD belirtimi --> <?xml version="1.0"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> <!-- WML kodumuz başlıyor --> <wml> <card id="kitapList" title="XYZ Kütüphanesi Kitap Listesi"> <% Response.Write "<small>" '<small> ile yazıyı küçültüyoruz. Do Until RS.EOF 'Kayıtların sonuna kadar döngü yaratıyoruz. Response.Write "- " & RS("kitapadi") & "<br/>" 'Sayfaya kayıtları yazdırıyoruz ve her kayıttan sonra <br/> ile alt satıra geçiyoruz. RS.MoveNext 'Do Until döngüsünde kayıtların her dönüşte bir ileri gitmesini sağlıyoruz. Loop 'Do Until için gerekli olan Loop komutu Response.Write "</small>" '<small> kodunu kapatıyoruz. %> </card> </wml> <% 'Bağlantıları kapatıyoruz ki serverımız yorulmasın, rahat etsin... RS.Close Set RS = Nothing Baglanti.Close Set Baglanti = Nothing %> Bu kodlarıda WML dosyamıza ekledikten sonra W@P sitemize koyup test edebiliriz. Gördüğünüz gibi WML ve ASP`yi entegre kullanmak hiçte zor değil. Hatta ASP yerine PHP, Perl gibi dilleride kolayca kullanabilirsiniz. Bu kursumuz oldukça kısa oldu ama web teknolojileri konusunda çalışan biri bu dökümandan kolayca istediği bilgiyi elde edebilir, en azından biz buna inanıyoruz. |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Karbonhidrat Destekli Diyet | PESTEMAL | Beslenme ve Diyet | 0 | 20 February 2012 12:52 |
Asp.net basit bir takvim | agasarlinuris | asp.net | 0 | 21 January 2009 22:12 |
Asp.net ile mobil uygulama gelistirme hakkinda küçük bir örnek.bu örnekte wml il | tamerr89 | asp.net | 0 | 29 March 2008 13:06 |
Basit Yaşamalisin | Mekansiz | Yakılacak Mektuplarınız | 0 | 07 April 2006 16:45 |
Yeni türeyen Türkçü gruplar dış destekli | REHA | Deneme & Düz Yazılar | 0 | 07 March 2006 12:13 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |