Subversion Repositories DevTools

Rev

Rev 5299 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5299 Rev 5354
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          Computer Users				 |
 5 
'|			          Computer Users				 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_computer_common.asp"-->
 16 
<!--#include file="common/_computer_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
'------------ CONSTANTS DECLARATION -----------
 24 
'------------ CONSTANTS DECLARATION -----------
25 
'------------ VARIABLE INIT -------------------
 25 
'------------ VARIABLE INIT -------------------
26 
'------------ CONDITIONS ----------------------
 26 
'------------ CONDITIONS ----------------------
27 
'----------------------------------------------
 27 
'----------------------------------------------
28 
%>
 28 
%>
29 
<%
 29 
<%
30 
'------------ RUN BEFORE PAGE RENDER ----------
 30 
'------------ RUN BEFORE PAGE RENDER ----------
31 
Call GetComputerDetails ( parClient_ip, objComputerCollector )
 31 
Call GetComputerDetails ( parClient_ip, objComputerCollector )
32 
'----------------------------------------------
 32 
'----------------------------------------------
33 
%>
 33 
%>
34 
<html>
 34 
<html>
35 
<head>
 35 
<head>
36 
<title>Access Manager</title>
 36 
<title>Access Manager</title>
37 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 37 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
38 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 38 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
39 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 39 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
40 
</head>
 40 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
41 
 
 41 
</head>
42 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 42 
 
43 
<!-- HEADER ++++++++++++++++++++++ -->
 43 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
44 
<!--#include file="_header.asp"-->
 44 
<!-- HEADER ++++++++++++++++++++++ -->
45 
<!-- +++++++++++++++++++++++++++++ -->
 45 
<!--#include file="_header.asp"-->
46 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 46 
<!-- +++++++++++++++++++++++++++++ -->
47 
  <tr>
 47 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
48 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
 48 
  <tr>
49 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 49 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
50 
	<!--#include file="_treeNavigator.asp"-->
50 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
51 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 51 
	<!--#include file="_treeNavigator.asp"-->
52 
	</td>
 52 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
53 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 53 
	</td>
54 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
 54 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
55 
      <tr>
 55 
    <td width="100%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="9">
56 
        <td background="images/bg_drk_bage_pane.gif">
 56 
      <tr>
57 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 57 
        <td background="images/bg_drk_bage_pane.gif">
58 
            <tr>
 58 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
59 
              <td nowrap class="body_txt">
 59 
            <tr>
60 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 60 
              <td nowrap class="body_txt">
61 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 61 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
62 
			  </td>
 62 
				<!-- +++++++++++++++++++++++++++++++++++ -->
63 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
 63 
			  </td>
64 
            </tr>
 64 
              <td align="right" nowrap class="section_ttl"><%=PARENT_TITLE%></td>
65 
          </table>
 65 
            </tr>
66 
		</td>
 66 
          </table>
67 
      </tr>
 67 
		</td>
68 
	  <tr>
 68 
      </tr>
69 
        <td class="menu_crumbttl"><%Call RenderTitle ( objComputerCollector )%></td>
 69 
	  <tr>
70 
      </tr>
 70 
        <td class="menu_crumbttl"><%Call RenderTitle ( objComputerCollector )%></td>
71 
      <tr>
 71 
      </tr>
72 
        <td>
 72 
      <tr>
73 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 73 
        <td>
74 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 74 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
75 
			<!--#include file="_tabs_definition.asp"-->
 75 
		 	<!-- TAB CONTROLS ++++++++++++++++++++++ -->
76 
			<%
 76 
			<!--#include file="_tabs_definition.asp"-->
77 
			Set objTabControl = New TabControl
 77 
			<%
78 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
 78 
			Set objTabControl = New TabControl
79 
			objTabControl.TabStyle = "StyleMac"
 79 
			objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
80 
			objTabControl.AddTabDefnition ( arrComputer )
 80 
			objTabControl.TabStyle = "StyleMac"
81 
			'objTabControl.SelectByName ( "Members" )
 81 
			objTabControl.AddTabDefnition ( arrComputer )
82 
			objTabControl.Render ()
 82 
			'objTabControl.SelectByName ( "Members" )
83 
			%>
 83 
			objTabControl.Render ()
84 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
 84 
			%>
85 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 85 
			<!-- END OF TAB CONTROLS +++++++++++++++ -->
86 
          <tr>
 86 
		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
87 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
 87 
          <tr>
88 
            <td width="100%" valign="top">
 88 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="500"></td>
89 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
 89 
            <td width="100%" valign="top">
90 
                <tr>
 90 
			  <table width="100%"  border="0" cellspacing="10" cellpadding="0">
91 
                  <td>
 91 
                <tr>
92 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
 92 
                  <td>
93 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 93 
				  <!-- TAB DETAILS +++++++++++++++++++++++++++++ -->
94 
			          <tr>
 94 
					<table width="100%"  border="0" cellspacing="3" cellpadding="0">
95 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 95 
			          <tr>
96 
						<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 96 
					  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
97 
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 97 
						<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
98 
			              <tr>
 98 
			            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
99 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
 99 
			              <tr>
100 
			              </tr>
 100 
			                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
