Foros del Web » Programando para Internet » ASP Clásico »

busqueda de archivos en carpetas de servidor (empaginamiento)

Estas en el tema de busqueda de archivos en carpetas de servidor (empaginamiento) en el foro de ASP Clásico en Foros del Web. Nuevo tengo un problema no tengo idea como generar empaginamiento en una busquedas de archivos en carpetas que tengo en el servidor, estuve investigando pero ...
  #1 (permalink)  
Antiguo 13/10/2005, 11:19
Avatar de tomchat  
Fecha de Ingreso: septiembre-2005
Mensajes: 231
Antigüedad: 18 años, 9 meses
Puntos: 0
busqueda de archivos en carpetas de servidor (empaginamiento)

Nuevo tengo un problema no tengo idea como generar empaginamiento en una busquedas de archivos en carpetas que tengo en el servidor, estuve investigando pero nada aqui esta el codigo, hasta donde solo busca, muestra el nombre del archivo, creo un link para descargar el archivo ,ahh otro problema que no me muestra una pequeña descripcion del archivo, solo muestra signos como si no lo pudiera leer :

Codigo:

<HTML>
<HEAD>

<TITLE>::Busquedas/Curso::</TITLE>

<LINK REL="StyleSheet" MEDIA="screen" TYPE="text/css" HREF="menus - estilos/estilo.css">
<SCRIPT language=JavaScript1.2 src="menus - estilos/apymenu.js" type=text/javascript></SCRIPT>
<SCRIPT language=JavaScript1.2 src="menus - estilos/data4.js" type=text/javascript></SCRIPT>

<SCRIPT language="JavaScript" type="text/javascript">
function verificar() {
var str = document.forms[0].elements[0].value, strlon= str.length;
if (str == "") {
alert("\nEl campo Buscar esta vacio.\n\nPor favor, ingrese minimo una palabra.")
document.forms[0].elements[0].focus();
return false;
}
if (strlon<3) {
alert("\nEl campo Buscar debe tener minimo de 3 caracteres.\n\nPor favor, ingrese una frase valida.")
document.forms[0].elements[0].focus();
return false;
}
}
</SCRIPT>
</HEAD>
<body background="images/bgfondo.jpg" topmargin="0" leftmargin="5">
<%Dim objFSO , objFolder , SubFolders , objFile, objTextStream, strFileContents, bolFileFound , strbusca_palabra
Const fsoForReading = 1

strbusca_palabra = request.querystring("buscar")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("administrador\arc hivos_administrador\docuemntos_informacion"))
ruta=objFolder & "\"
Set SubFolders = objFolder.SubFolders

bolFileFound = False

If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1%>



<TABLE BGCOLOR="#034174" width="769" height="76" cellSpacing=0 cellPadding=0>
<TR>
<TD width="306" height="72">
<img border="0" src="images/logo_abaco2.GIF" width="241" height="64">
</TD>
<TD width="463" height="72" BGCOLOR="006699">

<TABLE BORDER="0" BORDERCOLOR="#0099cc" BGCOLOR="006699" style="border-collapse: collapse">
<TR>
<TD>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0" id="cabecera_ciclo" width="391" height="72">
<param name="movie" value="cabecera_ciclo.swf">
<param name="quality" value="high">
<param name="bgcolor" value="#006699">
<embed name="cabecera_ciclo" src="cabecera_ciclo.swf" quality="high" bgcolor="#006699" width="392" height="75" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></object>
</TD>
</TR>
</TABLE>
</TD>
<TABLE BORDER="0" bgcolor="#034174" BORDERCOLOR="336699" style="Border-Collapse: collapse" height="1" width="769" cellSpacing=0 cellPadding=0>
<TR>
<TD height="1" class="estilotabla" width="769">
&nbsp;</TD>
</TABLE>
</TABLE>

<TABLE width="94" height="409" BGCOLOR="#FFFFFF">
<TR>
<TD width="1095" height="313">

