vbscript函数:vbscript中读取cookie的程序函数

function cookievalue(pcook)
lhowlong=len(pcook)
lwhereis=instr(documents.cookie,pcook)
lwhereis=0 then
cookievalue=false

lstartpos=len(documents.cookie)-lwhereis-lhowlong
lstart=right(documents.cookie,lstartpos)
do
lchar=left(lstart,1)
lchar=\";\" then
   cookievalue=lend
    exit do
  
  lend=lend & lchar
   len(lstart)=1 then
   cookievalue=lend
   exit do
  
  lstart=right(lstart,len(lstart)-1)
  end
end
loop
end
end function
       

延伸阅读

• 2008-9-25-- vbscript语法大全:vbscript错误代码及对应解释大全
• 2009-2-12-- vbscript函数:VBScript常用函数