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

     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
  
  

原文转自：http://www.ltesting.net