cookie.asp

来自「WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品」· ASP 代码 · 共 26 行

<%
Class ImplMocomUtilCookie
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

Public Function newInstance()
    Set newInstance = New ImplMocomUtilCookie
End Function
End Class
%>