<%
'**********************************************
' 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
%>
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.