isuser.asp

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

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