QuickWAP V1.5在执行了SQL语句外,会在内部自动生成记录集,记录集名称为:RS,引用时需要加实例化对象的名称。如:Wap.Rs.RecordCount 。
首先,我们建立一个名为Url.mdb的Access2000数据库,然后在其中新建一个表,表名为:SiteUrl,数据库结构如图1所示:
图1
数据库内容填写如下:
图2
然后我们在Url.mdb的同级目录下新建一个Url.asp的文件,代码如下所示:;
<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.Mdb_Path="Url.mdb" '用于设置Access数据库的路径。
Wap.Mdb_StrSql="Select * From SiteUrl Order by ID Asc" '要查询数据库的SQL语句。
Wap.MdbDo '执行SQL语句。
For I=1 To Wap.Rs.RecordCount
Wap.WriteRow Wap.A("确定",Wap.Rs("SiteUrl"),Wap.Rs("SiteName"))
Wap.Rs.MoveNext
Next
Wap.WriteRow "++++++++++++++++++"
'以下为返回链接等信息。
Wap.WriteRow Wap.A("访问","http://wap.bicyle.org","被爱可以")
Wap.WriteRow Wap.DoPrev("prev", "后退", "ToBack", "false")
Wap.PageFooter
Set Wap=Nothing
%>
接着通过IIS执行并在MyIE2浏览器中浏览,效果如图3所示。
图3
在WapDisplayer中浏览的效果如图4所示。
图4
使用QuickWAP V1.5编写WAP网页程序,不仅可以在手机中浏览、还可以在IE浏览器中浏览。同时,它简化了ASP连接数据库,让您开发ASP+WML更加迅速,最后程序通过释放实例化对象,清空连接对象、记录集等。
QuickWAP V1.5不仅支持动态WAP程序调用器中的模块,也支持动态WEB程序调用其中的模块,希望QuickWAP能够给您的开发带来方便。