以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 移动开发中图文组合列表 如何遍历生成对应的页面内容? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=168763) |
-- 作者:cnsjroom -- 发布时间:2021/5/22 18:17:00 -- 移动开发中图文组合列表 如何遍历生成对应的页面内容? 移动开发中图文组合列表 如何遍历生成对应的页面内容? 当前代码运行效果如下: 当前代码如下: Dim e As RequestEventArgs = args(0) Dim wb As New WeUI Dim port As String Dim ip As String Dim neirong As String Dim mulu As String With wb.AddPanelGroup("","pg1","图文组合列表") For Each dr As DataRow In DataTables("基础资料表").DataRows For Each dc As DataCol In DataTables("基础资料表").DataCols Output.Show(dc.Name) If dc.name="端口" port=dr("端口") End If If dc.name="ip" ip=dr("ip") End If If dc.name="服务名称" neirong=dr("服务名称") End If If dc.name="项目目录" mulu=dr("项目目录") End If Next With .Add("pn2",neirong,shijian,"./images/search.png") \'带子链接 .AddFoot("地址") .AddFoot("端口") .AddFoot("点击详情") End With Next End With e.WriteString(wb.Build) \'生成网页 怎么实现红色部分地址紧跟显示:laiyuan内容 端口紧跟显示:biaoti内容 点击详情后进入 wenzhang.htm 实现上述内容正常显示后,如果要点击进入详情页怎么设计呢?以下页面怎么赋值并且自动批量生成对应的多个页面? wenzhang.htm 代码如下: Dim wb As New WeUI With wb.AddArticle("","ar1") .AddTitle("h1","大标题") ‘显示服务名称’ .AddContent("……") ‘显示项目目录’ .AddContent("……") ‘显示时间’ .AddContent("……") ‘显示来源’ End With e.WriteString(wb.Build) \'生成网页 [此贴子已经被作者于2021/5/22 18:17:22编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/5/23 20:29:00 -- 参考:http://www.foxtable.com/mobilehelp/topics/0078.htm .AddFoot("点击详情","wenzhang.htm") |
-- 作者:cnsjroom -- 发布时间:2021/5/23 22:56:00 -- 回复:(有点蓝)参考:http://www.foxtable.com/mobi... With .Add("pn2",neirong,shijian,"./images/search.png") \'带子链接 .AddFoot("地址" & dr("ip") & " 端口" & dr("端口")) .AddFoot("点击详情","wenzhang.htm") End With 怎么实现当点 点击详情 的时候 执行下面的语句 e.AppendCookie(neirong),然后同步打开wenzhang.htm 便于在wengzhang.htm里面好利用e.Cookies(“neirong”)进行对应的数据筛选呢? 如果这个方法不是最佳方法,那老师有没有更好的方法 我学习一下!
|
-- 作者:有点蓝 -- 发布时间:2021/5/23 23:11:00 -- wb.AppendCookie("neirong",neirong) With .Add("pn2",neirong,shijian,"./images/search.png") \'带子链接 .AddFoot("地址" & dr("ip") & " 端口" & dr("端口")) .AddFoot("点击详情","wenzhang.htm") End With |
-- 作者:cnsjroom -- 发布时间:2021/5/24 0:03:00 -- 回复:(有点蓝)wb.AppendCookie("neirong",neirong)... 经过测试 确实可以传值了 但是却不是根据所有页面中的neirong来传值 结果永远只有最后一个neirong的值 有没有办法修正一下呢? 就是在点击详情 按钮的时候 才进行赋值neirong 并传递到wenzhang.htm中去 点击不同的 点击详情 按钮 就打开对应的neirong的wenzhang页面 当前test页面代码: Dim e As RequestEventArgs = args(0) Dim wb As New WeUI Dim biaoti As String Dim laiyuan As String Dim neirong As String Dim shijian As String Dim i As Integer With wb.AddPanelGroup("","pg1","图文组合列表") For Each dr As DataRow In DataTables("基础资料表").DataRows For Each dc As DataCol In DataTables("基础资料表").DataCols Output.Show(dc.Name) If dc.name="端口" biaoti=dr("端口") Output.Show(biaoti) End If If dc.name="ip" laiyuan=dr("ip") Output.Show(laiyuan) End If If dc.name="服务名称" neirong=dr("服务名称") Output.Show(neirong) End If If dc.name="项目目录" shijian=dr("项目目录") Output.Show(shijian) End If Next wb.AppendCookie("neirong",neirong) With .Add("pn2",neirong,shijian,"./images/search.png") \'带子链接 .AddFoot("地址" & dr("ip") & " 端口" & dr("端口")) .AddFoot("点击详情","wenzhang.htm") End With Next End With e.WriteString(wb.Build) \'生成网页 wenzhang页面代码: Dim e As RequestEventArgs = args(0) Dim wb As New WeUI Dim dr As DataRow = DataTables("基础资料表").Find("服务名称= \'" & e.Cookies("neirong") & "\'") With wb.AddArticle("","ar1") .AddTitle("h1",dr("服务名称")) \'显示服务名称\' .AddContent(dr("项目目录")) \'显示项目目录\' .AddContent(dr("端口")) \'显示时间\' .AddContent(dr("ip")) \'显示来源\' End With e.WriteString(wb.Build) \'生成网页 [此贴子已经被作者于2021/5/24 0:07:10编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/5/24 8:53:00 -- 使用get方式传值把 With .Add("pn2",neirong,shijian,"./images/search.png") \'带子链接 .AddFoot("地址" & dr("ip") & " 端口" & dr("端口")) .AddFoot("点击详情","wenzhang.htm?neirong=" & neirong) End With |
-- 作者:cnsjroom -- 发布时间:2021/5/24 12:23:00 -- 回复:(有点蓝)使用get方式传值把With .Add("pn2",n... 在老师指导下 当前可以显示:http://10.101.13.51/wenzhang.htm?neirong=政工综合 那么wenzhang页面代码:如何做变通呢? Dim e As RequestEventArgs = args(0) Dim wb As New WeUI Dim dr As DataRow = DataTables("基础资料表").Find("服务名称= \'" & e.Cookies("neirong") & "\'") With wb.AddArticle("","ar1") .AddTitle("h1",dr("服务名称")) \'显示服务名称\' .AddContent(dr("项目目录")) \'显示项目目录\' .AddContent(dr("端口")) \'显示时间\' .AddContent(dr("ip")) \'显示来源\' End With e.WriteString(wb.Build) \'生成网页 |
-- 作者:有点蓝 -- 发布时间:2021/5/24 13:47:00 -- http://www.foxtable.com/mobilehelp/topics/0113.htm |
-- 作者:cnsjroom -- 发布时间:2021/5/24 17:21:00 -- 回复:(有点蓝)http://www.foxtable.com/mobilehelp... 老师在你的指导下 传输值的问题解决了 AddTabBar有没有办法固定在最顶部或者最底部,并保持固定不动,不管页面怎么往上或者往下滑动都始终显示。 Dim e As RequestEventArgs = args(0) Dim wb As New WeUI wb.AddForm("","form1","wenzhang.htm") With wb.AddTabBar("form1", "tb1", 1) .AddPage("page1","侧栏1","./images/cell.png") .AddPage("page2","导航","./images/tab.png") .AddPage("page3","详情","./images/tab.png") .AddPage("page4","宫格","./images/tab.png") End With For Each key As String In e.GetValues.Keys Dim dr As DataRow = DataTables("基础资料表").Find("服务名称= \'" & e.GetValues(key) & "\'") With wb.AddArticle("form1","ar1") .AddImage("./images/2.jpg") .AddTitle("h1",dr("服务名称")) \'显示服务名称\' .AddContent(dr("项目目录")) \'显示项目目录\' .AddContent(dr("端口")) \'显示时间\' .AddContent(dr("ip")) \'显示来源\' End With next With wb.AddTabBar("form1", "tb2", 0) .AddPage("page1","侧栏0","./images/cell.png") .AddPage("page2","导航","./images/tab.png") .AddPage("page3","详情","./images/tab.png") .AddPage("page4","宫格","./images/tab.png") End With e.WriteString(wb.Build) \'生成网页
|
-- 作者:有点蓝 -- 发布时间:2021/5/24 20:05:00 -- 参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127824&skin=0 另外必须独立出来,不能添加到form里面 |