天极传媒:
天极网
比特网
IT专家网
52PK游戏网
极客修
全国分站

北京上海广州深港南京福建沈阳成都杭州西安长春重庆大庆合肥惠州青岛郑州泰州厦门淄博天津无锡哈尔滨

产品
  • 网页
  • 产品
  • 图片
  • 报价
  • 下载
全高清投影机 净化器 4K电视曲面电视小家电滚筒洗衣机
您现在的位置: 天极网 > 软件 > 网页>技术文档>用QuickWAP组件建设Wap站点

用QuickWAP组件建设Wap站点教程

天极网2006-04-10 08:34我要吐槽
用QuickWAP组件建设Wap站点教程-准备篇 

首先我们要简单了解一下什么是QuickWAP,QuickWAP V1.0精简版是一款基于WAP1.2协议,利用VB6 开发的一个辅助ASP+WML语言编写WAP网页的组件。

其次我们要安装安装QuickWAP V1.0精简版,假如你还没有下载可以到天空下载站(http://www.mydown.com/soft/256/256532.html )下载安装。

安装过程如下:

1.首先将QuickWAP.dll文件拷贝到系统system32目录下。

Windows 2000/Server/Advanced Server操作系统为:

系统盘符:\WINNT\system32\

Windows XP/2003操作系统为:

系统盘符:\Windows\system32\

2.注册控件。

开始菜单—〉运行 Regsvr32 QuickWap.dll 命令。


成功注册后弹出对话框如下:


接下来我们可以检测是否已成功安装Quickwap.Dll,新建一个ASP文件,代码如下:

<% Set Wap= Server.CreateObject( "QuickWap.EasyWap" )
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站点教程-实战篇  

现在我们就开始学习用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

%>

效果演示:

6>图片链接函数

作用:用于形成带有图片链接的函数

语法:Wap.WriteRow Wap.ImgA("ImgPath","Url "," DisplayText ")

说明:ImgPath图片的地址,可以是相对路径或者绝对路径。

Url链接地址,可以是相对路径或者绝对路径

DisplayText显示在屏幕上的链接文字

例如:Wap.WriteRow Wap.ImgA("","#SecondCard","第二栏目")

文件实例:

新建文件ImgA.asp 代码如下:

<% Set Wap=Server.CreateObject("QuickWap.EasyWap")
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
%>

效果如下:
7>段落函数P

用于设置段落对齐、是否允许换行Wap.WriteOut Wap.P("AlignMent ","WrapMode ")

AlignMent对齐方式有三种:left center right

WrapMode是否换行:wrap nowrap

例如:Wap.WriteOut Wap.P("left","wrap")

文件实例:

新建p.asp代码如下:

<% Set Wap=Server.CreateObject("QuickWap.EasyWap")
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
%>
效果演示:

8>Utf8转成Gb2312函数

用于将被转换为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组件建设Wap站点教程-终结篇  

问:假如我不习惯使用QuickWap组件了怎么办?

答:可以卸载掉

方法如下:

开始菜单—〉运行 Regsvr32 /u QuickWap.dll 命令,即可卸载掉。
问:我为什么感觉用QuickWap组件开发Wap不习惯呢?

答:用QuiWap组件编程刚开始可能不太习惯,用了一段时间后,你挥发现它非常的好用,快捷,并因此而喜欢用QuickWap组件了



###adv###
作者:龙犊整理责任编辑:龙犊)
请关注天极网天极新媒体 最酷科技资讯
扫码赢大奖
评论
* 网友发言均非本站立场,本站不在评论栏推荐任何网店、经销商,谨防上当受骗!
热点推荐
微软Windows 10操作系统Win10系统在Win8的基础上对界面、特性以及跨平台方面做了诸多优化。[详细]
Windows 10 新视界 [进入频道][使用技巧][微博互动]
手机整机DIY企业级