使用QuickWAP编写简易WAP代码（转）
请在下边书写正文。
++++++++++++++++++
您喜爱的WAP站
WAP之家
++++++++++++++++++
中国被爱可以在线
效果图运行如下，以上代码必须声明为"gb2312"，否则在模拟器中可能会出现乱码现象。
图1
下边我们用QuickWAP来实现图1的效果，代码如下。
<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow Wap.P("center")
Wap.WriteRow Wap.Img("guoqing.png")
Wap.WriteRow "请在下边书写正文。"
Wap.WriteRow "++++++++++++++++++"
Wap.WriteRow "您喜爱的WAP站"
Wap.WriteRow "WAP之家"
Wap.WriteRow "++++++++++++++++++"
Wap.WriteRow Wap.A("确定","http://wap.bicyle.org","中国被爱可以在线")
Wap.PageFooter
Set Wap=Nothing
%>
通过代码比较，我们发现使用QuickWAP开发的代码没有一点WML语言的味道，而更像编写ASP程序。的确，QuickWAP可以直接和ASP结合使用，以上代码中的文字已经通过输出函数(WriteRow)进行了UTF-8编码，您不需要再用ASP专门编写UTF-8转码程序了。
代码中A和Img分别为输出超链接和图片的函数，P为设置段落对齐方式、是否换行的函数。详细帮助可参见QuickWAP使用手册。
图2
下边的代码为QuickWAP与ASP结合最简单的WAP应用。
<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "今天是：" & Date()
Wap.PageFooter
Set Wap=Nothing
%>
代码执行后输出了今天的日期，效果如图3所示。
图3
QuickWAP集成的大量函数模块能够让您轻松的开发出动态WAP程序，给您的开发工作带来方便。
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-127183/ ，如需转载，请注明出处，否则将追究法律责任。
