Dim sb As New StringBuilder
Dim Verified As Boolean
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
'如果在登录页面输入了用户名和密码 后单击确定按钮
If e.Path = "logon.htm" AndAlso e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
UserName = e.PostValues("username")
Password = e.PostValues("password")
End If
'----------------------------------------------------------------------------------------------
Dim dr As DataRow
dr = DataTables("Staff").Find("email ='" & UserName & "'") '在职员表中找到邮箱为输入邮箱的
'验证用户身份
If dr IsNot Nothing AndAlso Password = dr("password") Then
Verified = True
End If
'_____________________________________________________________________________
If Verified AndAlso e.Path = "logon.htm" Then '如果用户访问的是登录页,且身份验证成功
e.Appendcookie("username",UserName) '将用户名和密码写入cookie
e.Appendcookie("Password",Password)
e.WriteString("<meta http-equiv='Refresh' c>") '直接跳转到首页
Return '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面
e.WriteString("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
Return '必须的
End If
'_______________________________________________________________________________________
Select Case e.path
Case "logon.htm"
sb.AppendLine("<form action='logon.htm' enctype='multipart/form-data' method='post' id='form1' name='form1'>")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("Password") Then '判断是否是验证失败后的重新登录
sb.AppendLine("用户名或密码错误!</br></br>")
sb.AppendLine("户名: <input name='username' id='username' value='" & UserName & "''><br/><br/>")
sb.AppendLine("密码: <input type='password' name='password' id='password' value ='" & Password & "'><br/><br/>")
Else
sb.AppendLine("户名: <input name='username' id='username'><br/><br/>")
sb.AppendLine("密码: <input type='password' name='password' id='password'><br/><br/>")
End If
sb.AppendLine("<input type='submit' name='sumbit' id='sumbit' value='登录'>")
sb.AppendLine("<input type='reset' name='reset' id='reset' value='重置'>")
sb.AppendLine("</form>")
e.WriteString(sb.ToString)
Case "exit.htm"
e.Appendcookie("username", "") '清除cookie中原来的用户名和密码
e.Appendcookie("Password", "")
e.WriteString("<meta http-equiv='refresh' c>") '跳转到登录页
Case "", "default.htm"
sb.AppendLine("这是首页<br/><br/>")
sb.AppendLine("<a href='order.htm'>订购产品<a><br/>")
sb.AppendLine("<a href='product.htm'>产品列表<a><br/>")
sb.AppendLine("<a href='exit.htm'>退出登录<a><br/>")
e.WriteString(sb.Tostring)
Case "order.htm"
e.WriteString("这是订购页")
Case "product.htm"
e.WriteString("这是产品页")
End Select
加好友 
发短信
Post By：2017/10/23 1:01:00 [只看该作者]
