Subversion Repositories DevTools

Rev

Rev 6647 | 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
%>
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
<!-- 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
<!-- HEADER -->
57
<!--#include file="_header.asp"-->
58
<p>
59
<!-- Body of the page -->
60
<table class="pagebody">
61
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
62
      <tr class="body_col tablehdr">
63
      <td>Server Request Variables</td>
64
      <td>Value</td>
65
   </tr>
66
   <%If active Then %>
67
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
68
 
69
   <%If parServerReq <> "" Then %>
70
   <%for each name in request.servervariables%>
71
   <tr class="body_row">
72
     <td> <%= name %></td>
73
     <td> <%= request.servervariables(name) %></td>
74
   </tr>
75
   <%Next%>
76
   <%Else%>
77
   <tr class="body_row">
78
     <td></td>
79
     <td>
80
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">Show</a>
81
     </td>
82
   </tr>
83
   <%End If%>
84
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
85
      <tr class="body_col tablehdr">
86
      <td>System Variables</td>
87
      <td>Value</td>
88
   </tr>
89
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
90
   <tr class="body_row">
91
     <td>Server Date Time</td>
92
     <td><%=Day(Now)%>-<%=Month(Now)%>-<%=Year(Now)%>&nbsp;<%=Time()%></td>
93
   </tr>
6647 dpurdie 94
   <tr class="body_row">
95
     <td>Root Server Map</td>
96
     <td><%= Server.MapPath(".")%></td>
97
   </tr>
98
   <tr class="body_row">
99
     <td>Root Physical Path</td>
100
     <td><%=request.servervariables("APPL_PHYSICAL_PATH")%></td>
101
   </tr>
6688 dpurdie 102
   <tr class="body_row">
103
     <td>siteRootUrl</td>
104
     <td><%=siteRootUrl%></td>
105
   </tr>
106
   <tr class="body_row">
107
     <td>managerSuiteBase</td>
108
     <td><%=managerSuiteBase%></td>
109
   </tr>
5357 dpurdie 110
 
111
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
112
      <tr class="body_col tablehdr">
113
      <td>Session Variables</td>
114
      <td>Value</td>
115
   </tr>
116
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
117
   <%for each name in Session.Contents
118
       datatype = TypeName(Session(name)) & ":" & VarType(Session(name))
119
       If VarType(Session(name)) < 100 Then
120
           data  = Session(name)
121
       Else
122
           data = "Cannot be displayed"
123
       End If
124
    %>
125
   <tr class="body_row">
126
     <td> <%= name %></td>
127
     <td> [<%=datatype%>] : <%=data%></td>
128
   </tr>
129
   <%Next%>
130
 
131
   <tr class="body_row">
132
     <td>Timeout</td>
133
     <td><%=Session.Timeout%></td>
134
   </tr>
135
   <tr class="body_row">
136
     <td>SessionId</td>
137
     <td><%=Session.SessionId%></td>
138
   </tr>
139
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
140
   <tr class="body_col tablehdr">
141
      <td>Application Variables</td>
142
      <td>Value</td>
143
   </tr>
144
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
145
 
5375 dpurdie 146
   <%for each name in Application.Contents
147
       If VarType(Application(name)) < 100 Then
148
           data  = Application(name)
149
       Else
150
           data = "Cannot display data type:" & TypeName(Application(name)) & ":" & VarType(Application(name))
151
       End If
152
   %>
5357 dpurdie 153
   <tr class="body_row">
154
     <td><%= name %></td>
5375 dpurdie 155
     <td><%= data %></td>
5357 dpurdie 156
   </tr>
157
   <%Next%>
158
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
159
   <tr class="body_col tablehdr">
160
      <td colspan="2">
161
       <a class="form_btn" href="admin_session_details.asp" title="Refresh Page">Refresh</a>
162
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">More</a>
163
      </td>
164
   </tr>
165
   <%End If%>
166
</table>
167
 <p>
5957 dpurdie 168
<!-- FOOTER -->
169
<!--#include file="_footer.asp"-->
5357 dpurdie 170
</body>
171
</html>