ASP中使用类

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)