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" "https://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.