checkuser.asp

来自「未成型的程序。不能算OA的」· ASP 代码 · 共 20 行

<%'检验用户
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&"'"
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("能否发送")
	gllm=rs("管理栏目")
	rs.close
end if
%>