23/11/2005, 08:42
|
 | | | Fecha de Ingreso: septiembre-2005
Mensajes: 231
Antigüedad: 19 años, 7 meses Puntos: 0 | |
| OK monkyta te entiendo pero donde consigo este servicio y como lo configuro.
Yo hice este codigo para buscar archivos en un directorio determinado. Lo que me faltaria es extraer una descripcion de cada archivo con los .txt no hay problema pero con otro tipo de archivos si como los .doc. AH y empaginar los resultados por ejemplo mostrar 10 archivos por pagina.
<html>
<head>
<title>Paging</title>
</head>
<body background="images/bgfondo.jpg" topmargin="0" leftmargin="5">
<%Dim objFSO , objFolder , SubFolders , objFile, objTextStream, strFileContents, bolFileFound , buscar
Const fsoForReading = 1
buscar = request.querystring("buscar")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("Archivos"))
ruta=objFolder & "\"
Set SubFolders = objFolder.SubFolders
response.write ruta
bolFileFound = False %>
<table width="762" border="0" align="center" cellpadding="2" cellspacing="1" height="199">
<tr bgcolor="#EEEEEE">
<td colspan="4" height="16" width="756">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="left"><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif" class="bluet">
<img border="0" src="images/Arrow.gif" width="12" height="12"> <strong>Resultados Búsqueda Archivos</strong></font></div>
<div align="center"></div></td>
</tr>
</table>
<div align="center"></div>
<div align="left"></div>
<div align="center"> </div></td>
</tr>
<tr bgcolor="#CCCCCC" class="greyt">
<td colspan="4" height="1" width="756"></td>
</tr>
<tr bgcolor="#EEEEEE" class="greyt">
<td colspan="4" height="16" width="756"><font color="#003366" size="2" face="Verdana, Arial, Helvetica, sans-serif">
Resultados 1 - 10 Registros <b><%=sProjectCount%></b> de <b><%=buscar%></b>
</font> <div align="center"></div></td>
</tr>
<%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(200) & "..."
strFileContents = objTextStream.ReadAll
on error resume next
subfolder=objFolder1.name
file=objFile.Name
'ruta1=ruta & subfolder & "\" & file
ruta1=subfolder & "\" & file
If InStr(1,strFileContents,buscar,1) then
ruta1 = replace((ruta1),"\", "/")
ruta1 = "administrador/archivos_administrador/docuemntos_informacion/" & ruta1
ru="http://www.piura.abaco-corp.edu.pe/biblioteca/"
'response.write ruta1%>
<tr>
<td colspan="4" bgcolor="#FFFFFF" height="1" width="756">
<A HREF="<%=ruta1%>" target=new><font color="#003366" size="2" face="Verdana, Arial, Helvetica, sans-serif"><u><%=file%></font></A>
</td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF" height="1" width="756">
<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=contenido%></font>
</td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF" height="1" width="756">
<font color="blue" size="2"><%=ru & ruta1%></font>
</td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF" height="1" width="756">
</td>
</tr>
<%fich.close()
bolFileFound = True
End If
objTextStream.Close
End If
Next
Next%>
<tr>
<td colspan="4" bgcolor="#FFFFFF" class="sgrey" height="23" width="756"><div align="right">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#EEEEEE">
<td width="29%" height="23">
<div align="left" class="greyt"><font size="2">Total: <%=sProjectCount%></font></div></td>
<td width="71%"><div align="center">
<% Dim queryPageOn
queryPageOn = Request.QueryString("page")
If NOT isNumeric(queryPageOn) AND NOT sStartQuery = "0" then
queryPageOn = "1"
End If
queryPageOn = CINT(queryPageOn)
Response.Write(sProjectPrev & " ")
Dim iPages, iPagesTemp
For iPages=1 to intPages
iPagesTemp = iPages-1
If NOT queryPageOn=iPages then%>
<a href='?buscar=<%=buscar%>&opcion=<%=opcion%>&start =<%=iPagesTemp*intRecordsPerPage%>&page=<%=iPages% >' class='elinks'><%=iPages%></a>
<%Else
Response.write "<span class='greyt'>[</span><a href='?buscar=" & buscar & opcion=" & opcion & "&start=" & iPagesTemp*intRecordsPerPage & "&page="& iPages & "' class='elinks'>" & iPages & "</a><span class='greyt'>]</span> "
End If
Next
Response.Write(" "&sProjectNext)
%>
</div></td>
</tr>
</table>
</div></td>
</tr>
<%if Not bolFileFound then%>
<tr>
<td bgcolor="#FFFFFF" height="18" width="685">
<p align="center">
<font color="#003366" face="Verdana, Arial, Helvetica, sans-serif" size="2">Su Búsqueda - <b><%=buscar%></b> - No Produjo ningún Resultados. </font></td>
<td width="63" bgcolor="#FFFFFF" height="18"><div align="center"></div></td>
<td bgcolor="#FFFFFF" height="18" width="6"> </td>
</tr>
<tr>
<td colspan="2" height="79" width="753">
<TABLE border=0 bgcolor="#FFFFFF" width="749" height="101" cellSpacing=0 cellPadding=0>
<TR>
<TD class="textocelda" height="28">
<ul>
<u>Sugerencias</u>:
<li>- Verifique de que las palabras introducidas estén escritas correctamente.
<li>- Intente usar otras palabras similares.
<li>- Intente usar palabras más generales.
</ul>
</TD>
</TR>
</td>
<%End IF
'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>
</body>
</html> |