DEFAULT.ASP
<html>
<head>
<title>Buscar</title>
</head>
<p align="center">
<form method="POST" action="buscar.asp">
<p><font face="Arial" size="2">Palabra a ó frase a buscar: <input type="text" name="clave" size="20" tabindex="0"><input type="submit" value="Buscar" name="B1" tabindex="1"></font></p>
<p><font face="Arial" size="2">Se hará una búsqueda de esta palabra sobre un
listado de archivos, entregándote un listado de enlaces que
contengan esta palabra.</font></p>
<p>&nbsp;</p>
</form>
</body>
</html>
DEPURAR.ASP
`SIRVE PARA BORRAR LOS ARCHIVOS DE TEXTO QUE SE CREAN CON LAS CONSULTAS DE BUSQUEDAS, JE JE
<%
'Rutina para depurar archivos .txt con mas de una
'hora de haber sido creado
strFolder ="./" 'directorio actual
strFolder = Server.MapPath(strFolder)
Dim objFSO, objFolder, fileItem, fileCollection, arrFiles, i
Set objFSO = Server.CreateObject("Scripting.FileSystemObje ct")
Set objFolder = objFSO.GetFolder(strFolder)
Set fileCollection = objFolder.Files
For Each fileItem In fileCollection
if Lcase(Right(fileItem.name, 4)) = ".txt" and DateDiff("n",FileItem.DateCreated,now()) >59 Then
objFso.Deletefile(Server.Mappath(FileItem.Name))
End if
Next
Set objFSO = Nothing
Set objFolder = Nothing
Set fileCollection = Nothing
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
<html>
<body>
<p align="left">
<font color="#FF0000" face="Comic Sans MS" size="2">Aprendiz
de todo y maestro de nada[/CODE]</p>
</body>
</html>