Rev 1281 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| view by file |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim rsRepDim parKeywordDim parFPkgName, parFPkgVersionDim FileNameDim sLink'------------ Constants Declaration -----------Const MaxRows = 100'------------ Variable Init -------------------parKeyword = Request("filename")parFPkgName = Request("fpkgname")If parFPkgName = "" Then parFPkgName = "*"parFPkgVersion = Request("fpkgversion")If parFPkgVersion = "" Then parFPkgVersion = "*"'----------------------------------------------%><%'-----------------------------------------------------------------------------------------------------------------------'-----------------------------------------------------------------------------------------------------------------------%><%'==================== MAIN LINE ===============================If (parKeyword = "") Then Response.Redirect ("index.asp")'==============================================================%><html><head><title>Release Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- MENU LAYERS --------------------------------------><div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"></div><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_home_orange.gif" valign="top"><!--#include file="_front_explorer.asp"--></td><td rowspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td ><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%"></td><td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td><td width="1%"></td></tr><tr><td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="500"></td><td bgcolor="#FFFFFF" valign="top"><!-- PACKAGE SEARCH ------------------------------------------------><%' Format keyword for searchIf InStr( parKeyword, "*" ) > 0 Then' Use wild cardsFileName = Replace( parKeyword, "*", "%")Else' Wildcard is not used, hence append card to the end for better resultsFileName = parKeyword & "%"End IfOraDatabase.Parameters.Add "FILE_NAME", FileName, ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "PKG_NAME", Replace( parFPkgName, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "PKG_VERSION", Replace( parFPkgVersion, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "PAGE_SIZE", MaxRows, ORAPARM_INPUT, ORATYPE_NUMBERSet rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindFiles.sql"), 0 )OraDatabase.Parameters.Remove "FILE_NAME"OraDatabase.Parameters.Remove "PKG_NAME"OraDatabase.Parameters.Remove "PKG_VERSION"OraDatabase.Parameters.Remove "PAGE_SIZE"%><table width="100%" border="0" cellspacing="0" cellpadding="5"><tr><td class="body_sect">Files</td></tr><tr><td nowrap bgcolor="#E4E9EC" class="body_txt">Results for <b><%=parKeyword%></b>. Showing max. <%=MaxRows%> results.</td></tr></table><table width="100%" border="0" cellspacing="1" cellpadding="5"><form name="file_search" method="get" action="<%=ScriptName%>"><input type="hidden" name="filename" value="<%=parKeyword%>"><input type="hidden" name="listby" value="<%=parListBy%>"><tr><td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">File</td><td width="40%" nowrap class="body_col" bgcolor="#E4E9EC">Path</td><td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Package Name</td><td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Version</td><td width="1%" nowrap class="body_col" bgcolor="#E4E9EC">CheckSum (CKSUM)</td></tr><tr><td nowrap class="body_col" bgcolor="#E4E9EC"></td><td nowrap class="body_col" bgcolor="#E4E9EC"></td><td nowrap bgcolor="#E4E9EC"><input name="fpkgname" type="text" class="form_item" size="10" value="<%=parFPkgName%>"></td><td nowrap bgcolor="#E4E9EC"><input name="fpkgversion" type="text" class="form_item" size="10" value="<%=parFPkgVersion%>"></td><td nowrap bgcolor="#E4E9EC"><input name="btn" type="image" src="images/spacer.gif" width="1" height="1" border="0"></td></tr><%If rsRep.RecordCount = 0 ThenWith Response.write "<tr>".write "<td colspan='5' class='body_row'>Your search <b>"& parKeyword &"</b> did not match any file names.</td>".write "</tr>"End WithEnd IfDo While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_path") & rsRep("file_name"), "\", "/" )%><tr><td nowrap class="body_row" bgcolor="#F5F5F5"><a href="<%=sLink%>" class="body_link"><img src='images/rex_images/ext_blank.gif' border='0' hspace='2' align='absmiddle'><%=Highlight_Substring( rsRep("file_name"), parKeyword )%></a></td><td nowrap class="body_row" bgcolor="#F5F5F5"><%=rsRep("file_path")%></td><td nowrap class="body_row" bgcolor="#F5F5F5"><%=rsRep("pkg_name")%></td><td nowrap class="body_row" bgcolor="#F5F5F5"><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>" class="body_link"><%=rsRep("pkg_version")%></a></td><td nowrap class="body_txt_gray" bgcolor="#F5F5F5"><%=rsRep("crc_cksum")%></td></tr><%rsRep.MoveNextLooprsRep.Close()%><tr><td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td></tr></form></table><br><!------------------------------------------------------------></td><td background="images/lbox_bgside_white.gif"> </td></tr></table></td></tr></table></td><td width="11%"> </td></tr><tr><td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td><td> </td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html>