5.1 Yíu cầu phần cứng
• Phía Client lă điện thoại di động có hỗ trợ chức năng truy cập WAP vă hỗ trợ mạng. Trong quâ trình xđy dựng ứng dụng, client có thể lă trình giả lập do nhă sản xuất cung cấp
• Server lă mây chủ có cấu hình mạnh ví dụ như Intel Pentium 733 MHz, 128 MB RAM
5.2 Yíu cầu phần mềm
Mây chủ dịch vụ có thể căi bất cứ hệ điều hănh năo. Cụ thể ứng dụng năy được xđy dựng rín mây tính căi hệ điều hănh Windows XP Professonal Edition. Mây chủ dịch vụ căi đặt câc phần mềm sau: Micosoft Access hoặc Microsoft SQL Server 2000, mây chủ Web IIS 5.1
Để xđy dựng ứng dụng cần một số phần mềm sau:
• Deck-it để giả lập điện thoại di động
• Klondike để duyệt WAP
5.3 Một số đoạn chương trình
Mê nguồn tập tin index. wml đưa ra danh mục câc nội dung hiển thị trín măn hình chính
<!--#include file="connection.txt"--> <?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
KHOA CÔNG NGHỆ THÔNG TIN
Stt Tín trường Ý nghĩa
1 Macttt Mê chi tiết thời tiết 2 Matt Mê thời tiết
3 Nhietdo Nhiệt độ dự bâo trong ngăy 4 Dubao Dự bâo thời tiết trong ngăy
<wml>
<card id="start" title="Welcome"> <p align="center">
<img alt="WML Image" src="dt.wbmp"/> <b>Khoa CNTT</b>
</p> <%
strsql = "select * from Danhsach ORDER BY id" set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, Conn, 1, 2 %> <p> <small> <% if rs.EOF then
response.write "Khong co du lieu" else
Do While (NOT rs.EOF) %>
<a href="<% response.write rs("url") %>"> <% response.write rs("danhmuc") %> </a> <br/> <% rs.MoveNext Loop
end if %> </small> </p> <% rs.Close Set rs = Nothing %> </card> </wml> <% conn.Close
Set Conn = Nothing %
Tập tin bongda.wml hiển thị câc giải thi đấu bóng đâ
<!--#include file="connection.txt"--> <?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="select" title="Giai dau"> <% (adsbygoogle = window.adsbygoogle || []).push({});
strsql = "select * from ctbongda"
set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, Conn, 1, 2
%>
KHOA CÔNG NGHỆ THÔNG TIN
<p> <small> <%
if rs.EOF then
response.write "Khong co du lieu" else
Do While (NOT rs.EOF) %>
<a href="<%response.writers("url")%>"> <% response.write rs("noidung") %></a><br/> <% rs.MoveNext Loop end if %> </small> </p> <% rs.Close Set rs = Nothing %> <p>
<a href="index.wml">Trang chu</a>
<do type="prev" label="Quay lai"><prev/></do><do type="go" label="Trang chu"><go href="index.wml"/></do>
</card> </wml> <%
Conn.Close
Set Conn = Nothing %>