isuser.asp

来自「一个不错的人才管理系统」· ASP 代码 · 共 17 行

<% 
   '如果是用户则显示
  UserId = Trim(Session("user_id"))
  Pwd = Trim(Session("user_pwd"))
  '用户名是否为空
  If UserId <> "" Then
    sql = "SELECT * FROM Person WHERE UserName='" & UserId & "' And Pwd='" & Pwd & "'"
    '是否存在此用户名
    Set rsa = Conn.Execute(sql)
    If rsa.EOF Then
      Response.Redirect "../index.asp"
    End If
  Else
    Response.Redirect "../index.asp"
  End If   
%>