<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' ADMIN Page ' Display Session Details '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim name, datatype, data Dim active Dim parServerReq '------------ Constants Declaration ----------- '------------ Variable Init ------------------- active = canActionControl("MSMaintainer") parServerReq = Request("detail") '---------------------------------------------- %> Admin Session Variables

<%If active Then %> <%If parServerReq <> "" Then %> <%for each name in request.servervariables%> <%Next%> <%Else%> <%End If%> <%for each name in Session.Contents datatype = TypeName(Session(name)) & ":" & VarType(Session(name)) If VarType(Session(name)) < 100 Then data = Session(name) Else data = "Cannot be displayed" End If %> <%Next%> <%for each name in Application.Contents If VarType(Application(name)) < 100 Then data = Application(name) Else data = "Cannot display data type:" & TypeName(Application(name)) & ":" & VarType(Application(name)) End If %> <%Next%> <%End If%>
Server Request Variables Value
<%= name %> <%= request.servervariables(name) %>
Show
System Variables Value
Server Date Time <%=Day(Now)%>-<%=Month(Now)%>-<%=Year(Now)%> <%=Time()%>
Root Server Map <%= Server.MapPath(".")%>
Root Physical Path <%=request.servervariables("APPL_PHYSICAL_PATH")%>
siteRootUrl <%=siteRootUrl%>
managerSuiteBase <%=managerSuiteBase%>
Session Variables Value
<%= name %> [<%=datatype%>] : <%=data%>
Timeout <%=Session.Timeout%>
SessionId <%=Session.SessionId%>
Application Variables Value
<%= name %> <%= data %>
Refresh More