说明：
这个页面的网址是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编辑过]
加好友 
发短信
Post By：2017/7/16 9:57:00 [显示全部帖子]
