Dim wb As New WeUI '
wb.InsertHTML("<hr>")
wb.InsertHTML("<hr>")
If e.Cookies.ContainsKey("username") And e.cookies.ContainsValue("passwored")
Dim dr As DataRow = DataTables("用户").sqlfind("[身份证号]='" & e.Cookies("username") & "' and password= '" & e.Cookies("username") & "'")
If dr IsNot Nothing
wb.InsertHTML("<meta http-equiv='Refresh' content='0; url=xtsy.htm'>")'直接跳转到首页
End If
Else
If e.PostValues.ContainsKey("username") And e.PostValues.ContainsKey("password") Then '判断是否是验证失败后的重新登录
wb.AddTopTips("","toptip1","用户名密码错误或已停用!").msec = 3000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
If e.PostValues.Count=0
wb.AddPageTitle("","pageheader","内江市教务系统","专做实用,更专注适用")
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
Dim In1= .AddInput("username","户名:","text")
In1.placeholder ="身份证号"
In1.value=e.Cookies("username")
.AddInput("password","密码:","password").Placeholder="密码"
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "登录", "submit").kind=1
.Add("btn2", "注册", "", "zc.htm").kind=1
.Add("btn3", "APP安装","","http://47.92.95.136:8080/教务系统.apk").kind=1
End With
wb.InsertHTML("form1","<div style='width:100%;height:100px;vertical-align: middle;text-align: center;margin-top:20px;'><img style='width:100px;height:100%' src='./images/ewm.png'></img><img style='width:100px;height:100%;' src='./images/tel.png' ></img></div>")
wb.InsertHTML("form1","<p style='font-size:20px;color:red;margin:30px 10px 10px;'>温馨提示:</p>")
wb.InsertHTML("form1","<p> 1.首次手机使用请点APP安装.</p>")
wb.InsertHTML("form1","<p> 2.已有电脑端帐号请以电脑端身份信息为帐号登录.</p>")
wb.InsertHTML("form1","<p> 3.新用户注册帐号务必以自己真实身份证号为帐号.</p>")
End If
e.WriteString(wb.Build)
End If
e.Handled =True
加好友 
发短信
Post By：2020/2/7 9:36:00 [显示全部帖子]
