Subversion Repositories DevTools

Rev

Rev 5983 | Rev 6070 | Go to most recent revision | 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 
%>
6048 dpurdie 20 
<!--#include file="_access_control_login.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">
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>
5983 dpurdie 43 
<!--#include file="_jquery_includes.asp"-->
5357 dpurdie 44 
<!-- DROPDOWN MENUS -->
45 
<!--#include file="_menu_def.asp"-->
46 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
47 
<!-- StyleSheet Extensions -->
48 
<style>
49 
.pagebody {margin-left:auto; margin-right:auto; width:50%;border-width: 0px;border-spacing: 2px; background-color: rgb(255, 204, 0)}
50 
.pagebody td{vertical-align: top;text-align: left;padding-left: 3px;padding-right: 3px; background: #f2f0e4}
51 
.tablehdr td{background-color: rgb(255, 204, 0)}
52 
</style>
53 
</head>
54 
 
55 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
56 
<!-- MENU LAYERS -------------------------------------->
57 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
58 
</div>
59 
<!-- TIPS LAYERS -------------------------------------->
60 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
61 
<!-- HEADER -->
62 
<!--#include file="_header.asp"-->
63 
<p>
64 
<!-- Body of the page -->
65 
<table class="pagebody">
66 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
67 
      <tr class="body_col tablehdr">
68 
      <td>Server Request Variables</td>
69 
      <td>Value</td>
70 
   </tr>
71 
   <%If active Then %>
72 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
73 
 
74 
   <%If parServerReq <> "" Then %>
75 
   <%for each name in request.servervariables%>
76 
   <tr class="body_row">
77 
     <td> <%= name %></td>
78 
     <td> <%= request.servervariables(name) %></td>
79 
   </tr>
80 
   <%Next%>
81 
   <%Else%>
82 
   <tr class="body_row">
83 
     <td></td>
84 
     <td>
85 
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">Show</a>
86 
     </td>
87 
   </tr>
88 
   <%End If%>
89 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
90 
      <tr class="body_col tablehdr">
91 
      <td>System Variables</td>
92 
      <td>Value</td>
93 
   </tr>
94 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
95 
   <tr class="body_row">
96 
     <td>Server Date Time</td>
97 
     <td><%=Day(Now)%>-<%=Month(Now)%>-<%=Year(Now)%>&nbsp;<%=Time()%></td>
98 
   </tr>
99 
 
100 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
101 
      <tr class="body_col tablehdr">
102 
      <td>Session Variables</td>
103 
      <td>Value</td>
104 
   </tr>
105 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
106 
   <%for each name in Session.Contents
107 
       datatype = TypeName(Session(name)) & ":" & VarType(Session(name))
108 
       If VarType(Session(name)) < 100 Then
109 
           data  = Session(name)
110 
       Else
111 
           data = "Cannot be displayed"
112 
       End If
113 
    %>
114 
   <tr class="body_row">
115 
     <td> <%= name %></td>
116 
     <td> [<%=datatype%>] : <%=data%></td>
117 
   </tr>
118 
   <%Next%>
119 
 
120 
   <tr class="body_row">
121 
     <td>Timeout</td>
122 
     <td><%=Session.Timeout%></td>
123 
   </tr>
124 
   <tr class="body_row">
125 
     <td>SessionId</td>
126 
     <td><%=Session.SessionId%></td>
127 
   </tr>
128 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
129 
   <tr class="body_col tablehdr">
130 
      <td>Application Variables</td>
131 
      <td>Value</td>
132 
   </tr>
133 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
134 
 
5375 dpurdie 135 
   <%for each name in Application.Contents
136 
       If VarType(Application(name)) < 100 Then
137 
           data  = Application(name)
138 
       Else
139 
           data = "Cannot display data type:" & TypeName(Application(name)) & ":" & VarType(Application(name))
140 
       End If
141 
   %>
5357 dpurdie 142 
   <tr class="body_row">
143 
     <td><%= name %></td>
5375 dpurdie 144 
     <td><%= data %></td>
5357 dpurdie 145 
   </tr>
146 
   <%Next%>
147 
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
148 
   <tr class="body_col tablehdr">
149 
      <td colspan="2">
150 
       <a class="form_btn" href="admin_session_details.asp" title="Refresh Page">Refresh</a>
151 
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">More</a>
152 
      </td>
153 
   </tr>
154 
   <%End If%>
155 
</table>
156 
 <p>
5957 dpurdie 157 
<!-- FOOTER -->
158 
<!--#include file="_footer.asp"-->
5357 dpurdie 159 
</body>
160 
</html>