Dim e As RequestEventArgs = args(0) '验证页面(注册第2页)
Dim wb As New weui
Dim huiybh As String = e.PostValues("hybh") '定义,会员编号
Dim ibianh As String = e.PostValues("ibianh") '定义,员工编号
Dim igl As DataRow '定义,查找会员(客服等官方人员)管理的行
If huiybh <> "" AndAlso ibianh <> "" Then
igl = DataTables("会员资料").SQLFind("会员编号 = '" & huiybh & "' and (客服_编号 = '" & ibianh & "' or 经理_编号 = '" & ibianh & "' or 管理_编号 = '" & ibianh & "' )")
Else
e.WriteString("数据传递错误,你可能断网了!")
Return ""
End If
If igl IsNot Nothing Then
msgbox（1）’执行了
wb.InsertHTML("<meta http-equiv='Re-fresh' con-tent='0; ur-l=/guanli_soushy.htm'>") '跳转页面
无法跳转页面
guanli_soushy.htm，可以正常进入
Else
e.WriteString("没有找到会员!")
Return ""
End If
e.WriteString(wb.Build) '生成网页
[此贴子已经被作者于2017/7/24 20:01:25编辑过]
加好友 
发短信
Post By：2017/7/24 19:57:00 [只看该作者]
