📄 chkpwd.asp
字号:
<!-- #include file="Conndb.asp" -->
<%
'Session("UserName") = "srvMan"
'Session("UserPwd") = "111111"
'Session("Passed") = True
'如果尚未定义Passed对象，则将其定义为False，表示没有通过身份认证
If IsEmpty(Session("Passed")) Then
Session("Passed") = False
End If
'如果UserName是空，则转向login.htm
If Session("Passed")=False Then
'读取从表单传递过来的身份数据
UserName = Request.Form("UserName")
UserPwd = Request.Form("UserPwd")
If UserName = "" Then
Errmsg = "请输入用户名和密码"
Else
'============从表Users中读取用户数据==============
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
'设置Connection对象的ConnectionString
'设置rs的ActiveConnection属性，绑定到连接
Set rs.ActiveConnection = Conn
'设置游标类型
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM Users WHERE UserName='" & Trim(UserName) & "'"
'=============身份验证===========================
If rs.EOF Then
Errmsg = "用户不存在"
Else
If UserPwd <> rs.Fields("UserPwd") Then
Errmsg = "密码不正确"
Else '登录成功
Errmsg = ""
Session("Passed") = True
Session("UserName") = rs.Fields("UserName")
Session("UserPwd") = rs.Fields("UserPwd")
' Response.Write("登录成功，请进入<a href=index.asp>首页</a>")
End If
End If
End If
End If
If Not Session("Passed") Then
%>
<HTML>
<HEAD><TITLE>请输入用户名和密码</TITLE><link rel="stylesheet" href="style.css">
</HEAD>
<BODY>
<script Language="JavaScript">
function ChkFields() {
if (document.MyForm.UserName.value=='') {
window.alert ("请输入用户名！")
return false
}
return true
}
</script>
<p align="center"><font color="#0000FF" size="5" face="隶书">身 份 验 证</font></p>
<p align="center"><font color="#800000"> <%=Errmsg%></font></p>
<form method="POST" action="<%=Request.ServerVariables("PATH_INFO")%>" name="MyForm" onsubmit ="return ChkFields()">
<p align="center">用户名： <input type="text" name="UserName" size="20"></p>
<p align="center">密 码： <input type="password" name="UserPwd" size="20"></p>
<p align="center"><input type="submit" value="提交" name="B1"> <input type="reset" value="全部重写" name="B2"></p>
</form>
<p align="center"> </p>
</BODY>
</HTML>
<%
Response.End
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -