return session details

Discussion in 'ASP General' started by Don Grover, Oct 11, 2003.

  1. Don Grover

    Don Grover Guest

    Does any one have an asp page they can share that returns current session
    details, cookies etc.

    I can't get session arrays to return in a page.
    Don Grover, Oct 11, 2003
    #1
    1. Advertising

  2. "Don Grover" <> wrote in message
    news:ub7lyp$...
    > Does any one have an asp page they can share that returns current

    session
    > details, cookies etc.
    >
    > I can't get session arrays to return in a page.
    >
    >

    <%
    Function DebugDump()
    Dim item
    Dim o
    o=""
    o=o & "<table>"
    ' o=o & "<tr><th colspan='2'>Attributes</th></tr>"
    ' For Each item in attributes
    ' o=o & "<tr><td>" & item & "</td><td>" & attributes(item) &
    "</td></tr>"
    ' Next
    o=o & "<tr><th colspan='2'>QueryString</th></tr>"
    For Each item in Request.QueryString
    o=o & "<tr><td>" & item & "</td><td>" & Request.QueryString(item) &
    "</td></tr>"
    Next
    o=o & "<tr><th colspan='2'>Form</th></tr>"
    For Each item in Request.Form
    o=o & "<tr><td>" & item & "</td><td>" & Request.Form(item) &
    "</td></tr>"
    Next
    o=o & "<tr><th colspan='2'>Cookies</th></tr>"
    For Each item in Request.Cookies
    o=o & "<tr><td>" & item & "</td><td>" & Request.Cookies(item) &
    "</td></tr>"
    Next
    o=o & "<tr><th colspan='2'>Client Certificate</th></tr>"
    For Each item in Request.ClientCertificate
    o=o & "<tr><td>" & item & "</td><td>" &
    Request.ClientCertificate(item) & "</td></tr>"
    Next
    o=o & "<tr><th colspan='2'>ServerVariables</th></tr>"
    For Each item in Request.ServerVariables
    o=o & "<tr><td>" & item & "</td><td>" & Request.ServerVariables(item)
    & "</td></tr>"
    Next
    o=o & "<tr><th colspan='2'>Session</th></tr>"
    For Each item in Session.Contents
    If IsObject(Session.Contents(item)) Then
    o=o & "<tr><td>" & item & "</td><td>[Object]</td></tr>"
    Else If IsArray(Session.Contents(item)) Then
    o=o & "<tr><td>" & item & ":</td><td>[Array]</td></tr>"
    Dim ArrayItem
    For Each ArrayItem In Session.Contents(item)
    o=o & "<tr><td>&nbsp;</td></td><td>" & ArrayItem & "</td></tr>"
    Next
    Else
    o=o & "<tr><td>" & item & "</td><td>" & Session.Contents(item) &
    "</td></tr>"
    End If
    End If
    Next
    o=o & "</table>"
    DebugDump=o
    End Function
    %>
    Chris Hohmann, Oct 12, 2003
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Jeff Smythe
    Replies:
    3
    Views:
    1,226
    Jeff Smythe
    Jan 2, 2004
  2. =?Utf-8?B?Sm9l?=

    Show Details/Hide Details link button

    =?Utf-8?B?Sm9l?=, Mar 13, 2006, in forum: ASP .Net
    Replies:
    1
    Views:
    897
    dkode
    Mar 13, 2006
  3. =?Utf-8?B?QmlzaG95?=
    Replies:
    1
    Views:
    297
    Mark Fitzpatrick
    Dec 24, 2006
  4. Greenhorn
    Replies:
    15
    Views:
    796
    Keith Thompson
    Mar 6, 2005
  5. Rich_C
    Replies:
    4
    Views:
    108
    Rich_C
    Aug 8, 2005
Loading...

Share This Page