ActiveX组件技术在WAP中的成功应用--QuickWAP（转）

WAP（无线通讯协议）是在数字移动电话、因特网或其他个人数字助理机（PDA）、计算机应用之间进行通讯的开放全球标准。现在很多人直接用WAP来代表手机上网。WAP的本质就是INTERNET，而且是可以移动的INTERNET。

　　WAP定义了一种XML（Extensible Markup Language）标记语言，被称作为WML（Wireless Markup Language），主要用于标记和说明WAP移动终端收发的互联网信息和用户接口。WML使得设计者可以采用与设备独立的方式定义WAP应用的用户接口。

　　为了编写功能强大的WAP网页程序，通常采用ASP(JSP等)+WML开发。ASP提供了可在脚本中使用的内建组件对象，比如我们在WEB开发中常用到的Ad Rotator、File Access组件对象等。那么我们在WAP开发中，能不能使用组件对象呢？答案是肯定的，QuickWAP组件就是为了辅助WAP开发而产生的，在详细了解它之前，我们先了解一下ActiveX组件。

什么是ActiveX组件？

　　ActiveX 组件是一个文件，该文件包含执行某项或一组任务的代码，它一般被包含在动态链接库 (.dll) 或可执行文件 (.exe)中。组件可以执行公用任务，这样就不必自己去创建执行这些任务的代码。它提供了用在脚本中执行任务的对象，是建立强大的 Web 应用程序的关键。

　　组件作为脚本和基于 Web 应用程序的基本构造块，可以提供一个或多个对象以及对象的方法和属性。只要知道如何访问组件提供的对象。即使是位编写脚本的新手，也可以在不了解组件运作方式的情况下编写脚本。总之，组件使您不用学习编程就能够编写强大的脚本。

　　组件是可以重复使用的。在 Web 服务器上安装了组件后，就可以从 ASP 脚本、ISAPI 应用程序、服务器上的其他组件或由另一种 COM 兼容语言编写的程序中调用该组件。

　　
那么什么是QuickWAP呢？

　　QuickWAP是一款基于WAP1.2协议开发的辅助ASP+WML语言编写WAP网页的ActiveX组件,它集成了常见WAP开发中所遇到问题的多种解决方案，具备ActiveX组件的所有优点，它可以被重复使用，只要在服务器上注册成功后，所有动态ASP网页程序（包含WAP页面和WEB页面）都可以通过创建对象的方式调用其中的功能模块。

　　使用QuickWAP组件编写WAP网页程序，不仅运行稳定，处理速度也会比相同功能的ASP+WML网页程序要快很多倍，功能也容易得到扩展，而且同时支持QuickWAP+ASP+WML+WMLScript一起使用进行WAP程序开发。

　　QuickWAP可以应用于个人计算机调试WAP程序，也可利用于企业或空间提供商，它功能相对完善，适合中国移动、中国联通的SP以及任何需要提供WAP网站服务的企业和个人。

QuickWAP功能展示

　　假设我们编写一个发送邮件程序，利用WAP模拟器浏览效果图如下：

图1

图2

我们用QuickWAP组件如果编写的话，代码如下：

发送邮件的文件SendMail.asp

Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下可以写文件正文
Wap.MailServerUserName="bicyle@126.com"
Wap.MailServerPassword="*******"
Wap.MailSmtp="smtp.126.comt"
Wap.SiteName="中国被爱可以在线"
Wap.WebUrl="www.bicyle.org"
Wap.MailResultFileName="Success.asp"
Wap.SendMail
'以下为返回链接等信息
Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteOut Wap.DoPrev("prev", "后退", "TypeName", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

在上边的代码中，我们关注的仅仅是以下几个属性设置：
Wap.MailServerUserName="bicyle@126.com"
'MailServerUserName设置smtp服务器验证登陆名 （任何一个Email地址）。
Wap.MailServerPassword="*******"
'MailServerPassword设置用户Email帐号对应的密码。
Wap.MailSmtp="smtp.126.comt"
'MailSmtp设置smtp服务器地址。
Wap.SiteName="中国被爱可以在线"
'SiteName设置发送网站的名字。
Wap.WebUrl="www.bicyle.org"
'WebUrl设置发送网站的WEB地址。
Wap.MailResultFileName="Success.asp"
'MailResultFileName设置邮件发送完毕后，跳转到的报告状态的文件的文件名。

　　QuickWAP组件发送邮件的功能主要借助于服务器端的Jmail组件，如果我们不设置SendMail.asp文件中中的各项属性值，而直接使用SendMail函数也可以发送邮件，只不过程序会采用默认值进行发送。

　　仅仅一句Wap.SendMail代码便会生成了如图1所示的发送邮件界面，我们可以不用去了解Jmail组件那些复杂无关的属性和方法，是不是很简单呢？

报告状态结果的文件Success.asp

Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
ToDo=Request.QueryString("ToDo")
Wap.WriteRow Wap.P("left","wrap")
If ToDo="SendMailOk" Then
　　Wap.WriteRow "祝贺您,邮件发送成功！"
　　Wap.WriteRow Wap.ImgA("","SendMail.asp","继续发送")
　　Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
End If
'以下为返回链接等信息
Wap.WriteRow Wap.ImgA("","Index.asp","返回首页")
Wap.WriteOut Wap.DoPrev("prev", "后退", "TypeName", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

　　邮件发送完毕后，WAP页面会转到SendMail.asp中设定的报告状态的文件，这样我们就可以知道是否发送成功，如图2所示。

　　QuickWAP中除了以上介绍的几个函数属性外，还有很多其他方面的功能模块，在此不作一一介绍。

总结：
　　QuickWAP这款ActiveX 组件让我们把精力放在所需要关注的部分，它简化了WAP代码，使擅长脚本编程的开发人员能够更灵活的控制WAP页面，让不懂WML语言的WEB站点开发人员也可以轻松进入WAP领域，同时它也会被越来越多的空间服务商支持，为普及WAP、推动企业的无线信息化建设服务。

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

转载于:http://blog.itpub.net/10294527/viewspace-127184/