checkusr.asp

网络考试系统最终备份

<!--#include file="conn.inc"
'连接数据库
-->
<%
v_account=request("account")
pwd=request("pwd")
kind=request("kind")
'接收表单信息
sql="select * from  user_info where UserAccount='"&v_account&"' and UserPwd='"&pwd&"'"
set rs=conn.execute(sql)
if rs.eof then
'如果不存在对应的用户密码
  response.redirect "loginleftframe.asp?temp=error"
else
'如果用户密码检验正确
session("accountID")=request("account")
  v_userid=rs("UserID")
  v_UserRName =rs("UserRName")
  v_Class_ID=rs("Class_ID")
  v_Dep_ID=rs("Dep_ID")
  v_College_ID=rs("College_ID")
  v_Role_ID=rs("Role_ID")
  rs.close  
  set rs = nothing
end if
'根据班级ID获取班级名称
sqlClass = "select * from class_info where ClassID = "&v_Class_ID
set rs=conn.execute(sqlClass)
if not rs.eof then
v_classname=rs("ClassName")
else
v_classname = "xxxxx"
end if
rs.close
set rs = nothing

sqldep = "select * from department_info where DepID = "&v_Dep_ID
set rs=conn.execute(sqldep)
if not rs.eof then
v_DepName=rs("DepName")
else
v_DepName
end if
rs.close
set rs = nothing

sqlcollege = "select * from  college_info where CollegeID = "&v_College_ID
set rs=conn.execute(sqlcollege)
if not rs.eof then
v_CollegeName=rs("CollegeName")
end if
rs.close
set rs = nothing


sqlrole = "select * from  role_info where RoleID = "&v_Role_ID
set rs=conn.execute(sqlrole)
v_RoleName=rs("RoleName")
v_path = rs("RoleAddress")
rs.close
set rs = nothing



 Response.Cookies("accountid")= v_account
 Response.Cookies("userid")=v_userid
 Response.Cookies("UserRName")=v_UserRName
 Response.Cookies("pwd")=pwd
 Response.Cookies("CollegeName")=v_CollegeName
 Response.Cookies("DepName")=v_DepName
 Response.Cookies("classname")=v_classname
 Response.Cookies("RoleName")=v_RoleName
 
 response.Write("v_account:"&v_account&"<br>")
 response.Write("pwd:"&pwd&"<br>")
 response.Write("kind:"&kind&"<br>")
 response.Write("v_Role_ID:"&v_Role_ID&"<br>")
 response.Write("v_CollegeName:"&v_CollegeName&"<br>")
 response.Write("v_DepName:"&v_DepName&"<br>")
 response.Write("v_classname:"&v_classname&"<br>")
kind = trim(kind)
v_Role_ID = trim(v_Role_ID)
if(v_Role_ID=1) then
 Response.Cookies("classname")= "教师"
 end if
 

if (kind = v_Role_ID) then
response.Write("if statements")
       response.redirect v_path
else
  response.redirect "loginleftframe.asp?temp=error"

	  
end if

%>