unclefat

<TABLE BORDER="2">
<THEAD>
<TH>Cookie Name</TH>
<TH>Cookie Value</TH>
<TH>Cookie HasKeys</TH>
</THEAD>
<%
Dim Item
For Each Item in Request.Cookies
%>
<TR>
<TD><% = Item %></TD>
<TD><% = Request.Cookies(Item) %></TD>
<TD><% = Request.Cookies(Item).HasKeys %></TD>
</TR>
<TR>
<%
If Request.Cookies(Item).HasKeys Then
For Each strSubKey In Request.Cookies(Item)
%>
<TD>&bnsp;</TD>
<TD>&bnsp;</TD>
<TD><% = Request.Cookies(strKey)(strSubKey) %></TD>
<%
Next
End If
Next
%>
</TABLE>

request.ServerVariables("HTTP_COOKIE")，粒子：
<TABLE BORDER="2">
<THEAD>
<TH>Cookie Name</TH>
<TH>Cookie Value</TH>
</THEAD>
<%
Dim Item,sp,i,d
sp = split(request.ServerVariables("HTTP_COOKIE"),"; ",-1,1)
' Loop through the cookie collection displaying each cookie we find

For i=0 to UBound(sp)
d = split(cstr(sp(i)),"=",-1,1)
%>
<TR>
<TD><% = d(0) %></TD>
<TD><% if UBound(d)=1 then Response.Write(d(1)) else Response.Write " " %></TD>
</TR>
<%
Next
%>
</TABLE>