QuickWAP V1.5Access数据库列表显示实战
08-08 00:47:57浏览次数:447次栏目：移动WAP开发
标签：移动WAP开发教程,wap网站开发,wap开发教程,
QuickWAP V1.5Access数据库列表显示实战,
前提条件：服务器安装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 V1.5Access数据库列表显示实战》相关文章
