用QuickWAP组件建设Wap站点教程-准备篇
首先我们要简单了解一下什么是QuickWAP，QuickWAP V1.0精简版是一款基于WAP1.2协议，利用VB6 开发的一个辅助ASP+WML语言编写WAP网页的组件。
其次我们要安装安装QuickWAP V1.0精简版，假如你还没有下载可以到天空下载站(http://shareware.skycn.com/soft/
3672.htm)下载安装。
安装过程如下：
1.首先将QuickWAP.dll文件拷贝到系统system32目录下。
Windows 2000/Server/Advanced Server操作系统为：
系统盘符:\WINNT\system32Windows XP/2003操作系统为：
系统盘符:\Windows\system322.注册控件。
开始菜单—〉运行 Regsvr32 QuickWap.dll 命令。
成功注册后弹出对话框如下：
接下来我们可以检测是否已成功安装Quickwap.Dll，新建一个ASP文件，代码如下：
Wap.TestQuickWap
Set Wap=NoThing
%
如果通过IIS运行此文件得到如下图，表示已经安装成功，可以使用该组件了。
注意事项：使用QuickWAP前，请确保服务器配置好了WAP的MIME类型。
Associated Extension
MIME Type
wml
text/vnd.wap.wml
wmlc
application/vnd.wap.wmlc
wbmp
image/vnd.wap.wbmp
wmlsc
application/vnd.wap.wmlscriptc
wmls
text/vnd.wap.wmlscript
wsc
application/vnd.wap/wmlscriptc
以下是配置在IIS中配置WAP的MIME类型：
一、启动IIS
开始菜单-设置-控制面板-管理工具-Internet信息服务（IIS）管理器
二、右击本地计算机 查看属性
三、打开MIME类型，就可将上面数据添加进去
现在我们就开始学习用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
%
效果演示：
作用：他们是对要输出的文字进行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
%
效果演示：
作用：用于形成超链接的函数使用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
%
效果演示：
作用：简易的长字符串分页函数
语法：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
%
效果演示：
作用：用于图片显示的函数
语法：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
%
效果演示：
作用：用于形成带有图片链接的函数
语法：Wap.WriteRow Wap.ImgA("ImgPath","Url "," DisplayText ")
说明：ImgPath图片的地址，可以是相对路径或者绝对路径。
Url链接地址，可以是相对路径或者绝对路径
DisplayText显示在屏幕上的链接文字
例如：Wap.WriteRow Wap.ImgA("","#SecondCard","第二栏目")
文件实例：
新建文件ImgA.asp 代码如下：
Wap.PageHeader
Wap.WriteRow "++++++++++++++++++"
Wap.WriteRow Wap.ImgA("images/help.png","#SecondCard","第二卡片")
Wap.WriteRow Wap.ImgA("images/help.png","FriendLink.asp","友情链接")
Wap.WriteRow Wap.ImgA("images/help.png","../index.asp","返回首页")
Wap.PageFooter
Set Wap=Nothing
%
效果如下：
用于设置段落对齐、是否允许换行Wap.WriteOut Wap.P("AlignMent ","WrapMode ")
AlignMent对齐方式有三种：left center right
WrapMode是否换行：wrap nowrap
例如：Wap.WriteOut Wap.P("left","wrap")
文件实例：
新建p.asp代码如下：
Wap.PageHeader
Wap.WriteRow "++++++++++++++++++"
Wap.WriteOut Wap.P
Wap.WriteOut "Hello!"
Wap.WriteOut Wap.P("left","wrap")
Wap.WriteOut "Hello!"
Wap.WriteOut Wap.P("left","nowrap")
Wap.WriteOut "Hello!"
Wap.WriteOut Wap.P("center","wrap")
Wap.WriteOut "Hello!"
Wap.WriteOut Wap.P("center","nowrap")
Wap.WriteOut "Hello!"
Wap.WriteOut Wap.P("right","wrap")
Wap.WriteOut "Hello!"
Wap.WriteOut Wap.P("right","nowrap")
Wap.WriteOut "Hello!" & "
"
Wap.WriteRow "++++++++++++++++++"
Wap.PageFooter
Set Wap=Nothing
%
效果演示：
用于将被转换为UTF-8编码的字符还原为中文字符的函数
Wap.WriteRow Wap.Utf8_Gb2312("SearchString")
SearchString待转换的UTF-8编码的字符串
例如：
Wap.WriteOut Wap.Utf8_Gb2312("我们有专业的开发团队")
文件实例：
新建文件UtGb.asp代码如下：
Set Wap=Server.CreateObject("QuickWap.EasyWap")
Wap.PageHeader
Wap.WriteOut Wap.Utf8_Gb2312("我们有专业的开发团队")
Wap.PageFooter
Set Wap=Nothing
%
效果演示：
问：假如我不习惯使用QuickWap组件了怎么办？
答：可以卸载掉
方法如下：
开始菜单—〉运行 Regsvr32 /u QuickWap.dll 命令，即可卸载掉。
问：我为什么感觉用QuickWap组件开发Wap不习惯呢？
答：用QuiWap组件编程刚开始可能不太习惯，用了一段时间后，你挥发现它非常的好用，快捷，并因此而喜欢用QuickWap组件了
