Subversion Repositories DevTools

Rev

Rev 6688 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
6048 dpurdie 4 
'   ADMIN Page
5 
'   Display Session Details
5357 dpurdie 6 
'=====================================================
7 
%>
8 
<%
9 
Option explicit
10 
' Good idea to set when using redirect
11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/qstr.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
6181 dpurdie 20 
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 21 
<!--#include file="_access_control_general.asp"-->
22 
<%
23 
'------------ Variable Definition -------------
24 
Dim name, datatype, data
25 
Dim active
26 
Dim parServerReq
27 
 
28 
'------------ Constants Declaration -----------
29 
'------------ Variable Init -------------------
30 
active = canActionControl("MSMaintainer")
31 
parServerReq = Request("detail")
32 
'----------------------------------------------
33 
%>
34 
<html>
35 
<head>
36 
<title>Admin Session Variables</title>
37 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
38 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
39 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 40 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
41 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
42 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5983 dpurdie 43 
<!--#include file="_jquery_includes.asp"-->
5357 dpurdie 44 
<!-- DROPDOWN MENUS -->
45 
<!--#include file="_menu_def.asp"-->
6579 dpurdie 46 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 47 
</head>
48 
 
49 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
50 
<!-- HEADER -->
51 
<!--#include file="_header.asp"-->
52 
<p>
53 
<!-- Body of the page -->
6877 dpurdie 54 
<table class="stdYellow">
5357 dpurdie 55 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6877 dpurdie 56 
      <tr class="header">
5357 dpurdie 57 
      <td>Server Request Variables</td>
58 
      <td>Value</td>
59 
   </tr>
60 
   <%If active Then %>
61 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
62 
 
63 
   <%If parServerReq <> "" Then %>
64 
   <%for each name in request.servervariables%>
6877 dpurdie 65 
   <tr>
5357 dpurdie 66 
     <td> <%= name %></td>
67 
     <td> <%= request.servervariables(name) %></td>
68 
   </tr>
69 
   <%Next%>
70 
   <%Else%>
6877 dpurdie 71 
   <tr>
5357 dpurdie 72 
     <td></td>
73 
     <td>
74 
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">Show</a>
75 
     </td>
76 
   </tr>
77 
   <%End If%>
78 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6877 dpurdie 79 
      <tr class="header">
5357 dpurdie 80 
      <td>System Variables</td>
81 
      <td>Value</td>
82 
   </tr>
83 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6877 dpurdie 84 
   <tr>
5357 dpurdie 85 
     <td>Server Date Time</td>
86 
     <td><%=Day(Now)%>-<%=Month(Now)%>-<%=Year(Now)%>&nbsp;<%=Time()%></td>
87 
   </tr>
6877 dpurdie 88 
   <tr>
6647 dpurdie 89 
     <td>Root Server Map</td>
90 
     <td><%= Server.MapPath(".")%></td>
91 
   </tr>
6877 dpurdie 92 
   <tr>
6647 dpurdie 93 
     <td>Root Physical Path</td>
94 
     <td><%=request.servervariables("APPL_PHYSICAL_PATH")%></td>
95 
   </tr>
6877 dpurdie 96 
   <tr>
6688 dpurdie 97 
     <td>siteRootUrl</td>
98 
     <td><%=siteRootUrl%></td>
99 
   </tr>
6877 dpurdie 100 
   <tr>
6688 dpurdie 101 
     <td>managerSuiteBase</td>
102 
     <td><%=managerSuiteBase%></td>
103 
   </tr>
5357 dpurdie 104 
 
105 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6877 dpurdie 106 
      <tr class="header">
5357 dpurdie 107 
      <td>Session Variables</td>
108 
      <td>Value</td>
109 
   </tr>
110 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
111 
   <%for each name in Session.Contents
112 
       datatype = TypeName(Session(name)) & ":" & VarType(Session(name))
113 
       If VarType(Session(name)) < 100 Then
114 
           data  = Session(name)
115 
       Else
116 
           data = "Cannot be displayed"
117 
       End If
118 
    %>
6877 dpurdie 119 
   <tr>
5357 dpurdie 120 
     <td> <%= name %></td>
121 
     <td> [<%=datatype%>] : <%=data%></td>
122 
   </tr>
123 
   <%Next%>
124 
 
6877 dpurdie 125 
   <tr>
5357 dpurdie 126 
     <td>Timeout</td>
127 
     <td><%=Session.Timeout%></td>
128 
   </tr>
6877 dpurdie 129 
   <tr>
5357 dpurdie 130 
     <td>SessionId</td>
131 
     <td><%=Session.SessionId%></td>
132 
   </tr>
133 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6877 dpurdie 134 
   <tr class="header">
5357 dpurdie 135 
      <td>Application Variables</td>
136 
      <td>Value</td>
137 
   </tr>
138 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
139 
 
5375 dpurdie 140 
   <%for each name in Application.Contents
141 
       If VarType(Application(name)) < 100 Then
142 
           data  = Application(name)
143 
       Else
144 
           data = "Cannot display data type:" & TypeName(Application(name)) & ":" & VarType(Application(name))
145 
       End If
146 
   %>
6877 dpurdie 147 
   <tr>
5357 dpurdie 148 
     <td><%= name %></td>
5375 dpurdie 149 
     <td><%= data %></td>
5357 dpurdie 150 
   </tr>
151 
   <%Next%>
152 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
6877 dpurdie 153 
   <tr class="header">
5357 dpurdie 154 
      <td colspan="2">
155 
       <a class="form_btn" href="admin_session_details.asp" title="Refresh Page">Refresh</a>
156 
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">More</a>
157 
      </td>
158 
   </tr>
159 
   <%End If%>
160 
</table>
161 
 <p>
5957 dpurdie 162 
<!-- FOOTER -->
163 
<!--#include file="_footer.asp"-->
5357 dpurdie 164 
</body>
165 
</html>