<%
if InStr(1, request.ServerVariables("HTTP_COOKIE"), "ASPSESSIONID", 1) >= 1 then 
    response.Write "支持 cookie"
else
    response.Write "不支持 cookie"
end if
%>

如果大家要测试，可以将上述代码保存起来，然后放在 web 目录下，访问，观察现象，再将“Internet选项”中的“隐私”设置为高，再访问，再观察现象。