<%@ Page Language="vb" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"><title>Cookie確認</title></head> <body> <% Dim out As New StringBuilder For Each cs As String In Request.Cookies.AllKeys Dim c As HttpCookie = Request.Cookies(cs) out.AppendLine("<b>" & c.Name & "(" & c.Value.length & "): </b>" & Server.UrlDecode(c.Value) & "<br>") Next Response.Write(out.ToString()) %> </body> </html>