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
       
Tags:  vbscript定义函数 vbscript函数大全 vbscript常用函数 vbscript函数

延伸阅读

最新评论

发表评论