| 2 |
rsolanki |
1 |
<%
|
|
|
2 |
'===================================================================
|
|
|
3 |
' Common Subs
|
|
|
4 |
'===================================================================
|
|
|
5 |
%>
|
|
|
6 |
<%
|
|
|
7 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
8 |
Sub CloseWindow
|
|
|
9 |
%>
|
|
|
10 |
<SCRIPT language="JavaScript" type="text/javascript">
|
|
|
11 |
<!--
|
|
|
12 |
self.close();
|
|
|
13 |
//-->
|
|
|
14 |
</SCRIPT>
|
|
|
15 |
<%
|
|
|
16 |
End Sub
|
|
|
17 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
18 |
Sub OpenChildWindow ( SStitle, SSurl, SSH, SSW, BBscroll )
|
|
|
19 |
Dim scrlBar
|
|
|
20 |
If BBscroll Then
|
|
|
21 |
scrlBar = "yes"
|
|
|
22 |
Else
|
|
|
23 |
scrlBar = "no"
|
|
|
24 |
End If
|
|
|
25 |
%>
|
|
|
26 |
<script language="JavaScript" type="text/javascript">
|
|
|
27 |
<!--
|
|
|
28 |
window.open('<%=SSurl%>','<%=SStitle%>','scrollbars=<%=scrlBar%>,resizable=yes,width=<%=SSW%>,height=<%=SSH%>');
|
|
|
29 |
//-->
|
|
|
30 |
</script>
|
|
|
31 |
<%
|
|
|
32 |
End Sub
|
|
|
33 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
34 |
Sub OpenInParentWindow ( SSurl )
|
|
|
35 |
%>
|
|
|
36 |
<script language="JavaScript" type="text/javascript">
|
|
|
37 |
<!--
|
|
|
38 |
window.opener.document.location='<%=SSurl%>';
|
|
|
39 |
//-->
|
|
|
40 |
</script>
|
|
|
41 |
<%
|
|
|
42 |
End Sub
|
|
|
43 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
44 |
Sub OpenInWindow ( SSurl )
|
|
|
45 |
Response.Redirect ( SSurl )
|
|
|
46 |
End Sub
|
|
|
47 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
48 |
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
|
|
|
49 |
If NOT IsNull(sWindowParams) OR (sWindowParams <> "") Then sWindowParams = sWindowParams &"," ' Append comma if params are not empty
|
|
|
50 |
|
|
|
51 |
onClickOpenWindow = "onClick='MM_openBrWindow("""& sURL &""", """& sWindowName &""", """& sWindowParams &"width="& nWidth &",height="& nHeight &",top=200,left=""+ ( screen.width / 2 - "& nWidth \ 2 &" ) +"" "");'"
|
|
|
52 |
End Function
|
|
|
53 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
54 |
Function ReadFile( sPath )
|
|
|
55 |
Dim filesys, rfile
|
|
|
56 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
|
|
57 |
Set rfile = filesys.OpenTextFile( sPath, 1, false)
|
|
|
58 |
ReadFile = rfile.ReadAll
|
|
|
59 |
rfile.close
|
|
|
60 |
Set filesys = nothing
|
|
|
61 |
End Function
|
|
|
62 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
63 |
Function GetQuery ( sQryName )
|
|
|
64 |
GetQuery = ReadFile( QUERIES_PATH &"\"& sQryName )
|
|
|
65 |
End Function
|
|
|
66 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
67 |
Function BoldSelected ( sItem, bSelected )
|
|
|
68 |
If bSelected Then
|
|
|
69 |
BoldSelected = "<b>"& sItem &"</b>"
|
|
|
70 |
Else
|
|
|
71 |
BoldSelected = sItem
|
|
|
72 |
End If
|
|
|
73 |
End Function
|
|
|
74 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
75 |
Function Expander ( sExpand )
|
|
|
76 |
Const IMG_PLUS = "<img src='images/i_plus.gif' width='9' height='9' align='absmiddle' border='0' vspace='4'>"
|
|
|
77 |
Const IMG_MINUS = "<img src='images/i_minus.gif' width='9' height='9' align='absmiddle' border='0' vspace='4'>"
|
|
|
78 |
Const IMG_NO_EXPAND = "<img src='images/spacer.gif' width='9' height='9' align='absmiddle' border='0' vspace='4'>"
|
|
|
79 |
|
|
|
80 |
If (sExpand = "+") OR (NOT sExpand ) Then
|
|
|
81 |
Expander = IMG_PLUS
|
|
|
82 |
|
|
|
83 |
ElseIf ( sExpand = "-" ) OR ( sExpand ) Then
|
|
|
84 |
Expander = IMG_MINUS
|
|
|
85 |
|
|
|
86 |
Else
|
|
|
87 |
Expander = IMG_NO_EXPAND
|
|
|
88 |
|
|
|
89 |
End If
|
|
|
90 |
|
|
|
91 |
End Function
|
|
|
92 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
93 |
Function GetNodeImage ( nNode_id )
|
|
|
94 |
Dim query, rsQry
|
|
|
95 |
query = _
|
|
|
96 |
"SELECT nt.NODE_IMAGE "&_
|
|
|
97 |
" FROM NETWORK_NODES nn,"&_
|
|
|
98 |
" NODE_TYPES nt"&_
|
|
|
99 |
" WHERE nn.NODE_TYPE_ID = nt.NODE_TYPE_ID"&_
|
|
|
100 |
" AND nn.node_id = :NODE_ID"
|
|
|
101 |
|
|
|
102 |
OraDatabase.Parameters.Add "NODE_ID", nNode_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
|
|
103 |
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
|
|
|
104 |
|
|
|
105 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
|
|
106 |
GetNodeImage = "<img src='icons/"& rsQry("node_image") &"'>"
|
|
|
107 |
End If
|
|
|
108 |
|
|
|
109 |
rsQry.Close
|
|
|
110 |
Set rsQry = Nothing
|
|
|
111 |
OraDatabase.Parameters.Remove "NODE_ID"
|
|
|
112 |
End Function
|
|
|
113 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
114 |
Sub GetApplicationDetails ( nApp_id, ByRef outobjDetails )
|
|
|
115 |
Dim rsQry, query
|
|
|
116 |
query = "SELECT * FROM APPLICATIONS WHERE app_id = "& nApp_id
|
|
|
117 |
|
|
|
118 |
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
|
|
|
119 |
|
|
|
120 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
|
|
121 |
outobjDetails.Item ("app_id") = rsQry("app_id")
|
|
|
122 |
outobjDetails.Item ("application_name") = rsQry("application_name")
|
|
|
123 |
|
|
|
124 |
Else
|
|
|
125 |
Err.Raise 8, "Sub GetApplicationDetails", "Empty record set returned. nApp_id="& nApp_id
|
|
|
126 |
|
|
|
127 |
End If
|
|
|
128 |
|
|
|
129 |
rsQry.Close
|
|
|
130 |
Set rsQry = Nothing
|
|
|
131 |
End Sub
|
|
|
132 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
133 |
Function ProgressBar ()
|
|
|
134 |
ProgressBar = "<DIV name='divProgressBar' id='divProgressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></DIV>"
|
|
|
135 |
End Function
|
|
|
136 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
137 |
Sub Messenger ( sMessage, nMessageType, sWidth )
|
|
|
138 |
Dim msgTemplate, Img
|
|
|
139 |
|
|
|
140 |
Select Case nMessageType
|
|
|
141 |
Case 1
|
|
|
142 |
Img = "s_critical.gif"
|
|
|
143 |
Case 2
|
|
|
144 |
Img = "s_warning.gif"
|
|
|
145 |
Case 3
|
|
|
146 |
Img = "s_note.gif"
|
|
|
147 |
Case Else
|
|
|
148 |
Img = "s_note.gif"
|
|
|
149 |
End Select
|
|
|
150 |
|
|
|
151 |
|
|
|
152 |
msgTemplate = ReadFile( APP_ROOT &"\scripts\message_style.html" )
|
|
|
153 |
msgTemplate = Replace( msgTemplate, "%WIDTH%", sWidth )
|
|
|
154 |
msgTemplate = Replace( msgTemplate, "%IMAGE%", Img )
|
|
|
155 |
msgTemplate = Replace( msgTemplate, "%MESSAGE%", sMessage )
|
|
|
156 |
|
|
|
157 |
Response.write msgTemplate
|
|
|
158 |
End Sub
|
|
|
159 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
160 |
Sub LoadTabActionButtons ( aBtns, ByRef objControl )
|
|
|
161 |
' -- Load Action Buttons
|
|
|
162 |
Call objControl.LoadActionButtons ( aBtns, OraDatabase )
|
|
|
163 |
|
|
|
164 |
' -- Set button spacer
|
|
|
165 |
objControl.ButtonSpacer = 10
|
|
|
166 |
End Sub
|
|
|
167 |
'-----------------------------------------------------------------------------------------------------------------------------
|
|
|
168 |
%>
|