首页 > > 网络编程 > Asp编程 >

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

2008-02-23 09:48:21来源：互联网阅读 ()

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有