ch_user.asp

来自「一个基于ＡＳＰ的学生管理系统」· ASP 代码 · 共 30 行

<!--#include file="inc/conn.asp"-->
<% 
user=request.Form("username")
passwd=request.Form("passwd")
 openDB
 sql="SELECT * FROM admin WHERE ad_name='"&user&"' and ad_passwd='"&passwd&"'"
 set Rs=conn.execute(sql)
 if rs.eof then
     closeDB
     Response.Redirect "login.asp"
 else
     ad_sign=rs("ad_sign")
	 ad_lev=rs("ad_lev")	
	 closeDB
	 if ad_sign="0"then
      xy_name="学校教务处"	 
	  session("xy_name")=xy_name
	  session("ad_sign")   =ad_sign	 
	  else 
	 openDB
	 sql="SELECT xy_name FROM xueyuan WHERE xy_id='"&ad_lev&"'"
	 set rs=conn.execute(sql)
	 xy_name=rs("xy_name")
	 closeDB	
	 session("ad_sign")   =ad_sign 
	 session("xy_name")=xy_name
	 end if
	 Response.Redirect "index.asp" 
end if	
 %>