ASP implementation Cache class error-free version _asp class

<%
'**********************************************
' VBS CACHE Class
' attribute valid, available, judged before value
' attribute Name,cache name, assign value after new object
' Method Add (value, expiration time), set cache content
' Property value, return cache content
' Property blempty, whether the value is not set
' Method Makeempty, free memory, test with
' Method equal (variable 1) to determine if the cache value is the same as the variable 1
' Method expires (time) to modify the expiration times
' The wooden bird writes the cache class
'**********************************************

Class Cache
Private obj ' cache content
Private Expiretime ' Expiration time
Private Expiretimename ' Expired time application name
Private CacheName ' cache content application name
Private path ' URI

Private Sub Class_Initialize ()
Path=request.servervariables ("url")
Path=left (Path,instrrev (Path, "/")
End Sub

Private Sub Class_Terminate ()
End Sub

Public Property Get Blempty
' Is empty
If IsEmpty (obj) Then
Blempty=true
Else
Blempty=false
End If
End Property

Public Property Get Valid
' is available (expired)
If IsEmpty (obj) or not isDate (expiretime) Then
Valid=false
ElseIf CDate (expiretime) <now Then
Valid=false
Else
Valid=true
End If
End Property

Public Property Let name (str)
' Set cache name
CACHENAME=STR & Path
Obj=application (CacheName)
EXPIRETIMENAME=STR & "Expires" & Path
Expiretime=application (Expiretimename)
End Property

Public Property Let expires (tm)
' Reset Expiration Time
Expiretime=tm
Application.Lock
Application (Expiretimename) =expiretime
Application.UnLock
End Property

Public Sub Add (Var,expire)
' Assign value
If IsEmpty (Var) or not isDate (expire) Then
Exit Sub
End If
Obj=var
Expiretime=expire
Application.Lock
Application (CacheName) =obj
Application (Expiretimename) =expiretime
Application.UnLock
End Sub

Public Property Get Value
' Take value
If IsEmpty (obj) or not isDate (expiretime) Then
Value=null
ElseIf CDate (expiretime) <now Then
Value=null
Else
Value=obj
End If
End Property

Public Sub Makeempty ()
' Release application
Application.Lock
Application (CacheName) =empty
Application (Expiretimename) =empty
Application.UnLock
Obj=empty
Expiretime=empty
End Sub

Public function equal (VAR2)
' Comparison
If TypeName (obj) <>typename (var2) Then
Equal=false
ElseIf TypeName (obj) = "Object" Then
If obj is var2 then
Equal=true
Else
Equal=false
End If
ElseIf TypeName (obj) = "Variant ()" Then
If join (obj, "^") =join (var2, "^") Then
Equal=true
Else
Equal=false
End If
Else
If Obj=var2 Then
Equal=true
Else
Equal=false
End If
End If
End Function

End Class

Dim Content,mycache
Set Mycache = new Cache
Mycache.name= "Sofoisndoffo" defines the cache name
If Mycache.valid then ' if the cache is valid
Content=mycache.value ' Read cache content
Else
content= "sosuo8.com test" a large amount of content, can be very time-consuming a large number of database query recordsets
Mycache.add Content,dateadd ("n", 1000,now) ' assigns the content to the cache and sets the cache expiration date to the current time + 1000 minutes
End If
Response.Write (content)
' Mycache.makeempty ()
Set Clscache=nothing ' Frees objects
%>