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. Advertisements

  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. Advertisements

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. PvdK
    Replies:
    0
    Views:
    3,129
  2. Jeff Smythe
    Replies:
    3
    Views:
    1,545
    Jeff Smythe
    Jan 2, 2004
  3. =?Utf-8?B?Sm9l?=

    Show Details/Hide Details link button

    =?Utf-8?B?Sm9l?=, Mar 13, 2006, in forum: ASP .Net
    Replies:
    1
    Views:
    1,101
    dkode
    Mar 13, 2006
  4. =?Utf-8?B?QmlzaG95?=
    Replies:
    1
    Views:
    383
    Mark Fitzpatrick
    Dec 24, 2006
  5. Greenhorn
    Replies:
    15
    Views:
    1,115
    Keith Thompson
    Mar 6, 2005
  6. =?Utf-8?B?Um9iSEs=?=
    Replies:
    4
    Views:
    5,844
    =?Utf-8?B?Um9iSEs=?=
    Apr 11, 2007
  7. Jazzis
    Replies:
    2
    Views:
    416
    Jazzis
    Sep 23, 2003
  8. Rich_C
    Replies:
    4
    Views:
    189
    Rich_C
    Aug 8, 2005
Loading...