如何在Flash中处理Cookies？

testCookies.asp

' 检查浏览器是否接受Cookies.

lt;%

strTest = Request.QueryString("CookieTest")

If UCase(strTest) lt;gt; Ucase("true") Then

Session("__FlashCookieTest") = True

' 第一次呼叫.设置session变量.

' 用QueryString重定向.

nbsp;strURL = Request.ServerVariables("script_NAME")

nbsp;strQueryString = "?CookieTest=true"

nbsp;Response.Redirect(strURL strQueryString)

nbsp;Response.End

Else

If Session("__FlashCookieTest") = True Then

' 已完成重定向.检查session变量是否包含值.

strOut = "Cookies=true"

' Session变量包含值,因此浏览器接受Cookies.

nbsp;

nbsp;Else

strOut = "Cookies=false"

' Session变量为空,浏览器决绝Cookies.

nbsp;End If

End If

Response.Write(strOut)

' 输出到Flash.

%gt;

nbsp;

setCookies.asp

lt;%

For each item in Request.QueryString

nbsp;nbsp;nbsp;nbsp;nbsp;nbsp; Response.Cookies(item) = Request.Querystring(item) nbsp;nbsp;nbsp;nbsp;

Next

%gt;

nbsp;

getCookies.asp

' 读取 Cookies

lt;%

For each Cookie in Request.Cookies

nbsp;strOut = strOut Server.URLEncode(Cookie) "="

nbsp;strOut = strOut Server.URLEncode(Request.Cookies(Cookie))

nbsp;strOut = strOut ""

Next

Response.Write strOut

%gt;

（编辑：大同站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!