加好友 发短信
等级:四尾狐
帖子:825
积分:1650
威望:0
精华:0
注册:2021/7/30 8:48:00
|
Post By:2021/11/2 9:50:00 [只看该作者]
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 '验证用户身份 If UserName = "张三" AndAlso Password = "888" Then Verified = True ElseIf Username = "李四" AndAlso Password="999" 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>") '跳转到登录页
End Select老师我想问一下这句话是什么意思
|
|