isadmin.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 19 行

<% 
  '从Session变量中读取注册用户信息，并连接到数据库验证
  AdmId = Trim(Session("Adm_id"))
  AdmPwd = Trim(Session("Adm_pwd"))
  '如果用户名为空，则显示提示信息
  If AdmId = "" Then
    Response.Write("不是管理员，不能进入")
    Response.End
  Else
    '连接数据库，进行身份验证
    sql="SELECT * FROM Admin_Info WHERE Adm_Id='" & AdmId & "' AND Adm_Pwd='" & AdmPwd & "'"
    Set rs = conn.Execute(sql)
    If rs.EOF Then
      Response.Write("不是管理员，不能进入")
      Response.End
    End If
  End If
%>