VBScript、JavaScript获取Cookie

<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>

<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>