|
ԴƼ
用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://edu.cnzz.cn/NewsInfo/../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开发
Դ. |