logincheck.asp

我们老师写的一个学生成绩管理系统

<!--#INCLUDE FILE="inc/conn_open.asp"-->
<% 
	'获得username和password，trim（）函数去掉左右两边的空格
	 username=trim(Request("username"))
	 password=trim(Request("password"))
	 '判断用户名是否为空
     if username=""  then
		%>
		 <Script Language ="JavaScript">
				alert("用户名不能为空，请填写！！！");
				history.back();
			</Script>
		<%
		response.end
	end  if 
	 '判断密码是否为空
	if password="" then
		%>
		 <Script Language ="JavaScript">
				alert("密码不能为空，请填写！！！");
				history.back();
			</Script>
		<%
		response.end
	end  if 
	'用户名和密码都不为空时查询用户表yonghu
	Set  rs1  =  Server.CreateObject("ADODB.Recordset")    
	sql1="select * from yonghu where username='"&username&"'"
	rs1.open  sql1,conn,3,3
	if rs1.eof then
		%>
		 <Script Language ="JavaScript">
				alert("用户名不存在，请联系管理员！！！");
				history.back();
			</Script>
		<%
		response.end
	end if
	'若用户存在判断密码是否正确，正确则设置session值			
	if password=rs1("password") then

			'赋值用户名称等session
			session("username")=rs1("username")
			session("truename")=rs1("truename")
			session("dept")=rs1("dept")
			session("class")=rs1("class")
			session("sort")=rs1("sort")
			session.timeout=60
			session("flag")=1
			'判断用户角色，转到相应页面
			if session("sort")="管理员" then
				response.Redirect("./admin/admin_input.asp")
			elseif session("sort")="教师" then
				response.Redirect("./score/score_list.asp")
			else
				response.Redirect("./score/score_stu_list.asp")
			end if
	else
		'密码错误则重新输入
		 %>
			 <Script Language ="JavaScript">
					alert("密码错误，请重新输入！！！");
					history.back();
				</Script>
	<% 
	end if
	rs1.close
	set rs1=nothing
  %>
<!--#INCLUDE FILE="inc/conn_close.asp"-->