语源科技BlogJava-unclefathttp://www.blogjava.net/unclefat/zh-cnThu, 07 May 2026 05:17:00 GMTThu, 07 May 2026 05:17:00 GMT60Cookieshttp://www.blogjava.net/unclefat/archive/2007/05/23/119519.html肥叔肥叔Wed, 23 May 2007 15:33:00 GMThttp://www.blogjava.net/unclefat/archive/2007/05/23/119519.htmlhttp://www.blogjava.net/unclefat/comments/119519.htmlhttp://www.blogjava.net/unclefat/archive/2007/05/23/119519.html#Feedback0http://www.blogjava.net/unclefat/comments/commentRss/119519.htmlhttp://www.blogjava.net/unclefat/services/trackbacks/119519.html<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>



肥叔 2007-05-23 23:33 发表评论
]]>