CSDN博客

img YangYuWeb

ASP中使用类

发表于2004/10/12 14:44:00  737人阅读

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)
阅读全文
0 0

相关文章推荐

img
取 消
img