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">
</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> </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">
</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>
