?? chkpwd.asp
字號:
<%
'如果尚未定義Passed對象，則將其定義為False，表示沒有通過身份認(rèn)證
If IsEmpty(Session("Passed")) Then
Session("Passed") = False
End If
'如果UserName是空，則轉(zhuǎn)向login.htm
If Session("Passed")=False Then
'讀取從表單傳遞過來的身份數(shù)據(jù)
UserName = Request.Form("UserName")
UserPwd = Request.Form("UserPwd")
If UserName = "" Then
Errmsg = "請輸入用戶名和密碼"
Else
'=============連接數(shù)據(jù)庫===============
'Server對象的CreateObject方法建立Connection對象
Set Conn=Server.CreateObject("ADODB.Connection")
'Driver表示ODBC驅(qū)動程序
'Server表示數(shù)據(jù)庫服務(wù)器名稱
'UID表示用戶賬號
'PWD表示用戶密碼
'Database表示在數(shù)據(jù)庫服務(wù)器上的一個Database名稱
Conn.ConnectionString="driver={SQL Server};Server=(local);UID=sa;PWD=ustb;Database=News"
'連接數(shù)據(jù)庫
Conn.Open
'============從表Users中讀取用戶數(shù)據(jù)==============
'定義Recordset對象
Set rs=Server.CreateObject("ADODB.Recordset")
'設(shè)置Connection對象的ConnectionString
'設(shè)置rs的ActiveConnection屬性，綁定到連接
Set rs.ActiveConnection = Conn
'設(shè)置游標(biāo)類型
rs.CursorType = 3
'打開記錄集
rs.Open "SELECT * FROM Users WHERE UserName='" & Trim(UserName) & "'"
'=============身份驗(yàn)證===========================
If rs.EOF Then
Errmsg = "用戶不存在"
Else
If UserPwd <> rs.Fields("UserPwd") Then
Errmsg = "密碼不正確"
Else '登錄成功
Errmsg = ""
Session("Passed") = True
Session("UserName") = rs.Fields("UserName")
Session("UserId") = rs.Fields("UserId")
' Response.Write("登錄成功，請進(jìn)入<a href=index.asp>首頁</a>")
End If
End If
End If
End If
If Not Session("Passed") Then
%>
<HTML>
<HEAD><TITLE>請輸入用戶名和密碼</TITLE></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="隸書">身 份 驗(yàn) 證</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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -