代码如下:
<%@ Page Language="vb" AutoEventWireup="false"%>
<%Response.ContentType="text/vnd.wap.wml"%>
<script language="VB" runat="server">
Function Add(Byval a as integer,Byval b as integer) as integer
Return a+b
End Function
</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^)以下为文件的正文######################## -->
中国被爱可以在线专注于WAP领域、WAP软件、网页、企业行业应用等。 <br/>
<a title="确定" href="http://wap.bicyle.org">中国被爱可以在线</a><br/>
1981+1982=
<%=Add(1981,1982)%>
<br/>
<!--(^O^)以下为返回链接的一些信息################-->
<a title="确定" href="Index.asp">返回上级</a><br/>
</p>
</card>
</wml>
开发后缀为ASPX的WAP程序一例
最新推荐文章于 2024-07-07 17:02:21 发布
效果图如下所示。语言采用的VB.Net,代码实例仅供参考。