用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="../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="index.aspx" method="post" accept-charset="utf-8">
<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开发