或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
文章来源于领测软件测试网 https://www.ltesting.net/
