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 
'|			          Application List				 |
 5 
'|			          Application List				 |
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="class/classActionButtonControl.asp"-->
 16 
<!--#include file="class/classActionButtonControl.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 
Dim objBtnControl
 24 
Dim objBtnControl
25 
Dim aTabBtnsDef
 25 
Dim aTabBtnsDef
26 
'------------ CONSTANTS DECLARATION -----------
 26 
'------------ CONSTANTS DECLARATION -----------
27 
'------------ VARIABLE INIT -------------------
 27 
'------------ VARIABLE INIT -------------------
28 
Set objBtnControl = New ActionButtonControl
 28 
Set objBtnControl = New ActionButtonControl
29 
'------------ CONDITIONS ----------------------
 29 
'------------ CONDITIONS ----------------------
30 
'----------------------------------------------
 30 
'----------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
'------------ RUN BEFORE PAGE RENDER ----------
 33 
'------------ RUN BEFORE PAGE RENDER ----------
34 
objPMod.PersistInQryString ("tree")
 34 
objPMod.PersistInQryString ("tree")
35 
 
 35 
 
36 
If (Request("action") <> "") Then
 36 
If (Request("action") <> "") Then
37 
	'-- Select Action
 37 
	'-- Select Action
38
38
39 
	Select Case Request("action")
 39 
	Select Case Request("action")
40 
		Case "btnRemoveApplication"
 40 
		Case "btnRemoveApplication"
