[/u]' 检查浏览器是否接受Cookies. <% strTest = Request.QueryString("CookieTest") If UCase(strTest) <> Ucase("true") Then Session("__FlashCookieTest") = True ' 第一次呼叫.设置session变量. ' 用QueryString重定向. strURL = Request.ServerVariables("script_NAME") strQueryString = "?CookieTest=true" Response.Redirect(strURL & strQueryString) Response.End Else If Session("__FlashCookieTest") = True Then ' 已完成重定向.检查session变量是否包含值. strOut = "Cookies=true" ' Session变量包含值,因此浏览器接受Cookies.
Else strOut = "Cookies=false" ' Session变量为空,浏览器决绝Cookies. End If End If Response.Write(strOut) ' 输出到Flash. %>
[u]setCookies.asp
[/u]<% For each item in Request.QueryString Response.Cookies(item) = Request.Querystring(item) Next %>
[u]getCookies.asp
[/u]' 读取 Cookies <% For each Cookie in Request.Cookies strOut = strOut & Server.URLEncode(Cookie) & "=" strOut = strOut & Server.URLEncode(Request.Cookies(Cookie)) strOut = strOut & "&" Next Response.Write strOut %>
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有