Új hozzászólás Aktív témák

• #1417 ArchElf addikt

  Új Válasz 2011-09-16 19:01:16 #1417

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ArchElf

  addikt

  Gyors VBScript kérdés...
  Csináltam egy kicsi osztályt (alant), és egy Hastable-be bepakolom (tudom talán kicsit meredek). A problémám az, hogy az egyik függvényt nem hajlandó meghívni a futtatókörnyezet...
  Osztály:
  Class RelStore
  'Cache Time 5 min
  
  Private d_Timer
  Private b_Member
  Private b_Init
  Private VALIDITY
  
  Private Sub Class_Initialize
  VALIDITY = 300
  d_Timer = 0
  b_Member = False
  b_Init = False
  End Sub
  
  Public Function Initialize(Membership)
  d_Timer = Timer
  b_Member = Membership
  b_Init = True
  End Function
  
  Public Sub Invalidate()
  Class_Initialize
  End Sub
  
  Public Function IsMember()
  IsMember = b_Member
  End Function
  
  Public Function IsValid()
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Function
  End Class

  Ahol kicsomagolnám a Hastable-ből:
  If htCache.ContainsKey(SearchString) Then
  Set rs = htCache(SearchString)
  If rs.IsValid Then
  IsMember = rs.IsMember
  Else
  IsMember = False
  htCache.Remove SearchString
  End If
  Else
  DebugWrite "Object NOT found in cache: " & SearchString
  End If

  Hibaüzenet:
  An error occurred on line 97 while executing script 'User Group Check'
  Source: Microsoft VBScript runtime error
  Description: Object doesn't support this property or method: 'rs.IsValid'

  Ja és próbáltam már így is
  Public Property Get IsValid
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Property

  AE

Új hozzászólás Aktív témák