Cookie，Session，Application封装

Cookie，Session，Application封装2009-12-17 toyak.com 再把其它的操作，比如Cookie，Session，Application封装

CookieState类：

<%
Class CookieState

Private CurrentKey

Public Default Property Get Contents（ByVal Value）
Contents = Values（Value）
End Property

Public Property Let Expires（ByVal Value）
Response.Cookies（CurrentKey）.Expires = DateAdd（"d", Value, Now）
End Property
Public Property Get Expires（）
Expires = Request.Cookies（CurrentKey）.Expires
End Property

Public Property Let Path（ByVal Value）
Response.Cookies（CurrentKey）.Path = Value
End Property
Public Property Get Path（）
Path = Request.Cookies（CurrentKey）.Path
End Property

Public Property Let Domain（ByVal Value）
Response.Cookies（CurrentKey）.Domain = Value
End Property
Public Property Get Domain（）
Domain = Request.Cookies（CurrentKey）.Domain
End Property

Public Sub Add（ByVal Key, ByVal Value, ByVal Options）
Response.Cookies（Key） = Value
CurrentKey = Key
If Not （IsNull（Options） Or IsEmpty（Options） Or Options = ""） Then
If IsArray（Options） Then
Dim l : l = UBound（Options）
Expire = Options（0）
If l = 1 Then Path = Options（1）
If l = 2 Then Domain = Options（2）
Else
Expire = Options
End If
End If
End Sub

Public Sub Remove（ByVal Key）
CurrentKey = Key
Expires = -1000
End Sub

Public Sub RemoveAll（）
Clear（）
End Sub

Public Sub Clear（）
Dim iCookie
For Each iCookie In Request.Cookies
Response.Cookies（iCookie）.Expires = FormatDateTime（Now）
Next
End Sub

Public Function Values（ByVal Key）
Values = Request.Cookies（Key）
End Function

Private Sub Class_initialize（）
End Sub
Private Sub Class_Terminate（）
End Sub

End Class
%>