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

主站首页  视频下载  书籍下载  软件下载  论坛交流  学习手册  在线小说  网站地图  万年历  世界时间查询

豆豆首页 - 在线教程 - WEB开发 - VBScript - 应用技巧

最 大的中文IT资源网

一个在vbscript中读取cookie的程序函数
作者：unknown 更新时间： 2005-03-15
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