check.asp
<%
dim user,pass
user=Request.Form(“username”) ‘从表单中获得名称为username界面对象的值
pass=Request.Form(“password”) ‘从表单中获得名称为password界面对象的值
If pass=”okpass” and user=”okuser” Then
Session(“passflg”)=1 ‘设置授权标志
Response.Redirect “course.asp” ‘跳转到course.asp页面
Else
Session(“passflg”)=0 ‘设置未授权标志
Response.write “密码错误!<br><a href=’checkuser.htm’>返回</a>”
End if
%>
course.asp
开始处放入以下代码:
<% If Session(“passflg”)=0 Then Response.Redirect “checkuser.htm” %>
‘检测用户是否被授权,如果已授权,则显示页面,如果未授权,则跳转到登录页面checkuser.htm
【实例指导】