err.asp

ASP写的在线考试系统

<%
'程序名称:网上考试系统
'程序作者:韩波（bobby）
'OICQ：40274856   E-mail：[e-mail]
%>
<%
 StudentID=session("loginid")
 Name=session("loginname")
%>
<!-- #include file="connect.asp" -->
<%rs.Open "Select * From 成绩表 where StudentID='" &StudentID&"'", conn, 3,3%>
<%if not (StudentID=rs("StudentID") and Name=rs("Name")) then%>
<script language=vbscript>  
  		MsgBox "对不起，您还没有正确登录或是未操作的时间过长！"  
  		location.href = "login.htm"  
	  </script>
<%end if%>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>