isadmin.asp

来自「ASP+SQL Server网络应用系统开发与实例」· ASP 代码 · 共 16 行

<% 
  '从Session变量中读取用户信息
  AdminId = Trim(Session("admin_id"))
  Passwd = Trim(Session("admin_pwd"))
   '用户名是否为空
  If AdminId <> "" Then
    sql = "Select * From Admin Where AdminId='" & AdminId & "' And Pwd='" & Passwd & "'"
    '是否存在此用户名
    Set rs = Conn.Execute(sql)
    If rs.EOF Then
      Response.Redirect "Login.asp"
    End If
  Else
    Response.Redirect "Login.asp"
  End If
%>