Subversion Repositories DevTools

Rev

Rev 6647 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@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
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login_optional.asp"-->
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim name, datatype, data
Dim active
Dim parServerReq

'------------ Constants Declaration -----------
'------------ Variable Init -------------------
active = canActionControl("MSMaintainer")
parServerReq = Request("detail")
'----------------------------------------------
%>
<html>
<head>
<title>Admin Session Variables</title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
<!--#include file="_jquery_includes.asp"-->
<!-- DROPDOWN MENUS -->
<!--#include file="_menu_def.asp"-->
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
<!-- StyleSheet Extensions -->
<style>
.pagebody {margin-left:auto; margin-right:auto; width:50%;border-width: 0px;border-spacing: 2px; background-color: rgb(255, 204, 0)}
.pagebody td{vertical-align: top;text-align: left;padding-left: 3px;padding-right: 3px; background: #f2f0e4}
.tablehdr td{background-color: rgb(255, 204, 0)}
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
<!-- HEADER -->
<!--#include file="_header.asp"-->
<p>
<!-- Body of the page -->
<table class="pagebody">
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
      <tr class="body_col tablehdr">
      <td>Server Request Variables</td>
      <td>Value</td>
   </tr>
   <%If active Then %>
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

   <%If parServerReq <> "" Then %>
   <%for each name in request.servervariables%>
   <tr class="body_row">
     <td> <%= name %></td>
     <td> <%= request.servervariables(name) %></td>
   </tr>
   <%Next%>
   <%Else%>
   <tr class="body_row">
     <td></td>
     <td>
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">Show</a>
     </td>
   </tr>
   <%End If%>
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
      <tr class="body_col tablehdr">
      <td>System Variables</td>
      <td>Value</td>
   </tr>
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
   <tr class="body_row">
     <td>Server Date Time</td>
     <td><%=Day(Now)%>-<%=Month(Now)%>-<%=Year(Now)%>&nbsp;<%=Time()%></td>
   </tr>
   <tr class="body_row">
     <td>Root Server Map</td>
     <td><%= Server.MapPath(".")%></td>
   </tr>
   <tr class="body_row">
     <td>Root Physical Path</td>
     <td><%=request.servervariables("APPL_PHYSICAL_PATH")%></td>
   </tr>
   <tr class="body_row">
     <td>siteRootUrl</td>
     <td><%=siteRootUrl%></td>
   </tr>
   <tr class="body_row">
     <td>managerSuiteBase</td>
     <td><%=managerSuiteBase%></td>
   </tr>

   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
      <tr class="body_col tablehdr">
      <td>Session Variables</td>
      <td>Value</td>
   </tr>
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
   <%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
    %>
   <tr class="body_row">
     <td> <%= name %></td>
     <td> [<%=datatype%>] : <%=data%></td>
   </tr>
   <%Next%>

   <tr class="body_row">
     <td>Timeout</td>
     <td><%=Session.Timeout%></td>
   </tr>
   <tr class="body_row">
     <td>SessionId</td>
     <td><%=Session.SessionId%></td>
   </tr>
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
   <tr class="body_col tablehdr">
      <td>Application Variables</td>
      <td>Value</td>
   </tr>
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

   <%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
   %>
   <tr class="body_row">
     <td><%= name %></td>
     <td><%= data %></td>
   </tr>
   <%Next%>
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
   <tr class="body_col tablehdr">
      <td colspan="2">
       <a class="form_btn" href="admin_session_details.asp" title="Refresh Page">Refresh</a>
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">More</a>
      </td>
   </tr>
   <%End If%>
</table>
 <p>
<!-- FOOTER -->
<!--#include file="_footer.asp"-->
</body>
</html>