【一只熊】cookies自动管理

一只熊

对于cookies的管理相信一直苦恼很多新手小白们

现在【一只熊】提供个cookies 自动管理的工具类给大家。让大家开发更方便

1. 
   
2. var cookies
   
3. //获取cookies的正则语句: "Set-Cookie[^.]*?[^;];"  
   
4. //如果存在则更新，不存在则添加
   
5. function CookiesManager_setCookie(head)
   
6.     //cookie=""
   
7.     if(head!="")
   
8.         var setCookie=regexmatchtext(head,"Set-Cookie[^.]*?[^;];",false,true,true,false)
   
9.         if(setCookie !=null && setCookie!="")
   
10.             var n = arraysize(setCookie)   //条件1
    
11.             if(n!=-1 && setCookie[0]!="")
    
12.                 for(var i = 0; i < n; i++)
    
13.                     var cookie=string_mid(setCookie[i],"Set-Cookie:",";")
    
14.                     var cookie_key=string_mid(cookie," ","=")
    
15.                     var pos=strfind(cookies,cookie_key)
    
16.                     if(pos!=-1)
    
17.                         cookies=strreplace(cookies,cookie_key&"="&string_mid(cookies,cookie_key,";"),cookie)
    
18.                     else
    
19.                         cookies=cookies&cookie&";"
    
20.                     end
    
21.                 end
    
22.             end
    
23.         end
    
24.     end
    
25. end
    

复制代码

字符串取中间信息方法string_mid，CookiesManager_setCookie 中有用到

1. 
   
2. //取两个字符串中间的信息
   
3. //参数1:源字符串
   
4. //参数2:要取的部分所在开头的字符串
   
5. //参数3:结束部分字符,默认为空,表示到到结尾
   
6. function string_mid(source,startStr,endStr)
   
7.     var startpos
   
8.     var endpos
   
9.     var temp
   
10.     if(startpos=="")
    
11.         startpos=0
    
12.     else
    
13.         startpos=strfind(source,startStr)
    
14.         
    
15.     end
    
16.     temp=strsub(source,startpos+strlen(startStr),strlen(source))
    
17.    
    
18.     if(endStr=="")
    
19.         endpos=strlen(temp)
    
20.     else
    
21.         endpos=strfind(temp,endStr)
    
22.     end
    
23.    
    
24.     if(startpos==-1 || endpos==-1)
    
25.         return ""
    
26.     end
    
27.     var ret=strsub(temp,0,endpos)
    
28.     return ret
    
29. end
    

复制代码

一只熊

好帖希望大家顶，有问题也可以回帖提问

donggua11

你好，我用tc7.0编译时出现> function CookiesManager_setCookie(head)，错误信息:函数定义中,不能识别的语法定义 。还想请教一下如何用tc设置ie的Cookie，谢谢。

一只熊

donggua11 发表于 2017-12-22 21:58
你好，我用tc7.0编译时出现> function CookiesManager_setCookie(head)，错误信息:函数定义中,不能识别的语 ...

tc貌似没提供设置iecookies的方法，，可以直接调用js设置ie cookies

donggua11

谢谢