一个在vbscript中读取cookie的程序函数

　cookievalue(pcook)
　　lhowlong=len(pcook)
　　lwhereis=instr(document.cookie,pcook)
　　if lwhereis=0 then
　　cookievalue=false
　　else
　　lstartpos=len(document.cookie)-lwhereis-lhowlong
　　lstartstring=right(document.cookie,lstartpos)
　　do
　　lchar=left(lstartstring,1)
　　if lchar=";" then
　　cookievalue=lendstring
　　exit do
　　else
　　lendstring=lendstring & lchar
　　if len(lstartstring)=1 then
　　cookievalue=lendstring
　　exit do
　　else
　　lstartstring=right(lstartstring,len(lstartstring)-1)
　　end if
　　end if
　　loop
　　end if
　　end function