[问与答] 大神进来帮忙下 Microsoft VBScript '800a01a8'求救

ȱ�ٶ���: 'Easp'

E:\FREEHOST\RK3636003\WEB\ADMIN\SYS\../../Inc/easp/core/easp.cache.asp���� 35   

以下是easp.cache.asp的代码：

Class EasyAsp_Cache

Public Items, CountEnabled, Expires, FileType

Private s_path, b_fsoOn

'构造函数

Private Sub Class_Initialize

Set Items = Server.CreateObject("Scripting.Dictionary")

s_path = Server.MapPath("/_cache") & "\"

CountEnabled = True

Expires = 5

FileType = ".cache"

Easp.Error(91) = "当前对象不允许缓存到内存缓存"

Easp.Error(92) = "缓存文件不存在"

Easp.Error(93) = "当前内容不允许缓存到文件缓存"

If TypeName(Easp.Fso) = "EasyASP_Fso" Then

b_fsoOn = True

Else

Easp.Use "Fso"

b_fsoOn = False

End If

End Sub

'析构函数

Private Sub Class_Terminate

If Not b_fsoOn Then

Set Easp.Fso = Nothing

Set Easp.Fso = New EasyAsp_obj

End If

Set Items = Nothing

End Sub

'建新Easp缓存类实例

Public Function [New]()

Set [New] = New EasyAsp_Cache

End Function

'取当前所有缓存数量

Public Property Get Count

Count = Easp.IIF(CountEnabled,Easp_Cache_Count,-1)

End Property

'添加缓存值

Public Property Let Item(ByVal p, ByVal v)

If IsNull(p) Then p = ""

If Not IsObject(Items(p)) Then

Set Items(p) = New Easp_Cache_Info

Items(p).CountEnabled = CountEnabled

Items(p).Expires = Expires

Items(p).FileType = FileType

End If

Items(p).Name = p

Items(p).Value = v

Items(p).SavePath = s_path

End Property

'获取缓存值

Public Default Property Get Item(ByVal p)

If Not IsObject(Items(p)) Then

Set Items(p) = New Easp_Cache_Info

Items(p).Name = p

Items(p).SavePath = s_path

Items(p).CountEnabled = CountEnabled

Items(p).Expires = Expires

Items(p).FileType = FileType

End If

set Item = Items(p)

End Property

'设置文件缓存保存位置

  Public Property Let SavePath(ByVal s)

If Not Instr(s,":") = 2 Then s = Server.MapPath(s)

If Right(s,1) <> "\" Then s = s & "\"

s_path = s

  End Property

Public Property Get SavePath()

SavePath = s_path

  End Property

'保存所有文件缓存

Public Sub SaveAll

Dim f

For Each f In Items

Items(f).Save

Next

End Sub

'保存所有内存缓存