cookie

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

Private objItem

Private Sub Class_Initialize()
    Set objItem = Server.CreateObject(PROGID_HASH)
End Sub

Private Sub Class_Terminate()
    Set objItem = Nothing
End Sub

Public Default Property Get Item(ByVal strName)
    If Not objItem.Exists(strName) Then
        Set objItem(strName) = vbsre.mocom.util.CookieDictionary.newInstance()
        objItem(strName).Name = strName
    End If
    Set Item = objItem(strName)
End Property