Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4399 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|                ADMIN Page                         |
6 
'|               Display Session Details             |
7 
'|                                                   |
8 
'=====================================================
9 
%>
10 
<%
11 
Option explicit
12 
' Good idea to set when using redirect
13 
Response.Expires = 0   ' always load the page, dont store
14 
%>
15 
<!--#include file="common/conf.asp"-->
16 
<!--#include file="common/globals.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<%
20 
'------------ ACCESS CONTROL ------------------
21 
%>
22 
<!--#include file="_access_control_general.asp"-->
23 
<%
24 
'------------ Variable Definition -------------
25 
Dim name, datatype, data
26 
Dim active
27 
Dim parServerReq
28 
 
29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
5061 dpurdie 31 
active = canActionControl("MSMaintainer")
4399 dpurdie 32 
parServerReq = Request("detail")
33 
'----------------------------------------------
34 
%>
35 
<html>
36 
<head>
37 
<title>Admin Session Variables</title>
38 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
39 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
40 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
41 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
42 
<script language="JavaScript" src="images/common.js"></script>
43 
<!-- DROPDOWN MENUS -->
44 
<!--#include file="_menu_def.asp"-->
45 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
46 
<!-- StyleSheet Extensions -->
47 
<style>
48 
.pagebody {margin-left:auto; margin-right:auto; width:50%;border-width: 0px;border-spacing: 2px; background-color: rgb(255, 204, 0)}
49 
.pagebody td{vertical-align: top;text-align: left;padding-left: 3px;padding-right: 3px; background: #f2f0e4}
50 
.tablehdr td{background-color: rgb(255, 204, 0)}
51 
</style>
52 
</head>
53 
 
54 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
55 
<!-- MENU LAYERS -------------------------------------->
56 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
57 
</div>
58 
<!-- TIPS LAYERS -------------------------------------->
59 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
60 
<!-- HEADER -->
61 
<!--#include file="_header.asp"-->
62 
<p>
63 
<!-- Body of the page -->
64 
<table class="pagebody">
65 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
66 
      <tr class="body_col tablehdr">
67 
      <td>Server Request Variables</td>
68 
      <td>Value</td>
69 
   </tr>
70 
   <%If active Then %>
71 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
72 
 
73 
   <%If parServerReq <> "" Then %>
74 
   <%for each name in request.servervariables%>
75 
   <tr class="body_row">
76 
     <td> <%= name %></td>
77 
     <td> <%= request.servervariables(name) %></td>
78 
   </tr>
79 
   <%Next%>
80 
   <%Else%>
81 
   <tr class="body_row">
82 
     <td></td>
83 
     <td>
84 
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">Show</a>
85 
     </td>
86 
   </tr>
87 
   <%End If%>
88 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
89 
      <tr class="body_col tablehdr">
4703 dpurdie 90 
      <td>System Variables</td>
91 
      <td>Value</td>
92 
   </tr>
93 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
94 
   <tr class="body_row">
95 
     <td>Server Date Time</td>
96 
     <td><%=Day(Now)%>-<%=Month(Now)%>-<%=Year(Now)%>&nbsp;<%=Time()%></td>
97 
   </tr>
98 
 
99 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
100 
      <tr class="body_col tablehdr">
4399 dpurdie 101 
      <td>Session Variables</td>
102 
      <td>Value</td>
103 
   </tr>
104 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
105 
   <%for each name in Session.Contents
106 
       datatype = TypeName(Session(name)) & ":" & VarType(Session(name))
107 
       If VarType(Session(name)) < 100 Then
108 
           data  = Session(name)
109 
       Else
110 
           data = "Cannot be displayed"
111 
       End If
112 
    %>
113 
   <tr class="body_row">
114 
     <td> <%= name %></td>
115 
     <td> [<%=datatype%>] : <%=data%></td>
116 
   </tr>
117 
   <%Next%>
118 
 
119 
   <tr class="body_row">
120 
     <td>Timeout</td>
121 
     <td><%=Session.Timeout%></td>
122 
   </tr>
123 
   <tr class="body_row">
124 
     <td>SessionId</td>
125 
     <td><%=Session.SessionId%></td>
126 
   </tr>
127 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
128 
   <tr class="body_col tablehdr">
129 
      <td>Application Variables</td>
130 
      <td>Value</td>
131 
   </tr>
132 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
133 
 
134 
   <%for each name in Application.Contents%>
135 
   <tr class="body_row">
136 
     <td><%= name %></td>
137 
     <td><%= Application(name) %></td>
138 
   </tr>
139 
   <%Next%>
140 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
141 
   <tr class="body_col tablehdr">
142 
      <td colspan="2">
143 
       <a class="form_btn" href="admin_session_details.asp" title="Refresh Page">Refresh</a>
144 
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">More</a>
145 
      </td>
146 
   </tr>
147 
   <%End If%>
148 
</table>
149 
 <p>
150 
</body>
151 
</html>
152 
<!-- FOOTER -->
153 
<!--#include file="_footer.asp"-->
154 
<%
155 
Call Destroy_All_Objects
156 
%>