Dim Verified As Boolean
Dim dr1 As DataRow = DataTables("客户").SQLFind("openid ='" & Openid & "'") '根据openid找出对应的行
If OpenId > "" AndAlso dr1 IsNot Nothing AndAlso dr1("permit") = False Then'授权成功
' msgbox("openid>0", 64, "提示")
Verified = True
'这里可以做进一步的权限判断
sb.AppendLine("欢迎" & UserName & "光临！,用心服务好每一天。 <a href='default.htm'>刷新页面</a>")
'开始生成网页 '导航头
Dim wb As New WeUI
wb.title = " 111"
Select Case e.Path
Case "" , "sy.htm" '首页 '首页这样 Case "", "default.htm"
If dr1.IsNull("客户名") AndAlso dr1.IsNull("电话") AndAlso dr1.IsNull("客户住址_蓝牌地址") Then
e.WriteString("<meta http-equiv='Refresh' c>") '那么直接跳转到客户资料页面
Else
e.WriteString("<meta http-equiv='Refresh' c>") '那么直接跳转到首页页面
Return '必须的
End If
Case "kehu.htm" '客户资料
If e.PostValues.Count = 0 Then
wb.InsertHTML("<h3 align='center' style='margin-top:5px'>完善信息 乐享会员服务</h3>")
wb.AddForm("", "form1", "kehu.htm")
' If OpenId > "" Then
If dr1.IsNull("客户名") AndAlso dr1.IsNull("电话") AndAlso dr1.IsNull("客户住址_蓝牌地址") Then
With wb.AddInputGroup("form1", "ipg1", "用户资料")
' If e.GetValues.ContainsKey("tjr") Then
' ' .AddHiddenValue(e.GetValues("tjr"), "客户来源_KHID")
' dr1("客户来源_KHID") = e.GetValues("tjr")
' End If
.AddInput("客户名", "姓名", "Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("电话", "电话", "number")
.AddInput("客户住址_蓝牌地址", "地址", "Text")
.AddInput("身份证号码", "身份号码", "number")
.AddSelect("性别", "性别", "女|男")
.AddInput("邮箱", "邮箱", "Text").Placeholder = "选填，接收消费信息用"
End With
With wb.AddButtonGroup("form1", "btg2", True)
.Add("btn3", "提交基础资料", "submit")
End With
e.WriteString(wb.Build)
Else If dr1("客户名")IsNot Nothing AndAlso dr1("电话")IsNot Nothing AndAlso dr1("客户住址_蓝牌地址")IsNot Nothing Then
With wb.AddInputGroup("form1", "ipg1", "用户资料")
.AddInput("客户名", "姓名", "Text").value = dr1("客户名") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("电话", "电话", "number").value = dr1("电话")
.AddInput("客户住址_蓝牌地址", "地址", "Text").value = dr1("客户住址_蓝牌地址")
.AddInput("身份证号码", "身份号码", "number").value = dr1("身份证号码")
.AddInput("性别", "性别", "女|男").value = dr1("性别")
.AddInput("邮箱", "邮箱", "Text").value = dr1("邮箱")
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定修改", "submit").Kind = 1
.Add("btn2", "返回主页", "button", "default.htm")
End With
e.WriteString(wb.Build)
End If
Else
Dim nms() As String = {"客户名", "性别", "电话", "客户住址_蓝牌地址"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("", "msgpage", "增加失败", nm & "不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1", "返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
Next
nms = New String() {"客户名", "电话", "客户住址_蓝牌地址", "身份证号码", "性别", "邮箱", "客户来源_KHID"} '重新定义了nms数组,增加了两列.
' Dim dr As DataRow = DataTables("客户").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr1(nm) = e.PostValues(nm)
End If
Next
'保存并生成增加成功提示页面
dr1.save()
e.AppendCookie("openid", OpenID)
With wb.AddMsgPage("", "msgpage", "增加成功", "用心服务好") '生成成功提示页
.AddButton("btn4", "修改", "kehu.htm").Kind = 1
.AddButton("btn5", "返回首页", "default.htm")
End With
e.WriteString(wb.Build)
End If
End Select '以下不是网页了---------------
e.WriteString(wb.Build) '生成网页
Else
sb.AppendLine("系统繁忙稍后访问本系统")
End If
Else
sb.AppendLine("你无权访问本系统")
End If
e.WriteString(sb.ToString)
加好友 
发短信
Post By：2024/6/17 21:07:00 [只看该作者]
手机显示