Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发中图文组合列表 如何遍历生成对应的页面内容？


  共有2823人关注过本帖树形打印复制链接

主题：移动开发中图文组合列表 如何遍历生成对应的页面内容？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		移动开发中图文组合列表 如何遍历生成对应的页面内容？  发帖心情 Post By：2021/5/22 18:17:00 [只看该作者]

移动开发中图文组合列表 如何遍历生成对应的页面内容？
当前代码运行效果如下：

图片点击可在新窗口打开查看此主题相关图片如下：捕获2.png
图片点击可在新窗口打开查看

当前代码如下：
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/23 20:29:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/topics/0078.htm

.AddFoot("地址" & dr("ip") & " 端口" & dr("端口"))
.AddFoot("点击详情","wenzhang.htm")
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）参考：http://www.foxtable.com/mobi...  发帖心情 Post By：2021/5/23 22:56:00 [只看该作者]

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”)进行对应的数据筛选呢？

如果这个方法不是最佳方法，那老师有没有更好的方法  我学习一下！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）wb.AppendCookie("neirong",neirong)...  发帖心情 Post By：2021/5/24 0:03:00 [只看该作者]

经过测试   确实可以传值了  但是却不是根据所有页面中的neirong来传值   结果永远只有最后一个neirong的值


图片点击可在新窗口打开查看此主题相关图片如下：11.gif
图片点击可在新窗口打开查看

有没有办法修正一下呢？
就是在点击详情 按钮的时候  才进行赋值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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）使用get方式传值把With .Add("pn2",n...  发帖心情 Post By：2021/5/24 12:23:00 [只看该作者]

在老师指导下 当前可以显示：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) '生成网页
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/24 13:47:00 [只看该作者]

http://www.foxtable.com/mobilehelp/topics/0113.htm

 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）http://www.foxtable.com/mobilehelp...  发帖心情 Post By：2021/5/24 17:21:00 [只看该作者]

老师在你的指导下  传输值的问题解决了   
 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) '生成网页
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/5/24 20:05:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127824&skin=0

另外必须独立出来，不能添加到form里面

With wb.AddTabBar("", "tb1", 1)

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10938 秒, 4 次数据查询