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

核心提示：function cookievalue(pcook)lhowlong=len(pcook)lwhereis=instr(document.cookie,pcook)if lwhereis=0 thencookievalue=falseelselstartpos=len(document.cookie)-lwherei

function 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