| 62 |
rsolanki |
1 |
<%
|
|
|
2 |
'=====================================================
|
|
|
3 |
'| |
|
|
|
4 |
'| _front_explorer |
|
|
|
5 |
'| |
|
|
|
6 |
'=====================================================
|
|
|
7 |
%>
|
|
|
8 |
<!--#include file="common/config.asp"-->
|
|
|
9 |
<!--#include file="common/globals.asp"-->
|
|
|
10 |
<!--#include file="common/formating.asp"-->
|
|
|
11 |
<!--#include file="common/common_subs.asp"-->
|
|
|
12 |
<!--#include file="common/common_dbedit.asp"-->
|
|
|
13 |
<!--#include file="common/_form_window_common.asp"-->
|
|
|
14 |
<!--#include file="common/_rtree_common.asp"-->
|
|
|
15 |
<%
|
|
|
16 |
'------------ Variable Definition -------------
|
|
|
17 |
Dim rsProj
|
|
|
18 |
Dim rsTemp
|
|
|
19 |
Dim parListBy
|
|
|
20 |
'------------ Constants Declaration -----------
|
|
|
21 |
Const hlColor = "#E3B62D"
|
|
|
22 |
'------------ Variable Init -------------------
|
|
|
23 |
parListBy = Request("listby")
|
|
|
24 |
If parListBy = "" Then parListBy = 3 ' Default visible list is BOMs
|
|
|
25 |
'----------------------------------------------
|
|
|
26 |
%>
|
|
|
27 |
<%
|
|
|
28 |
'-----------------------------------------------------------------------------------------------------------------------
|
|
|
29 |
Function Set_Row_Style ( SSLink )
|
|
|
30 |
Set_Row_Style = "onMouseOver=""this.bgColor = '"& hlColor &"'"" onMouseOut =""this.bgColor = ''"" onClick=""location.href='"& SSLink &"'"""
|
|
|
31 |
End Function
|
|
|
32 |
'-----------------------------------------------------------------------------------------------------------------------
|
|
|
33 |
Function Get_Projects
|
|
|
34 |
Get_Projects = _
|
|
|
35 |
" SELECT * FROM projects ORDER BY proj_name ASC"
|
|
|
36 |
End Function
|
|
|
37 |
'-----------------------------------------------------------------------------------------------------------------------
|
|
|
38 |
Function Format_Full_Name ( SSfullname )
|
|
|
39 |
If InStr( SSfullname, " " ) = 0 Then
|
|
|
40 |
' No space in full_name
|
|
|
41 |
Format_Full_Name = SSfullname
|
|
|
42 |
|
|
|
43 |
Else
|
|
|
44 |
' Proper full_name found
|
|
|
45 |
|
|
|
46 |
Format_Full_Name = Left( SSfullname, InStr( SSfullname, " " ) )
|
|
|
47 |
|
|
|
48 |
End If
|
|
|
49 |
|
|
|
50 |
End Function
|
|
|
51 |
'-----------------------------------------------------------------------------------------------------------------------
|
|
|
52 |
Sub GenerateAtoZ()
|
|
|
53 |
Dim letter, LROW_ONE, LROW_TWO, URL
|
|
|
54 |
|
|
|
55 |
' Declare array of letters for browsing
|
|
|
56 |
LROW_ONE = Array("#","A","B","C","D","E","F","G","H","I","J","K","L","M")
|
|
|
57 |
LROW_TWO = Array("N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
|
|
|
58 |
|
|
|
59 |
|
|
|
60 |
Response.write "<table width='180' border='0' cellspacing='1' cellpadding='2'>"
|
|
|
61 |
|
|
|
62 |
' Render first row
|
|
|
63 |
Response.write "<tr>"
|
|
|
64 |
|
|
|
65 |
For Each letter In LROW_ONE
|
|
|
66 |
Response.write "<td width='10' bgcolor='#DDB02C' align='center'><a href='view_by_package.asp?listby=1&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
|
|
|
67 |
Next
|
|
|
68 |
|
|
|
69 |
Response.write "</tr>"
|
|
|
70 |
|
|
|
71 |
|
|
|
72 |
' Render second row
|
|
|
73 |
Response.write "<tr>"
|
|
|
74 |
Response.write "<td bgcolor='#DDB02C' align='center' class='form_txt_link'> </td>"
|
|
|
75 |
For Each letter In LROW_TWO
|
|
|
76 |
Response.write "<td bgcolor='#DDB02C' align='center'><a href='view_by_package.asp?listby=1&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
|
|
|
77 |
Next
|
|
|
78 |
|
|
|
79 |
Response.write "</tr>"
|
|
|
80 |
|
|
|
81 |
Response.write "</table>"
|
|
|
82 |
|
|
|
83 |
End Sub
|
|
|
84 |
'-----------------------------------------------------------------------------------------------------------------------
|
|
|
85 |
%>
|
|
|
86 |
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
|
|
|
87 |
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
|
|
|
88 |
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
|
|
|
89 |
<script language="JavaScript" src="images/common.js"></script>
|
|
|
90 |
|
|
|
91 |
<!-- HEADER -->
|
|
|
92 |
<!--#include file="_header.asp"-->
|
|
|
93 |
|
|
|
94 |
|
|
|
95 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
96 |
<tr>
|
|
|
97 |
<td>
|
|
|
98 |
<table width="100%" border="0" cellspacing="0" cellpadding="10">
|
|
|
99 |
<form name="fromlist">
|
|
|
100 |
<tr>
|
|
|
101 |
<td nowrap>
|
|
|
102 |
|
|
|
103 |
<select name="listby" class='form_item' onChange="Visible ('DIVLIST1','none','DIVLIST2','none','DIVLIST3','none'); Visible('DIVLIST' + this.value,'block');">
|
|
|
104 |
<option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by BOMs</option>
|
|
|
105 |
<option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
|
|
|
106 |
<option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
|
|
|
107 |
</select>
|
|
|
108 |
|
|
|
109 |
</td>
|
|
|
110 |
</tr>
|
|
|
111 |
</form>
|
|
|
112 |
</table>
|
|
|
113 |
</td>
|
|
|
114 |
</tr>
|
|
|
115 |
<tr>
|
|
|
116 |
<td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
|
|
|
117 |
</tr>
|
|
|
118 |
</table>
|
|
|
119 |
|
|
|
120 |
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
121 |
<DIV name="DIVLIST1" id="DIVLIST1" style="display:none;">
|
|
|
122 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
123 |
<tr>
|
|
|
124 |
<td>
|
|
|
125 |
<table width="100%" border="0" cellspacing="0" cellpadding="10">
|
|
|
126 |
<tr>
|
|
|
127 |
<td nowrap>
|
|
|
128 |
<table width="100" border="0" cellspacing="0" cellpadding="0">
|
|
|
129 |
<form name="pkg_search" method="get" action="view_by_package.asp" onSubmit="MM_validateForm('pkgname','Package keyword','R');return document.MM_returnValue">
|
|
|
130 |
<tr>
|
|
|
131 |
<td colspan="2" class="form_item">Find Package</td>
|
|
|
132 |
</tr>
|
|
|
133 |
<tr>
|
|
|
134 |
<td valign="top" class="form_txt"><input name="pkgname" type="text" class="form_item" size="25" value="<%=Request("pkgname")%>">
|
|
|
135 |
</td>
|
|
|
136 |
<td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
|
|
|
137 |
</tr>
|
|
|
138 |
<tr>
|
|
|
139 |
<td colspan="2" class="form_item">Browse</td>
|
|
|
140 |
</tr>
|
|
|
141 |
<tr>
|
|
|
142 |
<td colspan="2"><%Call GenerateAtoZ()%></td>
|
|
|
143 |
</tr>
|
|
|
144 |
<input type="hidden" name="listby" value="1">
|
|
|
145 |
</form>
|
|
|
146 |
</table>
|
|
|
147 |
|
|
|
148 |
</td>
|
|
|
149 |
</tr>
|
|
|
150 |
</table>
|
|
|
151 |
</td>
|
|
|
152 |
<tr>
|
|
|
153 |
<td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
|
|
|
154 |
</tr>
|
|
|
155 |
</table>
|
|
|
156 |
</DIV>
|
|
|
157 |
<!-- LIST BY FILES AND FOLDERS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
158 |
<DIV name="DIVLIST2" id="DIVLIST2" style="display:none;">
|
|
|
159 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
160 |
<tr>
|
|
|
161 |
<td>
|
|
|
162 |
<table width="100%" border="0" cellspacing="0" cellpadding="10">
|
|
|
163 |
<tr>
|
|
|
164 |
<td nowrap>
|
|
|
165 |
<table width="100" border="0" cellspacing="0" cellpadding="0">
|
|
|
166 |
<form name="pkg_search" method="get" action="view_by_file.asp" onSubmit="MM_validateForm('filename','File keyword','R');return document.MM_returnValue">
|
|
|
167 |
<tr>
|
|
|
168 |
<td colspan="2" class="form_item">Find File</td>
|
|
|
169 |
</tr>
|
|
|
170 |
<tr>
|
|
|
171 |
<td valign="top" class="form_txt"><input name="filename" type="text" class="form_item" size="25" value="<%=Request("filename")%>">
|
|
|
172 |
</td>
|
|
|
173 |
<td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
|
|
|
174 |
</tr>
|
|
|
175 |
<input type="hidden" name="listby" value="2">
|
|
|
176 |
</form>
|
|
|
177 |
</table>
|
|
|
178 |
|
|
|
179 |
</td>
|
|
|
180 |
</tr>
|
|
|
181 |
</table>
|
|
|
182 |
</td>
|
|
|
183 |
<tr>
|
|
|
184 |
<td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
|
|
|
185 |
</tr>
|
|
|
186 |
</table>
|
|
|
187 |
</DIV>
|
|
|
188 |
<!-- LIST BY BOMS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
189 |
<DIV name="DIVLIST3" id="DIVLIST3" style="display:none;">
|
|
|
190 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
|
|
191 |
<tr>
|
|
|
192 |
<td>
|
|
|
193 |
<table width="100%" border="0" cellspacing="0" cellpadding="10">
|
|
|
194 |
<tr>
|
|
|
195 |
<td nowrap>
|
|
|
196 |
<table width="100" border="0" cellspacing="0" cellpadding="0">
|
|
|
197 |
<form name="pkg_search" method="get" action="view_by_bom.asp" onSubmit="MM_validateForm('bomname','Bom keyword','R');return document.MM_returnValue">
|
|
|
198 |
<tr>
|
|
|
199 |
<td colspan="2" class="form_item">Find Bom</td>
|
|
|
200 |
</tr>
|
|
|
201 |
<tr>
|
|
|
202 |
<td valign="top" class="form_txt"><input name="bomname" type="text" class="form_item" size="25" value="<%=Request("bomname")%>">
|
|
|
203 |
</td>
|
|
|
204 |
<td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
|
|
|
205 |
</tr>
|
|
|
206 |
<input type="hidden" name="listby" value="3">
|
|
|
207 |
</form>
|
|
|
208 |
</table>
|
|
|
209 |
|
|
|
210 |
</td>
|
|
|
211 |
</tr>
|
|
|
212 |
</table>
|
|
|
213 |
</td>
|
|
|
214 |
<tr>
|
|
|
215 |
<td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
|
|
|
216 |
</tr>
|
|
|
217 |
</table>
|
|
|
218 |
</DIV>
|
|
|
219 |
<!-- END OF LIST BY ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
|
|
220 |
|
|
|
221 |
<script language="JavaScript" type="text/javascript">
|
|
|
222 |
<!--
|
|
|
223 |
|
|
|
224 |
// Set List visibility
|
|
|
225 |
Visible ("DIVLIST1","none","DIVLIST2","none","DIVLIST3","none");
|
|
|
226 |
Visible ("DIVLIST<%=parListBy%>","block");
|
|
|
227 |
|
|
|
228 |
//-->
|
|
|
229 |
</script>
|
|
|
230 |
|
|
|
231 |
|
|
|
232 |
|