Это мой код.Кажется, все в порядке.
Но я волнуюсь, если это надежно.
sub put_cookie_string( cookie_value, subkeyName )
If (Request.Cookies( PROGRAM_COOKIE_NAME) IS Nothing) Then
Response.Cookies( PROGRAM_COOKIE_NAME )( subkeyName ) = cookie_value
Response.Cookies( PROGRAM_COOKIE_NAME).Expires = DateTime.Now.addyears(50)
else
Dim aCookie As HttpCookie = Request.Cookies( PROGRAM_COOKIE_NAME )
aCookie.Values.Set( subkeyName, cookie_value )
aCookie.Expires = DateTime.Now.addyears(50)
Response.Cookies.Add( aCookie )
end if
end sub
function get_cookie_string( byval subkeyName )
get_cookie_string = ""
If (Request.Cookies( PROGRAM_COOKIE_NAME) IsNot Nothing) Then
If (Request.Cookies( PROGRAM_COOKIE_NAME)( subkeyName) IsNot Nothing) Then
get_cookie_string = Request.Cookies( PROGRAM_COOKIE_NAME)( subkeyName )
End If
End If
end function