Code : Tout sélectionner
Procedure SetCookie(Name.s, Value.s)
Protected Buffer.s = Name + "=" + Value
! document.cookie = v_buffer;
EndProcedure
Procedure GetCookie(Name.s)
! var value = "; " + document.cookie;
! var parts = value.split("; " + v_name + "=");
! if (parts.length == 2) return parts.pop().split(";").shift();
EndProcedure
Procedure RemoveCookie(Name.s)
! document.cookie = v_name + '=; Path=/; Expires=Thu, 01 Jan 1970 00:00:01 GMT;';
EndProcedure
SetCookie("soc", "12345")
SetCookie("name", "John Doe")
SetCookie("PHPSESSID", "0781d6ea840acd7c52186fd916a76705")
Debug GetCookie("PHPSESSID")
Debug GetCookie("soc")
Debug GetCookie("name")
RemoveCookie("soc")
Debug GetCookie("soc")