Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim username As String =e.Cookies("isj") '定义,用户名(手机号)(从httprequest事件获取手机号,以备完善信息)
Dim dr As DataRow '定义会员所在的行
If e.Cookies.ContainsKey("isj") '如果存在名为isj的Cookie,即已经登录
dr = DataTables("会员资料").sqlFind("手机 = '" & username & "'") '说明:查找手机号,所在的行
End If
Dim nicheng As String '定义,昵称
If dr IsNot Nothing Then
nicheng = dr("昵称")
elseIf dr IsNot Nothing Then
’如果执行了这里，下面的页面代码终止执行，下面粉色这样行吗？
With wb.AddDialog("bt3","dlg1", "您可能掉线了!没有找到您的信息!","您可能掉线了!没有找到您的信息!")
.AddButton("btn1","确定")
End With
wb.insertHTML("<script>show('dlg1')</script>")
e.WriteString(wb.Build) '生成网页
Return "" '必须的
End If
wb.AddForm("","form1","per_jichu_fz.htm")
With wb.AddInputGroup("form1","ipg1","基础资料")
.AddHidenValue("huiycz",1) '会员操作(提交微信或支付宝)
With .AddInput("wdbh","我的编号","text")
.Value = wodbh
.Readonly = True
End With
end with
******更多代码
[此贴子已经被作者于2017/7/27 16:03:26编辑过]
加好友 
发短信
Post By：2017/7/27 14:42:00 [只看该作者]
