user.asp

大学的综合测评

<%
'函数名：userlogin  
'用户登录函数 
'调用方式 call userlogin()
'注意：登录的表单要包含以下参数，值也要从中选择
'rank--种类 0:普通用户  1：班级负责人 2：部门负责人  3：系统管理员
' username--用户名  userpwd---密码  
'checkcode--验证码 0：没有 1：有
'm5--是否加密 0：没有 1：有
'code--填写的验证码
sub userlogin()
   checkcode=CInt(request("checkcode")) 
   'checkcode=0
  if checkcode=1 then
      code1=Session("CheckCode")
	  code2=Request("code")
	  'code1=Request("code")
	  if not code1=code2 then
	      response.Write("<script language='javascript'>alert('验证码错误!');location=('login.asp');</script>")
	   else
	   call sql7666()
       end if
  elseif checkcode=0 then
       call sql7666()
  else
     response.Write("<script language='javascript'>alert('非法调用(code)!');location=('login.asp');</script>")
  end if
 end sub 
  
  
  
 sub  sql7666()
  rank=CInt(request("rank"))
  username=safeChar(request("username"))
  m5=CInt(request("m5"))
  if m5=0 then 
     userpwd=safeChar(request("userpwd"))
  else
     userpwd=md5(safeChar(request("userpwd")),32)
  end if
   'rank=2
   'username="admin"
   'userpwd="admin"
   if rank=0 then  '普通用户
	   set rs=server.createobject("adodb.recordset")  
       sql="select user_no,user_name,user_pwd,class_id,dept_id from pc_user where user_no='"&username&"' and user_pwd='"&userpwd&"'"
       rs.open sql,dbconn,3,2
       if not rs.eof  then 
	      if rs(0)=username and rs(2)=userpwd then
	      
	    Response.Cookies("zcas").Expires=Date+365
		Response.Cookies("zcas")("user_no")=rs(0)
     	Response.Cookies("zcas")("user_name")=rs(1)
  		Response.Cookies("zcas")("class_id")=rs(3)
  		Response.Cookies("zcas")("dept_id")=rs(4)
		Response.Cookies("zcas")("rank")=0
		session("ok")="ok"
		response.redirect("index.asp")
		  
		  
	      else response.Write("<script language='javascript'>alert('用户名或密码错误(0)!');location=('login.asp');</script>")
	      end if
	   else response.Write("<script language='javascript'>alert('用户名或密码错误(0)!');location=('login.asp');</script>")
	   end if
	   set rs=nothing
	end if
	
	if rank=1 then  '班级负责人
	   set rs=server.createobject("adodb.recordset")    
       sql="select * from class where class_mng='"&username&"' and class_mngpwd='"&userpwd&"'"
       rs.open sql,dbconn,3,2
       if not rs.eof   then
	      if rs(2)=username and rs(3)=userpwd then 
	      
		
		session("class_id")=rs(0)
		session("class_name")=rs(1)
		session("class_mng")=rs(2)
		session("truename")=rs(4)
  		session("power")=rs(5)
		session("limit")=rs(6)
		session("rank")=1
		response.redirect("index.asp")
		  
		  
	      else response.Write("<script language='javascript'>alert('用户名或密码错误(1)!');location=('login.asp');</script>")
	      end if
		else response.Write("<script language='javascript'>alert('用户名或密码错误(1)!');location=('login.asp');</script>")
	   end if
	   set rs=nothing
	end if
	
	if rank=2 then  '部门负责人
	   set rs=server.createobject("adodb.recordset")    
       sql="select * from dept where dept_mng='"&username&"' and dept_mngpwd='"&userpwd&"'"
       rs.open sql,dbconn,3,2
       if not rs.eof   then 
	      if rs(2)=username and rs(3)=userpwd then
		  
		    
	    session("dept_id")=rs(0)
     	session("dept_name")=rs(1)
  		session("dept_mng")=rs(2)
  		session("truename")=rs(4)
		session("power")=rs(5)
		session("rank")=2
		response.redirect("index.asp")
		  
		 
		 
	      else response.Write("<script language='javascript'>alert('用户名或密码错误(2)!');location=('login.asp');</script>")
	      end if
	   else response.Write("<script language='javascript'>alert('用户名或密码错误(2)!');location=('login.asp');</script>")
	   end if
	   set rs=nothing
	
	 end if
	
	 if rank=3 then  '系统管理员
	   set rs=server.createobject("adodb.recordset")    
       sql="select * from admin where admin='"&username&"' and adminpwd='"&userpwd&"'"
       rs.open sql,dbconn,3,2
       if not rs.eof  then 
	      if rs(1)=username and rs(2)=userpwd then
		  
		  
		session("id")=rs(0)
		session("admin")=rs(1)
   		session("truename")=rs(3)
		session("rank")=4
		response.redirect("index.asp")
		  
		  
	      else response.Write("<script language='javascript'>alert('用户名或密码错误(3)!');location=('login.asp');</script>")
	      end if
	   else response.Write("<script language='javascript'>alert('用户名或密码错误(3)!');location=('login.asp');</script>")
	   end if
	   set rs=nothing
	 end if
	 
	 if  not rank=0  then
	 	if  not rank=1  then
			if  not rank=2  then
				if  not rank=3  then
	              response.Write("<script language='javascript'>alert('非法调用(rank)!');location=('login.asp');</script>")
				 end if
			end if
		end if
	 end if
  end sub
%>