isuser.asp

一个比较好的

<% 
  '从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
%>