QuickWAP1.5Access数据库列表显示实战 |
| 作者：Bicyle 来源：中国被爱可以在线 发布时间：2006-3-22 19:43:55 |
 减小字体
 增大字体
|
|
前提条件：服务器安装IIS、QuickWAP V1.5组件，WAP的MIME类型配置完毕。 1.我们共用到4个程序文件，1个Acess数据库和几个图片文件，参见图1，其中介绍了各文件的作用。
2.配置IIS 首先启动Internet 服务管理器，建设WAP站点。
3.在WAPDisplayer V1.5中浏览
4.同样也可以在IE浏览器中浏览
http://www.bicyle.org
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_Access.rar (35 K) |
| [] [返回上一页] [打 印] |
|
文章评论 |
