isadmin.asp

网上商场购物系统是一种具有交互功能的商业信息系统

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