- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动页面生成问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103747)
-- 发布时间：2017/7/16 9:57:00
-- 移动页面生成问题
说明：
这个页面的网址是guanli_huiyxq.htm，ajax不刷新当前页面的情况下提交表单数据，提交到guanli_huiyxq_fz.htm，根据提交的审核信息，对应的数据、图片，但是图与审核信息，不靠在一起，还请看看
Dim e As RequestEventArgs = args(0) \'详情页面
Dim wb As New weui
wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
With wb.AddTabBar("", "tb1",1) \'使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","首页","./images/a.png","/index.htm")
.AddButton("bt2","服务","./images/b.png","/myservice.htm")
.Addpage("bt3","当前","./images/c.png")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
\'.Attribute = "style=\'height:55px\'"
End With
Dim ishouj As String = e.cookies("isj") \'会员手机
Dim idengj As String = e.cookies("idj") \'会员等级
Dim ixingb As String = e.cookies("ixb") \'会员性别
Dim ibianh As String = e.cookies("ibh") \'会员性别
Dim huiybg As String \'定义,会员变更,用于查看会员是男生客服|女生客服|男生经理|女生经理|男生协管|女生协管|admin
Dim idr As DataRow \'定义,查找会员(客服等官方人员)所在的行
Dim igl As DataRow \'定义,查找会员(客服等官方人员)管理的行
If ibianh <> "" Then
idr = DataTables("会员资料").SQLFind("会员编号 = \'" & ibianh & "\'")
If idr IsNot Nothing Then
huiybg = idr("会员变更")
If huiybg <> "" AndAlso huiybg <> "任务完成" Then \'即当会员是女生客服|男生客服时,查找一行急务管理行
igl = DataTables("会员资料").SQLFind("男女生客服_编号 = \'" & ibianh & "\' and (展示照审核 = \'需要审核\' or 生活照审核 = \'需要审核\')")
End If
End If
End If
Dim zhansz As String \'定义,展示照
Dim txb As String \'定义,ta性别
If igl IsNot Nothing Then
zhansz = igl("展示照")
txb = igl("性别")
Else
msgbox("没有管理行!")
End If
\'-------以下代码有问题--------------------------------------------
wb.AddForm("bt3","form1","guanli_huiyxq_fz.htm")
With wb.AddInputGroup("bt3","ipg1","展示照审核")
With wb.AddArticle("form1","ar1")
.AddImage("./zsz/d/" & zhansz)
.Attribute = "style=\'padding:0.5em;\'"
End With
.AddSelect("zhanszxz","旋转照片","|正转90|反转90|正转180|反转180") ’这2行没有跟着照片
.AddSelect("zhanszsh","照片审核","|审核通过|删除处理")
End With
With wb.AddInputGroup("bt3","ipg2","生活照审核")
For Each zhaop As String In igl.Lines("生活照")
With wb.AddArticle("form1","ar1" & zhaop)
\'msgbox(zhaop)
.AddImage("./shz/d/" & UrlEncode(zhaop))
End With
.AddSelect("shenghzxz" & zhaop,"旋转照片","|正转90|反转90|正转180|反转180") ’这2行没有跟着照片（这里有循环的）
.AddSelect("shenghzsh" & zhaop,"照片审核","|审核通过|删除处理")
Next
End With
With wb.AddInputGroup("bt3","ipg3","身份证审核")
With wb.AddArticle("form1","ar2")
.AddImage("./zsz/d/" & zhansz)
.Attribute = "style=\'padding:0.5em;\'"
End With
.AddSelect("shenfzxz","旋转照片","|正转90|反转90|正转180|反转180") ’这2行没有跟着照片
.AddSelect("shenfzsh","照片审核","|审核通过|删除处理")
End With
With wb.AddInputGroup("bt3","ipg4","资料审核")
With .AddInput("jcxx","有关于TA","text")
.value = txb
End With
.AddTextArea("bz",5).Placeholder = "请输入200字以内的备注"
End With
With wb.AddInputGroup("bt3","ipg5","更多资料")
With .AddInput("bianh","TA的编号","text")
\'.Value = bianh
\'.Readonly = True
End With
End With
With wb.AddButtonGroup("bt3","btg2",False)
.Add("btn1s1", "确定", "button").Attri-bute= "on-click=\'va-lidit_d()\'"
End With
wb.AppendHTML("<script src=\'./lib/ajaxform_d.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build) \'在客户端,生成网页
如下图：
此主题相关图片如下：qq图片2017071610052666.png
[此贴子已经被作者于2017/7/16 10:24:20编辑过]
-- 发布时间：2017/7/16 10:35:00
--
参考
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103242&skin=0
-- 发布时间：2017/7/16 11:59:00
--
提供的例子好像跟我的不太一样，楼上用到了AddUploader，1楼代码没有使用AddUploader
1楼部分代码：
\'-------以下代码有问题--------------------------------------------
wb.AddForm("bt3","form1","guanli_huiyxq_fz.htm")
With wb.AddInputGroup("bt3","ipg1","展示照审核")
With wb.AddArticle("form1","ar1")
.AddImage("./zsz/d/" & zhansz)
.Attribute = "style=\'padding:0.5em;\'"
End With
.AddSelect("zhanszxz","旋转照片","|正转90|反转90|正转180|反转180") ’1.怎么让蓝色行照片显示后，接着显示粉色行？
.AddSelect("zhanszsh","照片审核","|审核通过|删除处理")
End With
With wb.AddInputGroup("bt3","ipg2","生活照审核")
For Each zhaop As String In igl.Lines("生活照")
With wb.AddArticle("form1","ar1" & zhaop)
.AddImage("./shz/d/" & UrlEncode(zhaop))
End With
.AddSelect("shenghzxz" & zhaop,"旋转照片","|正转90|反转90|正转180|反转180") ’2.同上，且需要循环显示
.AddSelect("shenghzsh" & zhaop,"照片审核","|审核通过|删除处理")
Next
End With
With wb.AddInputGroup("bt3","ipg3","身份证审核")
With wb.AddArticle("form1","ar2")
.AddImage("./zsz/d/" & zhansz)
.Attribute = "style=\'padding:0.5em;\'"
End With
.AddSelect("shenfzxz","旋转照片","|正转90|反转90|正转180|反转180") ’3.同1（当前代码效果是，所有蓝色图片显示完了，接着显示粉色代码的，见1楼图）
.AddSelect("shenfzsh","照片审核","|审核通过|删除处理")
End With
[此贴子已经被作者于2017/7/16 12:01:54编辑过]
-- 发布时间：2017/7/16 12:37:00
--
With wb.AddArticle("form1","ar1")
.AddImage("./zsz/d/" & zhansz)
.Attribute = "style=\'padding:0.5em;\'"
End With
With wb.AddInputGroup("form1","ipg1","展示照审核")
.AddSelect("zhanszxz","旋转照片","|正转90|反转90|正转180|反转180") ’1.怎么让蓝色行照片显示后，接着显示粉色行？
.AddSelect("zhanszsh","照片审核","|审核通过|删除处理")
End With
[此贴子已经被作者于2017/7/16 12:37:12编辑过]
-- 发布时间：2017/7/16 17:37:00
--
使用楼上方法，得到了想要的效果，太感谢了