isadmin.asp

财务管理系统 报账等基本功能实现 有完整的实现

<!-- #include file="../Conndb.asp" -->

<% 
  '从Session变量中读取用户信息
  UserName = Trim(Session("UserName"))
  UserPwd = Trim(Session("UserPwd"))
   '用户名是否为空
  If UserName <> "" Then
    sql = "Select * From Users Where UserName='" & UserName & "' And UserPwd='" & UserPwd & "' And UserType Like '%客户管理员%'"
    '是否存在此用户名，并判断此用户是否为客户管理员
    Set rs = Conn.Execute(sql)
    If rs.EOF Then
      Response.Redirect "index.asp"
    End If
  Else
    Response.Redirect "ChkPwd.asp"
  End If
%>