在Cookie的使用中，我们发现这样一个问题：如果写入Cookie的内容是中文（如用户称呼），用服务器端程序（如ASP
或PHP）读出完全正确，但是用一般的javascript或VBScript的读Cookie函数取出的却是一堆乱码。这是一个棘手的问题，
因为在有些情况下，Cookie的内容需要在客户机端用脚本语言读取。如果你写入了中文，得到了一堆乱码，是不是感觉很
别扭呢？解决这个问题，还要从Cookie的存取方式说起。
我们知道，写入Cookie内容前需要进行escape（十六进制编码），编码时又是以字节为单位的，这就是问题的关键所
在：任何一个汉字都会被拆成两个字节分别编码；而在读Cookie时，unescape又以字节单位解码，因此最后每个汉字都变
成了两个字节的乱码。怎么办呢？ASP或PHP方式能够正确读出，应该是在unescape解码后，又按照unicode编码把其中的汉
字拼了出来。如果这样的话，能不能找到一种变通的方法解决这个问题呢？仔细研究后发现，只要在十六进制codec（编解
码）过程中能够保存汉字信息就行了，因而我们需要再外包一层codec过程，方案如下：

1.在escape编码前，把Cookie字符串中的每个字符转换为unicode码的字符串形式（用一特殊字符作为字串的分隔
符）。

2.在unescape解码后，先把所有unicode字串提取出来，再用对应的函数转换为原字符。

<SCRIPT LANGUAGE=javascript>
<!--
//编码程序：
function CodeCookie(str)
{
　var strRtn="";

　for (var i=str.length-1;i>=0;i--)
　{
strRtn+=str.charCodeAt(i);
if (i) strRtn+="a"; //用a作分隔符
　}
　return strRtn;
}

//解码程序：
function DecodeCookie(str)
{
　var strArr;
　var strRtn="";

　strArr=str.split("a");

　for (var i=strArr.length-1;i>=0;i--)
　strRtn+=String.fromCharCode(eval(strArr[i]));

　return strRtn;
}
//-->
</script>

VBScript版程序如下：

<SCRIPT LANGUAGE=vbscript>
<!--
"编码程序：
function CodeCookie(str)
Dim i
Dim strRtn

for i=len(str) to 1 step -1
strRtn=strRtn & ascw(mid(str,i,1))
if (i<>1) then strRtn = strRtn & "a" "用a作分隔符
next
CodeCookie=strRtn
end function

"解码程序：
function DecodeCookie(str)
Dim i
Dim strArr,strRtn

strArr=Split(str,"a");

for i=UBound(strArr)-LBound(strArr) to 1 step -1
strRtn=strRtn & chrw(Val(strArr(i)))
next

DecodeCookie=strRtn
end function
-->
</script>

from www.yesky.com