Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim UserId As String
UserId = e.Cookies("userid")
Dim xingming As String
Dim sfz As String
If e.PostValues.ContainsKey("xingming") AndAlso e.PostValues.ContainsKey("sfz") Then
xingming = e.PostValues("xingming")
sfz = e.PostValues("sfz")
End If
If sfz > "" Then
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "SELECT * FROM {员工花名册} WHERE 身份证号 = ?"
cmd.Parameters.Add("@身份证号",sfz)
Dim dt As DataTable = cmd.ExecuteReader(True)
If dt.DataRows.Count > 0
Dim drc9 As DataRow = dt.DataRows(0)
If drc9("姓名") = xingming AndAlso drc9.IsNull("企业微信号ID") Then
drc9("企业微信号ID") = userid
dt.Save
e.WriteString("<meta http-equiv='Refresh' c>") 这里1楼不全，自己补上
e.Handled = True
Return
ElseIf drc9.IsNull("企业微信号ID") = False Then
e.WriteString(drc9("姓名") & "的企业微信号已占用,请联系公司人力资源部进行核对!")
e.Handled = True
Return
End If
End If
End If
wb.AddPageTitle("","pageheader","薪酬管理平台",Vars("dwmc"))
If e.PostValues.ContainsKey("xingming") AndAlso e.PostValues.ContainsKey("sfz") Then
wb.AddTopTips("","toptip2","无授权信息,请与公司人力资源管理部门核对!").msec = 2000 '
End If
wb.AddForm("","form1","Remuneration3")
With wb.AddInputGroup("form1","ipg1")
.AddInput("xingming","姓名:","text")
.AddInput("sfz","身份证号:","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "实名认证", "submit")
End With
wb.AddToast("","t3", "初次使用,请进行实名认证",0).msec= 1000
e.WriteString(wb.Build) '生成网页
e.Handled = True
加好友 
发短信
Post By：2020/4/20 17:53:00 [只看该作者]
