checkadmin.asp

未成型的程序。不能算OA的

<%'检验用户
user=session("user")
pass=session("pass")
user=checkstr(user)
pass=checkstr(pass)
pass1=ucase(md5(pass))
str="select 姓名,用户类别,能否发送 from user_teacher where 用户名='"&user&"' and 密码='"&pass1&"' and 用户类别='超级管理员'"
set rs=conn.execute(str)
if rs.eof then
    rs.close
	response.redirect("user_login.asp")
else
    session("user")=user
	session("pass")=pass
	session("user_name")=rs("姓名")
	send_TF=rs("能否发送")
	rs.close
end if
%>