101 
			            </table></td>
 101 
			              </tr>
102 
			            <td width="30%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
 102 
			            </table></td>
103 
			            <td width="60%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 103 
			            <td width="30%" align="right" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
104 
			          </tr>
 104 
			            <td width="60%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
105 
					  <%
 105 
			          </tr>
106 
					  OraDatabase.Parameters.Add "CLIENT_IP", parClient_ip,	ORAPARM_INPUT, ORATYPE_VARCHAR2
 106 
					  <%
107
107 
					  OraDatabase.Parameters.Add "CLIENT_IP", parClient_ip,	ORAPARM_INPUT, ORATYPE_VARCHAR2
108 
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ComputerUsers.sql") , ORADYN_DEFAULT )
 108
109 
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 109 
					  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ComputerUsers.sql") , ORADYN_DEFAULT )
110 
					  %>
 110 
					  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
111 
			          <tr>
 111 
					  %>
112 
					  	<td align="center"><input type="checkbox" name="user_id" value="<%=rsQry("user_id")%>"></td>
 112 
			          <tr>
113 
						<td align="center"><%=rsQry("user_online")%></td>
 113 
					  	<td align="center"><input type="checkbox" name="user_id" value="<%=rsQry("user_id")%>"></td>
114 
						<td nowrap class="body_row"><a title="See User General Info" href="User_General.asp?user_id=<%=rsQry("user_id")%>&<%=objPMod.ComposeURL%>" class="body_link"><%=Eval( rsQry("user_image") )  &  rsQry("full_name")%></a></td>
 114 
						<td align="center"><%=rsQry("user_online")%></td>
115 
						<td class="body_rowg"><%=rsQry("user_name")%></td>
 115 
						<td nowrap class="body_row"><a title="See User General Info" href="User_General.asp?user_id=<%=rsQry("user_id")%>&<%=objPMod.ComposeURL%>" class="body_link"><%=Eval( rsQry("user_image") )  &  rsQry("full_name")%></a></td>
116 
			            <td ></td>
 116 
						<td class="body_rowg"><%=rsQry("user_name")%></td>
117 
			          </tr>
 117 
			            <td ></td>
118 
					  <%rsQry.MoveNext%>
 118 
			          </tr>
119
119 
					  <%rsQry.MoveNext%>
120 
					  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 120
121 
			          <tr>
 121 
					  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
122 
			            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 122 
			          <tr>
123 
			          </tr>
 123 
			            <td colspan="5" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
124 
					  <%End If%>
 124 
			          </tr>
125
125 
					  <%End If%>
126 
					  <%
 126
127 
					  WEnd
 127 
					  <%
128
128 
					  WEnd
129 
					  OraDatabase.Parameters.Remove "CLIENT_IP"
 129
130 
					  %>
 130 
					  OraDatabase.Parameters.Remove "CLIENT_IP"
131 
			          <tr>
 131 
					  %>
132 
			            <td colspan="5" background="images/bg_table_border.gif">
 132 
			          <tr>
133 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 133 
			            <td colspan="5" background="images/bg_table_border.gif">
134 
			              <tr>
 134 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
135 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 135 
			              <tr>
136 
			              </tr>
 136 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
137 
			             </table>
 137 
			              </tr>
138 
						</td>
 138 
			             </table>
139 
			          </tr>
 139 
						</td>
140 
			         </table>
 140 
			          </tr>
141 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
 141 
			         </table>
142 
				  </td>
 142 
				  <!-- +++++++++++++++++++++++++++++++++++++++++ -->
143 
                </tr>
 143 
				  </td>
144 
              </table>
 144 
                </tr>
145 
			</td>
 145 
              </table>
146 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 146 
			</td>
147 
          </tr>
 147 
            <td width="1" background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
148 
         </table>
 148 
          </tr>
149 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 149 
         </table>
150 
           <tr>
 150 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
151 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 151 
           <tr>
152 
           </tr>
 152 
             <td background="images/bg_gray_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
153 
         </table>
 153 
           </tr>
154 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 154 
         </table>
155 
         <br></td>
 155 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
156 
      </tr>
 156 
         <br></td>
157 
    </table></td>
 157 
      </tr>
158 
  </tr>
 158 
    </table></td>
159 
</table>
 159 
  </tr>
160 
<!-- FOOTER ++++++++++++++++++++++ -->
 160 
</table>
161 
<!--#include file="_footer.asp"-->
 161 
<!-- FOOTER ++++++++++++++++++++++ -->
162 
<!-- +++++++++++++++++++++++++++++ -->
 162 
<!--#include file="_footer.asp"-->
163 
</body>
 163 
<!-- +++++++++++++++++++++++++++++ -->
164 
</html>
 164 
</body>
165 
<%
 165 
</html>
166 
'------------ RUN AFTER PAGE RENDER -----------
 166 
<%
167 
'----------------------------------------------
 167 
'------------ RUN AFTER PAGE RENDER -----------
168 
%>
 168 
'----------------------------------------------
- 
 
 169 
%>
169 
<!--#include file="common/globals_destructor.asp"-->
 170 
<!--#include file="common/globals_destructor.asp"-->
170 

            171