isadmin.asp

来自「财务管理系统 报账等基本功能实现 有完整的实现」· ASP 代码 · 共 43 行

<% 
  '从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 '%销售管理员%' Or UserType Like '%客户代表%')"
    '是否存在此用户名
    Set rsUser = Conn.Execute(sql)
    If rsUser.EOF Then
      Response.Write "<script>alert('您没有权限');window.close()</script>"
      Response.End()
    End If
  Else
    Response.Write "<script>alert('您没有权限');window.close()</script>"
    Response.End()
  End If

Function isAdmin()
  isAdmin = -1
  '从Session变量中读取用户信息
  UserName = Trim(Session("UserName"))
  UserPwd = Trim(Session("UserPwd"))
   '用户名是否为空
  If UserName <> "" Then
    sql = "Select * From Users Where UserName='" & UserName & "' And UserPwd='" & UserPwd & "'"
    '是否存在此用户名，并读取此用户类型
    Set rsUser = Conn.Execute(sql)
    If Not rsUser.EOF Then
      If InStr(rsUser("UserType"),"销售管理员")>=0 Then
        isAdmin = 1
      ElseIf InStr(rsUser("UserType"),"客户代表")>=0 Then
        isAdmin = 2
      End If
    End If
  Else
    Response.Write "<script>alert('您没有权限');window.close()</script>"
    Response.End()
  End If
End Function
%>