VBScript、JavaScript获取Cookie

VBScript和JavaScript的document对象都有cookie方法用来设置或返回网站cookie的值，设置或返回时其值格式为：name1=value1;name2=value2;name3=value3。以前有用VBScript和JavaScript分别写了函数用于获取网址中指定的参数值。我们知道，网址中参数的格式和这个cookie的值非常相像，只是&变成了;而已，那我们就同样能获取指定名称cookie的值，具体函数如下：

VBScript版:
<script language="VBScript">
Function getCookie(parameter)
Dim allCookie,ilen,iStart,iEnd
allCookie = document.cookie
if instr(allCookie,parameter) = 0 then
   getCookie = ""
else
   iLen = len(parameter)
   iStart = instr(allCookie,parameter) + iLen + 1
   iEnd = Instr(iStart,allCookie,";")
   if iEnd = 0 then
    getCookie = right(allCookie,len(allCookie) - iStart + 1)
   Else
    getCookie = mid(allCookie,iStart,iEnd - iStart)
   End if
end if
End Function
''使用getCookie("parameter")即可得到cookie值
</script>

JavaScript版:
<script language="JavaScript">
function getCookie(parameter){
var reg,allCookie,allCookie2,iLen,iStart,iEnd;
allCookie = document.cookie;
reg = new RegExp(parameter);
if(allCookie.search(reg) == -1){
   return "";
}
else{
   iLen = parameter.length;
   iStart = allCookie.search(reg) + iLen +1;
   allCookie2 = allCookie.substr(iStart);
   iEnd = iStart + allCookie2.search(/;/i);
   if((iStart - 1) == iEnd){
    return allCookie.substr(iStart);
   }
   else{
    return allCookie.substr(iStart,iEnd - iStart);
   }
}
}
//使用getCookie("parameter")即可得到cookie值;
</script>