Subversion Repositories DevTools

Rev

Rev 6181 | 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>
94
 
95
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
96
      <tr class="body_col tablehdr">
97
      <td>Session Variables</td>
98
      <td>Value</td>
99
   </tr>
100
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
101
   <%for each name in Session.Contents
102
       datatype = TypeName(Session(name)) & ":" & VarType(Session(name))
103
       If VarType(Session(name)) < 100 Then
104
           data  = Session(name)
105
       Else
106
           data = "Cannot be displayed"
107
       End If
108
    %>
109
   <tr class="body_row">
110
     <td> <%= name %></td>
111
     <td> [<%=datatype%>] : <%=data%></td>
112
   </tr>
113
   <%Next%>
114
 
115
   <tr class="body_row">
116
     <td>Timeout</td>
117
     <td><%=Session.Timeout%></td>
118
   </tr>
119
   <tr class="body_row">
120
     <td>SessionId</td>
121
     <td><%=Session.SessionId%></td>
122
   </tr>
123
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
124
   <tr class="body_col tablehdr">
125
      <td>Application Variables</td>
126
      <td>Value</td>
127
   </tr>
128
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
129
 
5375 dpurdie 130
   <%for each name in Application.Contents
131
       If VarType(Application(name)) < 100 Then
132
           data  = Application(name)
133
       Else
134
           data = "Cannot display data type:" & TypeName(Application(name)) & ":" & VarType(Application(name))
135
       End If
136
   %>
5357 dpurdie 137
   <tr class="body_row">
138
     <td><%= name %></td>
5375 dpurdie 139
     <td><%= data %></td>
5357 dpurdie 140
   </tr>
141
   <%Next%>
142
   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
143
   <tr class="body_col tablehdr">
144
      <td colspan="2">
145
       <a class="form_btn" href="admin_session_details.asp" title="Refresh Page">Refresh</a>
146
       <a class="form_btn" href="admin_session_details.asp?detail=1" title="More Detail">More</a>
147
      </td>
148
   </tr>
149
   <%End If%>
150
</table>
151
 <p>
5957 dpurdie 152
<!-- FOOTER -->
153
<!--#include file="_footer.asp"-->
5357 dpurdie 154
</body>
155
</html>