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