41 
			Call OpenInWindow ( "_RemoveApplication.asp?app_id="& Request("app_id") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
 41 
			Call OpenInWindow ( "_RemoveApplication.asp?app_id="& Request("app_id") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() )
42
42
43 
	End Select
 43 
	End Select
44
44
45 
End If
 45 
End If
46 
'----------------------------------------------
 46 
'----------------------------------------------
47 
%>
 47 
%>
48 
<html>
 48 
<html>
49 
<head>
 49 
<head>
50 
<title>Access Manager</title>
 50 
<title>Access Manager</title>
51 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 51 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
52 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 52 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
53 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
 53 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
54 
<script language="JavaScript" src="scripts/common.js"></script>
 54 
<link href="scripts/access_manager.css" rel="stylesheet" type="text/css">
55 
 
 55 
<script language="JavaScript" src="scripts/common.js"></script>
56 
</head>
 56 
 
57 
 
 57 
</head>
58 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
 58 
 
59 
<!-- HEADER ++++++++++++++++++++++ -->
 59 
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
60 
<!--#include file="_header.asp"-->
 60 
<!-- HEADER ++++++++++++++++++++++ -->
61 
<!-- +++++++++++++++++++++++++++++ -->
 61 
<!--#include file="_header.asp"-->
62 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 62 
<!-- +++++++++++++++++++++++++++++ -->
63 
  <tr>
 63 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
64 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
 64 
  <tr>
65 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
 65 
    <td width="1%" valign="top" background="images/bg_bage_pane.gif">
66 
	<!--#include file="_treeNavigator.asp"-->
66 
	<!-- TREE NAVIGATOR ++++++++++++++++++++++++++++++++++++++++++++ -->
67 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 67 
	<!--#include file="_treeNavigator.asp"-->
68 
	</td>
 68 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
69 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 69 
	</td>
70 
    <td width="100%" valign="top">
 70 
    <td width="1" background="images/bg_drk_gray_border.gif"><img src="images/spacer.gif" width="1" height="600"></td>
71 
	<table width="100%"  border="0" cellspacing="0" cellpadding="9">
 71 
    <td width="100%" valign="top">
72 
	<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 72 
	<table width="100%"  border="0" cellspacing="0" cellpadding="9">
73 
      <tr>
 73 
	<form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
74 
        <td background="images/bg_drk_bage_pane.gif">
 74 
      <tr>
75 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 75 
        <td background="images/bg_drk_bage_pane.gif">
76 
            <tr>
 76 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
77 
              <td nowrap class="body_txt">
 77 
            <tr>
78 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 78 
              <td nowrap class="body_txt">
79 
				<%
 79 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
80 
				'-- Define Action buttons on this tab
 80 
				<%
81 
				aTabBtnsDef = Array("btnNewApplication", "btnRemoveApplication" )
 81 
				'-- Define Action buttons on this tab
82 
				If  NOT canActionControl("canCreateApplication") Then objBtnControl.AllActive = "N"
 82 
				aTabBtnsDef = Array("btnNewApplication", "btnRemoveApplication" )
83
83 
				If  NOT canActionControl("canCreateApplication") Then objBtnControl.AllActive = "N"
84 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 84
85
85 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
86 
				Call objBtnControl.Render( aTabBtnsDef )
 86
87 
				%>
 87 
				Call objBtnControl.Render( aTabBtnsDef )
88 
				<!-- +++++++++++++++++++++++++++++++++++ -->
 88 
				%>
89 
			  </td>
 89 
				<!-- +++++++++++++++++++++++++++++++++++ -->
90 
              <td align="right" nowrap class="section_ttl">Applications</td>
 90 
			  </td>
91 
            </tr>
 91 
              <td align="right" nowrap class="section_ttl">Applications</td>
92 
          </table>
 92 
            </tr>
93 
		</td>
 93 
          </table>
94 
      </tr>
 94 
		</td>
95 
      <tr>
 95 
      </tr>
96 
        <td><br>
 96 
      <tr>
97 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 97 
        <td><br>
98 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 98 
		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
99 
          <tr>
 99 
		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
100 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
 100 
          <tr>
101 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 101 
		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
102 
              <tr>
 102 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
103 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Application</td>
 103 
              <tr>
104 
              </tr>
 104 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Application</td>
105 
            </table></td>
 105 
              </tr>
106 
            <td width="70%" align="right" nowrap background="images/bg_table_col.gif" class="body_col"></td>
 106 
            </table></td>
107 
          </tr>
 107 
            <td width="70%" align="right" nowrap background="images/bg_table_col.gif" class="body_col"></td>
108 
		  <%
 108 
          </tr>
109 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetApplicationList.sql") , ORADYN_DEFAULT )
 109 
		  <%
110 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 110 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetApplicationList.sql") , ORADYN_DEFAULT )
111 
		  %>
 111 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
112 
          <tr>
 112 
		  %>
113 
		  	<td align="center"><input type="checkbox" name="app_id" value="<%=rsQry("app_id")%>"></td>
 113 
          <tr>
114 
            <td nowrap class="body_row"><a href="Application_Default.asp?tree=1_<%=rsQry("app_id")%>&app_id=<%=rsQry("app_id")%>" class="body_link"><%=LIMG_DISK  &  rsQry("application_name")%></a></td>
 114 
		  	<td align="center"><input type="checkbox" name="app_id" value="<%=rsQry("app_id")%>"></td>
115 
            <td></td>
 115 
            <td nowrap class="body_row"><a href="Application_Default.asp?tree=1_<%=rsQry("app_id")%>&app_id=<%=rsQry("app_id")%>" class="body_link"><%=LIMG_DISK  &  rsQry("application_name")%></a></td>
116 
          </tr>
 116 
            <td></td>
117 
		  <%rsQry.MoveNext%>
 117 
          </tr>
118
118 
		  <%rsQry.MoveNext%>
119 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 119
120 
          <tr>
 120 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
121 
            <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 121 
          <tr>
122 
          </tr>
 122 
            <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
123 
		  <%End If%>
 123 
          </tr>
124
124 
		  <%End If%>
125 
		  <%
 125
126 
		  WEnd
 126 
		  <%
127 
		  %>
 127 
		  WEnd
128 
          <tr>
 128 
		  %>
129 
            <td colspan="3" background="images/bg_table_border.gif">
 129 
          <tr>
130 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 130 
            <td colspan="3" background="images/bg_table_border.gif">
131 
              <tr>
 131 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
132 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 132 
              <tr>
133 
              </tr>
 133 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
134 
             </table>
 134 
              </tr>
135 
			</td>
 135 
             </table>
136 
          </tr>
 136 
			</td>
137 
         </table>
137 
          </tr>
138 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 138 
         </table>
139 
         <br></td>
 139 
		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
140 
      </tr>
 140 
         <br></td>
141 
	  <%=objPMod.ComposeHiddenTags()%>
 141 
      </tr>
142 
	  <input type="hidden" name="action" value="true">
 142 
	  <%=objPMod.ComposeHiddenTags()%>
143 
	</form>
 143 
	  <input type="hidden" name="action" value="true">
144 
    </table></td>
 144 
	</form>
145 
  </tr>
 145 
    </table></td>
146 
</table>
 146 
  </tr>
147 
<!-- FOOTER ++++++++++++++++++++++ -->
 147 
</table>
148 
<!--#include file="_footer.asp"-->
 148 
<!-- FOOTER ++++++++++++++++++++++ -->
149 
<!-- +++++++++++++++++++++++++++++ -->
 149 
<!--#include file="_footer.asp"-->
150 
</body>
 150 
<!-- +++++++++++++++++++++++++++++ -->
151 
</html>
 151 
</body>
152 
<%
 152 
</html>
153 
'------------ RUN AFTER PAGE RENDER -----------
 153 
<%
154 
'----------------------------------------------
 154 
'------------ RUN AFTER PAGE RENDER -----------
155 
%>
 155 
'----------------------------------------------
- 
 
 156 
%>
156 
<!--#include file="common/globals_destructor.asp"-->
 157 
<!--#include file="common/globals_destructor.asp"-->
157 

            158