<％

' 读取用户输入的账号和密码.

UserID = Request("UserID")

Password = Request("Password")

' 检查UserID及Password是否正确.

If UserID <>"hrmis" Or Password <>

"password" Then

Response.Write "噢,您的口令错误!请重新输入."

Response.End

End If

' 将Session 对象设置为通过验证状态 .

Session("Passed") = True

％>

----------------------------------------------------------------------------------------------------------------

' 进入应用程序后，首先进行验证：

<％

' 如果未通过验证，返回Login状态.

If Not Session("Passed") Then

Response.Redirect "Login.asp"

End If

％>

----------------------------------------------------------------------------------------------------------------

[1]