ASP中使用类

原创于 2004-10-12 14:44:00 发布 · 1k 阅读

CC 4.0 BY-SA版权

文章标签：

博客展示了ASP代码，定义了WebUser类，包含IsLogin和IsManager两个属性。IsLogin用于判断用户是否登录，未登录则提示并跳转；IsManager判断是否为管理员，非管理员或未登录会给出相应提示并跳转。最后创建WebUser对象并调用IsLogin方法。

Class WebUser
　　 Public Property Get IsLogin(UserName)
          　 If username<>"" Then
   　　　      IsLogin = True
　　　 Else
                     IsLogin = False
                     jstz "请您先登录!","../login.htm"
               End If
        End Property
        Public Property Get IsManager(pop)
              If Isnumeric(POP) And POP<>"" Then
                   IsManager = True
                   If POP <> 0 Then
                          jstz "对不起，此功能只有管理员才能使用!","../LookUp.Asp"
                   End If
              Else
                   IsManager = False
                   jstz "请您先登录!","../login.htm"
              End If
         End Property
End Class
Set aUser = new WebUser
aUser.IsLogin(Username)