Question

易语言清除cookies的模块

谁能给我个哇 谢谢了！直接加我QQ：272656449

Answer 1

.版本 2 .子程序 子程序_清除COOKIE, 逻辑型, 公开 .参数 参数_域名, 文本型 .局部变量 局部_现有COOKIE, 文本型 .局部变量 局部_上次COOKIE, 文本型 .局部变量 局部_整数变量, 整数型 .局部变量 局部_COOKIE名称, 文本型 .局部变量 局部_COOKIE内容, 文本型 局部_现有COOKIE ＝ 子程序_取COOKIE (参数_域名) 局部_上次COOKIE ＝ 局部_现有COOKIE .判断循环首 (局部_现有COOKIE ≠“”) 局部_整数变量 ＝ 寻找文本 (局部_现有COOKIE, “=”, 1, 真) .如果 (局部_整数变量 ＞ 0) 局部_COOKIE名称 ＝ 取文本左边 (局部_现有COOKIE, 局部_整数变量 － 1) 局部_COOKIE内容 ＝“delete; expires=” ＋ 子程序_转换为GMT格式 (指定时间 (1999, 1, 1, 1, 1, 1)) ＋“; path=/” 设置COOKIE (“http://” ＋ 参数_域名, 局部_COOKIE名称, 局部_COOKIE内容) 局部_COOKIE内容 ＝ 局部_COOKIE内容 ＋“; domain=” ＋ 选择 (到小写 (取文本左边 (参数_域名, 4)) ＝“www.”, 文本替换 (参数_域名, 1, 3, ), 参数_域名) 设置COOKIE (“http://” ＋ 参数_域名, 局部_COOKIE名称, 局部_COOKIE内容) 局部_现有COOKIE ＝ 子程序_取COOKIE (“http://” ＋ 参数_域名) .如果真 (局部_上次COOKIE ＝ 局部_现有COOKIE) 返回(假) .如果真结束 局部_上次COOKIE ＝ 局部_现有COOKIE .否则 返回(真) .如果结束 .判断循环尾 () 返回(真)