guanli_huiyxq.htm页面代码：
******
wb.AddForm("bt3","form1","guanli_huiyxq_fz.htm")
With wb.AddInputGroup("form1","ipg0","任务提示")
With .AddInput("shrw","审核任务","text")
.value = zhanszshts & "." & shenghzshts & "." & xuelrzts & "." & shenfzrzts & "." & nicshts & "." & weixrzts
.Readonly = True
End With
With .AddInput("tsrw","提示任务","text")
.value = weibmts & "." & huiydjts & "." & shenfrzts & "." & hongbgnts
.Readonly = True
End With
End With
'展示照审核
With wb.AddArticle("form1","ar1")
.AddImage("./zsz/d/" & zhansz)
.Attribute = "style='padding:0.5em;'"
End With
If (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszsj > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszsj > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszsj <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszsj <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx员") Then '即展示照,需要审核
With wb.AddInputGroup("form1","ipg1","1.展示照审核")
.AddSelect("zhanszxz\" & zhansz,"旋转照片","|正转90|反转90|水平翻转|垂直翻转")
.AddSelect("zhanszsh\" & zhansz,"照片审核","|审核通过|删除处理")
1.当不选择上述2行选项时，msgbox(2)不显示，怎么回事？
End With
End If
******
guanli_huiyxq_fz.htm页面代码：
******
For Each key As String In e.PostValues.Keys
msgbox(key) ’shrw、tsrw，正常弹出。2.key值zhanszxz\" & zhansz与zhanszsh\" & zhansz没有弹出，怎么回事？
If key Like "zhanszsh\*" Then '处理展示照,审核通过或删除
msgbox(2)
If (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszshiji > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx客服" AndAlso zhanszshiji > jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszshiji <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx经理" AndAlso zhanszshiji <= jzshenhsj) OrElse (zhanszsh = "需要审核" AndAlso huiybg = "xx员") Then
msgbox(3)
zhanszcl = e.PostValues(key) '展示照处理
msgbox(4)
If zhanszcl = "" Then
msgbox(5)
e.WriteString("请选择展示照审核选项!")
Return ""
End If
End If
End If
Next
******
[此贴子已经被作者于2017/7/23 10:28:07编辑过]
加好友 
发短信
Post By：2017/7/23 10:25:00 [只看该作者]
