login1.asp

实训的小作品 关于后台SQL知识的 简单制作！

<!--#include file="data/const.asp"-->
<%
id=Trim(Request.form("username"))
pwd=Trim(Request.form("password"))
sf=Trim(Request.form("sf"))
error=false

if not error then
   if sf="教师" then
      str="Select * From 教师登录信息表  Where 登录名= '"&id&"'"
      set rs=dbconn.Execute(str)
      if not rs.eof then
         if pwd=trim(rs("密码")) then	   
	    session("user")=rs("编号")
	    session("username")=rs("姓名")	   
	    session("userlevel")="教师"
	    session("xsh")=rs("系部编号")	  
	    response.redirect "index.asp"
         end if	
      end if  
      error=true
   end if
end if

if not error then
   if sf="学生" then
      str="Select * From 学生登录信息表  Where 学号= '" &id& "'"
      set rs=dbconn.Execute(str)
      if not rs.eof then
         if pwd=trim(rs("密码")) then	   
            session("user")=id
	    session("nj")=rs("年级")	   
	    session("xsh")=rs("院系编号")	   
	    session("zyh")=rs("专业编号")	   
	    session("username")=rs("姓名")	   
	    session("userlevel")="学生"	
            response.redirect "index.asp"
         end if	
      end if
      error=true
   end if	
end if
  
if not error then
   if sf="领导" then
      str="Select * From 管理员信息表  Where 用户身份='领导' and 登录名= '" &id&"'"
      set rs=dbconn.Execute(str)
      if not rs.eof then
         if pwd=trim(rs("密码")) then	   
            session("user")=id
	    session("username")=rs("姓名")	   
	    session("userlevel")="领导"						
	    response.redirect "index.asp"
         end if
      end if
      error=true  
   end if
end if
  
if not error then
   if sf="管理员" then
      str="Select * From 管理员信息表  Where 用户身份='管理员' and 登录名= '" &id&"'"
      set rs=dbconn.Execute(str)
      if not rs.eof then
         if pwd=trim(rs("密码")) then	   
            session("user")=id
	    session("username")=rs("姓名")	   
	    session("userlevel")="管理员"
	    response.redirect "index.asp"
         end if	
      end if  
      error=true
   end if
end if

  
if not error then
   if sf="班主任" then
      str="Select * From 管理员信息表  Where 用户身份='班主任' and 登录名= '" &id&"'"
      set rs=dbconn.Execute(str)
      if not rs.eof then
         if pwd=trim(rs("密码")) then	   
            session("user")=id
	    session("username")=rs("姓名")	   
	    session("userlevel")="班主任"
	    response.redirect "index.asp"
         end if	
      end if  
      error=true
   end if
end if
%>

<script language="vbscript">
   msgbox "您输入的用户名或者是密码不正确，或者是您的身份不对，请核实后重新登录!"	
   history.back
</script>