电脑技术学习

QuickWAP V1.5利用ASP读取Access记录集一例

dn001
很多WAP开发人员除了掌握了QuickWAP V1.5提供的MdbList、MdbListPages等函数外,仍然感觉QuickWAP V1.5提供的数据处理功能有限,于是想自己控制SQL查询后记录集,现提供一简单实例,作为抛砖引玉。

  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能够给您的开发带来方便。