用QuickWAP组件建设Wap站点教程-实战篇
现在我们就开始学习用Quickwap组件编写Wap代码了.
1> 框架PageHeader和PageFooter
PageHeader
作用：PageHeader用于设置WAP页面的访问控制信息、缓存等的函数，输出了WAP文件头并产生了一个一个卡片。
语法：Wap.PageHeader("CacheControl",” forua”,” OtherAtt”)
说明：CacheControl max-age指定DECK在缓存里的生存期，最小单位是秒， 如果指定为0， 则每次都需通过连接服务器来调用该DECK。
forua forua 为可选属性，指定在该wml文件传到客户端之前，
标签是不是被中间代理删除（因为传输的协议可能改变），默认值为false。
OtherAtt用于设置其他的属性值。其中的属性值可以用单引号或者两个双引号括起来。
如" name='Bicyle'" 可以用" name=""Bicyle"""代替。
在此添加的附加属性将添加到的前边。
例如：Wap.PageHeader("max-age=300")
PageFooter
作用：用于输出WAP文件的末尾函数
语法：Wap.PageFooter
文件实例：
新建kj.asp代码如下：
<%
Set Wap=Server.CreateObject("QuickWap.EasyWap")
Wap.PageHeader
Wap.WriteRow ("在此写入编程的代码，这句话只是注释")
Wap.Pagefooter
Set Wap=Nothing
%>
效果演示：
2> 输出函数WriteOut和WriteRow
作用：他们是对要输出的文字进行UTF-8转码，然后进行输出。
例如：Wap.WriteOut " Content" & "
"
说明：Content用于准备输出的字符串
WriteRow与WriteOut的区别就在于：后面的
,也就是说，我们在输 出的时候可以省略后面的
,而输出时将自动换行。例如我们还是要输出"欢迎使用Quick WAP组件开发！"这句话，代码就可以这样写：
例如：Wap.WriteRow "欢迎使用Quick WAP组件开 发！"
文件实例：
新建Write.asp，代码如下：
<%
Set Wap=Server.CreateObject("QuickWap.EasyWap")
Wap.PageHeader
Wap.WriteRow "欢迎使用Quick WAP组件开发！"
Wap.WriteOut "欢迎使用Quick WAP组件开发！" & "
"
Wap.Pagefooter
Set Wap=Nothing
%>
效果演示：
3>超链接函数A
作用：用于形成超链接的函数使用QuickWap实现超链接非常简单.
例如：Wap.WriteRow Wap.A("Title"," Url "," DisplayText ")，
说明：Title显示在手机左下角或右下角显示的提示信息。
Url链接地址，可以是相对路径或者绝对路径。
DisplayText就是显示在屏幕上的链接文字。
注意：他们之间必须用逗号（,）隔开一下函数都是如此，不再提醒。
文件实例：新建A.asp，代码如下：
<%
Set Wap=Server.CreateObject("QuickWap.EasyWap")
Wap.PageHeader
Wap.WriteRow Wap.A("确定","#SecondCard","第二卡片")
Wap.WriteRow Wap.A("新闻","NewsList.asp","公司新闻")
Wap.WriteRow Wap.A("确定","FriendLink.asp","友情链接")
Wap.WriteRow Wap.A("留言","GuestBook.asp","留言反馈")
Wap.WriteRow Wap.A("进入","About.asp","关于本站")
Wap.WriteRow Wap.A("查看","ShuoMing.asp","业务说明")
Wap.WriteRow Wap.A("链接","../index.asp","返回首页")
Wap.PageFooter
Set Wap=Nothing
%>
效果演示：
4>分页函数.EasyMorePage
作用：简易的长字符串分页函数
语法：Wap.WriteOut Wap.EasyMorePage("ToShowContent",)
说明：ToShowContent输入要分页的字符串
TextLong每页显示的字符数。
文件实例：新建EasyMorePage.asp 代码如下：
<%
Set Wap=Server.CreateObject("QuickWap.EasyWap")
Wap.PageHeader
Wap.WriteOut Wap.EasyMorePage ("QuickWAP V1.0是一款基于WAP1.2协议，利用Microsoft Visual Basic 6.0 开发的一个辅助ASP+WML语言编写WAP网页的组件,它集成了常见WAP开发中所遇到问题的多种解决方案。比如中文编码问题。因为它被Windows系统直接调用，所以服务器加快了WAP网页处理的速度，与IIS处理ASP+WML文件相比，速度提高了5倍以上。",20)
Wap.Pagefooter
Set Wap=Nothing
%>
效果演示：
5>图片函数Img
作用：用于图片显示的函数
语法：Wap.WriteOut Wap.Img("Url","Tip ",OtherAtt)
说明：Url是图片的地址，可以是相对路径或者绝对路径
Tip当无法显示图片或载入时显示的文字信息
OtherAtt用于设置其他的属性值。其中的属性值可以用单引号或者两个双引号括起来。如"name='Bicyle'" 可以用" name=""Bicyle"""代替
例如：Wap.WriteOut Wap.Img("images/logo.PNG","生成预览中...")
文件实例：
新建文件Img.asp 代码如下：
<%
Set Wap=Server.CreateObject("QuickWap.EasyWap")
Wap.PageHeader
Wap.WriteRow "++++++++++++++++++"
Wap.WriteRow Wap.Img("Images/help.png")
Wap.WriteRow Wap.Img("Images/help.png","QuickWAP")
Wap.WriteRow Wap.Img("Images/help.png","QuickWAP","align='top'")
Wap.WriteRow "++++++++++++++++++"
Wap.PageFooter
Set Wap=Nothing
%>
效果演示：
