QuickWAP V1.5Access数据库列表显示实战

dn001 2010-05-11 23:42:32

前提条件：服务器安装IIS、QuickWAP V1.5组件，WAP的MIME类型配置完毕。

1.我们共用到4个程序文件，1个Acess数据库和几个图片文件，参见图1，其中介绍了各文件的作用。

图1

2.配置IIS

　　首先启动Internet 服务管理器，建设WAP站点。
　　IP地址：127.0.0.129
　　虚拟目录：G:/测试

图2;

图3

图4;

3.在WAPDisplayer V1.5中浏览

图5

图6

图7;

;图8

4.同样也可以在IE浏览器中浏览

图9;

图10;

图11
;

图12

5.请确保Access数据库有读取权限。

　　#HaoXiao.asp为数据库文件，如果更改名称请同时更改WAP程序文件中的Wap.Mdb_Path="#HaoXiao.asp" ，当然也可以将其放在某个目录中，如Wap.Mdb_Path="../Data/#HaoXiao.asp"

其他信息参考QuickWAP官方网站：http://www.bicyle.org

附各文件源代码

WAP源码下载地址：http://www.bicyle.org/bikedown/tempdown/QuickWap_Access.rar

MdbList.asp

<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.Mdb_Path="#HaoXiao.asp" '用于设置Access数据库的路径。
Wap.Mdb_StrSql="Select Id,Title From HaoXiao order by ID Desc" '要查询数据库的SQL语句。
Wap.Mdb_EveryPageSize=10 '每页显示的记录条数。默认为10。
Wap.Mdb_FieldShow="Title" '要显示的记录的字段名称。
Wap.Mdb_FieldHeader="Id" '数据列表的前缀字段的名字
'Wap.Mdb_FieldFooter="Id" '数据列表的后缀字段的名字
Wap.Mdb_FieldId="Id" '数据库中的关键字段的名称。
Wap.Mdb_GoFileName="HaoXiaoShow.asp" '连接到页面的文件的名字。
Wap.DbIsShowImage=True '数据记录显示前面是否显示小图标。
Wap.Mdb_ErrorPapePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
Wap.MdbList
Wap.WriteRow "++++++++++++++++++"
'以下为返回链接等信息。
Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteRow Wap.DoPrev("prev", "后退", "ToBack", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

MdbListPages.asp

<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.Mdb_Path="#HaoXiao.asp" '用于设置Access数据库的路径。
Wap.Mdb_StrSql="Select Id,Title From HaoXiao order by ID Desc" '要查询数据库的SQL语句。
Wap.Mdb_EveryPageSize=10 '每页显示的记录条数。默认为10。
Wap.Mdb_FieldShow="Title" '要显示的记录的字段名称。
Wap.Mdb_FieldHeader="Id" '数据列表的前缀字段的名字
'Wap.Mdb_FieldFooter="Id" '数据列表的后缀字段的名字
Wap.Mdb_FieldId="Id" '数据库中的关键字段的名称。
Wap.Mdb_GoFileName="HaoXiaoShow.asp" '连接到页面的文件的名字。
Wap.DbIsShowImage=True '数据记录显示前面是否显示小图标。
Wap.Mdb_ErrorPapePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
Wap.MdbListPages "top"
Wap.WriteRow "++++++++++++++++++"
'以下为返回链接等信息。
Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteRow Wap.DoPrev("prev", "后退", "ToBack", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

MdbListPagesTwo.asp

<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.Mdb_Path="#HaoXiao.asp" '用于设置Access数据库的路径。
Wap.Mdb_StrSql="Select Id,Title From HaoXiao order by ID Desc" '要查询数据库的SQL语句。
Wap.Mdb_EveryPageSize=10 '每页显示的记录条数。默认为10。
Wap.Mdb_FieldShow="Title" '要显示的记录的字段名称。
Wap.Mdb_FieldHeader="Id" '数据列表的前缀字段的名字
'Wap.Mdb_FieldFooter="Id" '数据列表的后缀字段的名字
Wap.Mdb_FieldId="Id" '数据库中的关键字段的名称。
Wap.Mdb_GoFileName="HaoXiaoShow.asp" '连接到页面的文件的名字。
Wap.DbIsShowImage=True '数据记录显示前面是否显示小图标。
Wap.Mdb_ErrorPapePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
Wap.MdbListPagestwo "bottom"
Wap.WriteRow "++++++++++++++++++"
'以下为返回链接等信息。
Wap.WriteRow Wap.ImgA("","Index.asp","返回上级")
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteRow Wap.DoPrev("prev", "后退", "ToBack", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

HaoXiaoShow.asp

<%
Set Wap=Server.CreateObject("QuickWap.WapNetSdk")
Wap.CardTitle="中国被爱可以在线"
Wap.PageHeader
'以下为文件正文。
Wap.WriteRow "++++++++++++++++++"
Wap.Mdb_Path="#HaoXiao.asp" '用于设置Access数据库的路径。
Dim ListKey : ListKey=Request.QueryString("Id")
If ListKey="" Then ListKey= Session("FindId")
'单独执行此文件假设ID=5
Wap.Mdb_StrSql="Select * From HaoXiao Where Id =" & ListKey
ShowContent=Wap.MdbShow("Content")
ShowContent="标题:" & Wap.MdbShow("Title") & "<br/>" & "日期:" & Wap.MdbShow("DateTime") & "<br/>-----<br/>" & Wap.DelSpecialMark(ShowContent)
Wap.MorePage(ShowContent)
Wap.WriteRow "++++++++++++++++++"
'以下为返回链接等信息。
Wap.WriteRow Wap.A("","MdbList.asp?Page=" & Session("MyPage"),"返回MdbList")
Wap.WriteRow Wap.A("","MdbListPages.asp?Page=" & Session("MyPage"),"返回MdbListPages")
Wap.WriteRow Wap.A("","MdbListPagesTwo.asp?Page=" & Session("MyPage"),"返回MdbListPagesTwo.asp")
Wap.WriteRow Wap.ImgA("",Wap.WapPath,"返回首页")
Wap.WriteRow Wap.DoPrev("prev", "后退", "ToBack", "false")
Wap.WriteRow Wap.DoGo(Wap.WapPath, "option", "回首页")
Wap.PageFooter
Set Wap=Nothing
%>

QuickWAP V1.5Access数据库列表显示实战

QuickWAP 2005 简单概览

QuickWAP工作原理简介

教你用QuickWAP组件做WAP辅助工具

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