<FORM name="formbusqueda" method="GET" action="buscar_archivos.asp" onSubmit="return verificar()">
<TABLE BORDER="0" cellpadding="2" width="759" height="95" cellspacing="0" >
<TR>
<TD height="54" width="375"></TD>
</TR>
<TR>
<TD height="12" class="tituloprincipal" width="748" colspan=2>
<font size=2><b><img border="0" src="images/Arrow.gif" width="12" height="12">Buscar Archivo</b></font><br></TD>
</TR>
<TR>
<TD width="375" height="23" class="textocelda">
Buscar <INPUT type=text style="width: 300" name=buscar value="<%=strbusca_palabra%>" class="datos" size="20">
</TD>
<TD width="478" height="23">
<INPUT type=submit value=Buscar name="btnbuscar" class="boton" Style="Width:70"></TD>
</TR>
</TABLE>

<TABLE width="761">
<TR>
<TD bgcolor="#006699" class="textocelda" width="755" colspan=3>
<FONT color="#FFFFFF">Resultados 1 - 10 Registros <b><%=registros%></b> de <%=strbusca_palabra%></FONT>
</TD>
</TR>
<TR>
<TD colspan=3 width="755"><img border="0" src="images/layout_20.jpg" width="650" height="28">
</TD>
</TR>
</TABLE>

</FORM>

<TABLE border=0 bgcolor="#FFFFFF" cellspacing="1" width="762" id="AutoNumber1" height="84">

<%x=0
For Each objFolder1 in SubFolders

' objfolder ruta raiz , folder o carpeta principal
' objFolder1.name & "<br>" subcarpetas o subdirectorios

For Each objFile in objFolder1.Files
' objFile archivo
If Response.IsClientConnected then

Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
contenido= objTextStream.Read(300)
strFileContents = objTextStream.ReadAll
on error resume next
subfolder=objFolder1.name: file=objFile.Name
'ruta1=ruta & subfolder & "\" & file
ruta1=subfolder & "\" & file

If InStr(1,strFileContents,strbusca_palabra,1) then

ruta1 = replace((ruta1),"\", "/")

ruta1 = "administrador/archivos_administrador/docuemntos_informacion/" & ruta1
'response.write ruta1%>

<TR>
<TD class="textocelda" height="1" width="625">
<A HREF="<%=ruta1%>" target=new><font color=006699><%=LCase(file)%></font></A>
</TD>
</TR>
<TR>
<TD class="textocelda"><font color="#000000"><%=contenido%></font></TD>
</TR>
<TR>
<TD class="textocelda">
<font color="blue" size="2"><%=LCase(ruta1)%></font>
</TD>
</TR>
<TR>
<TD>&nbsp;</TD>
</TR>
<%bolFileFound = True

End If
objTextStream.Close

End If
Next
Next%>
<TR>
<TD class="textocelda" >

<%if Not bolFileFound then%>
<font color="000000">"No se encontraron resultados<br><a href='javascript:;history.back(-1)'>Intentar nuevamente</a> </font>
<%end if%>

</TD>
</TR>
<% 'arhivos de un directorio
'Set fileList = objFolder.Files
'For Each i in fileList
'response.write i.name & "<br>"
'next
%>

<%Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
Set SubFolders = Nothing %>
</table>


</TD>
</TR>
</table>



</TD>
</TR>
</TABLE>
<TABLE BORDER="2" background="images/fondo3.jpg" BORDERCOLOR="#336699" style="BORDER-COLLAPSE: collapse" height="1" width="769">
<TR>
<TD height="1" class="estilotabla" width="180">
&nbsp;</TD>
<TD height="1" class="estilotabla" width="142">
<A href="ciclo.htm">Búsquedas Avanzadas</A>
</TD>
<TD height="1" class="estilotabla" width="104">
Búsqueda Carrera
</TD>
<TD height="1" class="estilotabla" width="83">
<A href="ciclo.htm">Búsqueda Ciclo</A>
</TD>
<TD height="1" class="estilotabla" width="90">
<A href="curso.htm">Búsqueda Curso</A>
</TD>
<TD height="1" width="344"></TD>
</TR>
</TABLE>


</BODY>
</HTML>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:30.