Xây dựng ứng dụng wap với iis và asp  (Page 3/3)

ta chọn add, sau đó điền các nội dung vào bảng Add/Edit Application Extension Mapping như sau:

Như vậy là ta đã cấu hình xong IIS, ngoài ra ở trên đầu mỗi trang asp, muốn hiển thị trên wap browser ta cần thêm đoạn lệnh sau:

<% response.ContentType = "text/vnd .wap.wml" %>

Sau khi cấu hình máy chủ, ta có thể tạo riêng 1 thư mục trên ổ C, ví dụ: C:\WAP-applications, sau đó chép file wml ở trên đặt tên file là index.wml. Ngoài ra, ta gõ thêm file sau và đặt tên là index.asp

<% response.ContentType = "text/vnd.wap.wml" %>

<?xml version="1.0"?>

<wml>

<card id="card1" title="Minh hoa asp">

<p>

<%response.write("Chao ban")%>

</p>

</card>

</wml>

Thiết đặt đường dẫn ảo (Virtual directory) tới thư mục này mang tên wap, sau đó khởi động trình duyệt Wap, gõ vào ô địa chỉ dòng chữ: (External Link) và (External Link) Nếu cả hai trường hợp trên màn hình trình duyệt hiện ra nội dung Chao ban có nghĩa là máy chủ của ta đã sẵn sàng để chạy các ứng dụng tiếp theo.

3. Minh họa ứng dụng hiển thị và cập nhật CSDL qua Wap Browser

3.1. Chúng ta cùng nhau xây dựng một ứng dụng nhỏ cho phép hiển thị CSDL là 1 danh sách bao gồm tên và số điện thoại tương ứng của người đó. CSDL của ta được tạo trên Access, có tên là danhba.mdb, gồm 1 bảng danhsach và 2 trường ten (kiểu text) và dienthoai(kiểu số) như sau:

Các file ta sẽ xây dựng tương ứng gồm:

Display.asp cho phép hiển thị CSDL

Form.wml cho phép nhập dữ liệu

Insert.asp cho phép cập nhật dữ liệu từ form vào CSDL

3.2. Mã nguồn từng file tương ứng:

Display.asp

<% Response.ContentType = "text/vnd.wap.wml" %>

<?xml version="1.0" encoding="iso-8859-1"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

<wml>

<!-- MAIN CARD-->

<card id="Danhbadt">

<p align="left"><small><b>Danh ba DT</b></small></p>

<%

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="&Server.MapPath("danhba.mdb")

set conn = server.createobject("ADODB.Connection")

conn.open strconn

set rs = server.createobject("adodb.recordset")

Query = "Select * from danhsach"

rs.open Query, conn

if not rs.eof Then rs.movefirst

Do While NOt Rs.EOF

%>

<p align="left">

<small>

<h2><%=rs("ten")%></h2>

<%=rs("dienthoai")%><br/>

</small>

</p>

<%

rs.movenext

Loop

else

response.write("<p align='left'><small>D.sach chua co ai</small></p>")

End if

rs.close

Set conv = nothing

set rs= nothing

set conn = nothing

%>

</card>

</wml>

Form.wml

<?xml version="1.0"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"

"http://www.wapforum.org/DTD/wml_1.1.xml">

<wml>

<card title="Input">

<p>

Ten:<input type="text" name="ten" size="15"/><br/>

Dienthoai:<input type="text" name="dienthoai" size="15"/>

</p>

<do type="accept" label="Send">

<go href="insert.asp" method="post">

<postfield name="ten" value="$ten"/>

<postfield name="coquan" value="$coquan"/>

<postfield name="dienthoai" value="$dienthoai"/>

</go>

</do>

</card>

</wml>

Insert.asp

<%

Dim adoCon

Dim rsAddnew

Dim strSQL

set rs = server.createobject("adodb.recordset")

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("danhba.mdb")

Set rsAddnew = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM danhsach;"

rsAddnew.CursorType = 2

rsAddnew.LockType = 3

rsAddnew.Open strSQL, adoCon

rsAddnew.AddNew

rsAddnew.Fields("ten") = Request("ten")

rsAddnew.Fields("dienthoai") = Request("dienthoai")

rsAddnew.Update

rsAddnew.Close

Set rsAddnew = Nothing

Set adoCon = Nothing

Response.Redirect "danhbadienthoai.asp"

%>

</p>

</card>

</wml>

Ghi cả 3 tập tin trên vào thư mục bạn vừa tạo, khởi động Wap browser rồi gõ vào từ trình duyệt (External Link) Sau khi bạn nhập tên và số điện thoại rồi submit, nếu màn hình hiển thị tên và số điện thoại bạn vừa nhập thì có nghĩa là bạn đã thành công.

Tương tự như vậy, bạn có thể tham khảo thêm cú pháp các thẻ của WML cũng như WML Script để xây dựng cho mình các ứng dụng phong phú hơn. Riêng đối với ứng dụng CSDL bạn vừa làm, bạn có thể thêm chức năng Xóa, sửa và tìm kiếm để chương trình trên trở thành một ứng dụng hoàn chỉnh.

Chúc các bạn thành công

Tài liệu tham khảo:

1. http://www.w3schools.com/wap