WAP程序最常用的就是输出图片、链接以及文字内容，看看如下的WML文件，代码如下（文件后缀为.wml）。

<?xml version="1.0" encoding="gb2312"?>

请在下边书写正文。++++++++++++++++++您喜爱的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.PageFooterSet 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.PageFooterSet Wap=Nothing%>

　　代码执行后输出了今天的日期，效果如图3所示。

图3

　　QuickWAP集成的大量函数模块能够让您轻松的开发出动态WAP程序，给您的开发工作带来方便。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-127183/，如需转载，请注明出处，否则将追究法律责任。