教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

function cookievalue(pcook)
lhowlong=len(pcook)
lwhereis=instr(documents.cookie,pcook)
if lwhereis=0 then
cookievalue=false
else
lstartpos=len(documents.cookie)-lwhereis-lhowlong
lstartstring=right(documents.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