ASPX+WML开发WAP（VB版，不用MMIT）


答案：用MMIT开发的Wap程序有时候不能用M3gate浏览，或许是MMIT的检测终端设备适配生成代码的问题。感觉很不容易控制。用诺基亚模拟器有时也乱码，乖乖......
像ASP+WML那样用ASPX+WML(+ASP)开发WAP,既可以掌控源码生成的WML代码，又可以利用ASPX使用语言的强大。
下边的程序是采用ASPX+WML(+ASP)开发的，可以用M3gate浏览，没有什么设备适配功能。
将文件保存为index.aspx
<%@ Page Language="vb" AutoEventWireup="false"%>
<%Response.ContentType="text/vnd.wap.wml"%>
<script language="VB" runat="server">
dim ToShow as string="请输入加数和被加数运算。"
Public Receive_a as integer '加数
Public Receive_b as integer '被加数
Public Result as integer '运算结果
Sub Page_Load(Sender As Object, E As EventArgs)
'好像Page_Load在这里无法使用，可能没有Moblile Form
If not page.ispostback then
Else
End If
End Sub
'定义类
Public Class bicyle 
'定义了一个加法函数
Public Function AddFunc(byval a as integer,byval b as integer)
dim c as integer=a+b
Return c
End Function
End Class
</script>
<?xml version="1.0" encoding="Utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=300" forua="true"/>
</head>
<card id="Bike-bicyle" title="被爱可以欢迎您" newcontext="false">
<p align="left">
<!--(^O^)以下为文件的正文######################## -->
<img src="http://www.wapzj.com/html/33/89/myimages/bikelogo.png" alt=""/><br/>
<%
'实例化类
dim bike as new bicyle
'接收参数,此处使用val是为了防止输入的不是数值。可以增加检验，改为Cint
receive_a= Val(Trim(Lcase(request("send_a"))))
receive_b= Val(Trim(Lcase(request("send_b"))))
dim Result as integer=bike.AddFunc(receive_a,receive_b)
%>
<%=ToShow%><br/>
加数:
<input type="text" name="send_a" value=""/><br/>
被加数:
<input type="text" name="send_b" value=""/><br/>
运算结果:<%=Result%><br/>
<do type="Options" name="submit" label="提交">
<go href=><postfield name="send_a" value="$(send_a)" />
<postfield name="send_b" value="$(send_b)" />
</go>
</do><br/>
欢迎光临以下Wap站点：<br/>
<a title="确定" href=>http://www.51omeng.com">被爱可以</a><br/>
<a title="确定" href=>WAP'>http://wap.wapcn.net">WAP中国</a><br/>
Email:Bicyle@126.com<br/>
(^O^)<br/>
<!--(^O^)以下为返回链接的一些信息################-->
<a title="确定" href=>http://www.51omeng.com">返回上级</a><br/>
<a title="确定" href=>http://www.51omeng.com">返回首页</a><br/>
</p>
</card>
</wml>
-----------------------------------------------------------------------------
程序说明，程序中<?xml version="1.0" encoding="Utf-8"?>编码方式必须写为Utf-8，不能写成gb2312。
程序首先声明了语言，及让浏览器怎样解释，当然可以没有第一行，但是第二行必须写。
程序声明了一个类Bicyle，类中含有一个加法函数AddFunc。通过输入数值，调用此函数输出结果。
定义类和函数的目的是为了说明程序怎样使用，大家可以根据需要定义更加复杂的函数。
采用这种方式编写程序，只是为了适应支持WML设备，若想适应多种设备最好还是MMIT开发。
效果预览如下，当然您也可以利用MMIT开发。