Código fuente de 'Buscador interno.asp'
<HTML>
<HEAD>
<title>Buscador interno de la web de Códigos ASP - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
<% if Request("SearchText") <> "" then
response.write "<TITLE>Buscando Resultados para '"& Request("SearchText")& "' - Códigos asp, programacion asp, descargas asp, rutinas asp</title>"
else
response.write "<TITLE>Página de búsqueda - Códigos asp, programacion asp, descargas asp, rutinas asp</title>"
end if %>
</b>
</HEAD>
<BODY>
<p align="center"><font face="Arial"><b>Buscador Interno de
<i>Asp.astalaweb.com</i><br></b></font><br>
</p>
<form method="post" action="Buscador interno.asp">
<div align="center"></div>
<div align="center">
<table bgcolor="#E8F3FF" border="1" style="font-family: Arial; font-size: 12pt; border-collapse: collapse" bordercolor="#000000" cellspacing="3" cellpadding="3">
<tr>
<td> Buscar término: <font color="#CCCCCC">
<input type="text" name="SearchText" size="40">
</font> </td>
<td> <font color="#CCCCCC">
<input type="submit" name="Submit2" value="Buscar" style="color: #000066; background-color: #FFFFFF">
</font></td>
</tr>
<tr>
<td height="32"> Mostrar
resultados:<font color="#CCCCCC">
<select name="rLength" >
<option value="200" SELECTED>Descripción Larga
<option value="100">Descripción Corta
<option value="0">Solo Url
</select>
<select name="rResults" size="1">
<option value="20">20
<option value="30">30
<option value="40">40
<option value="50" selected>50</option>
</select>
</font> </td>
<td height="32"> <font color="#CCCCCC">
<input type="reset" name="Reset" value=" Borrar " style="color: #000066; background-color: #FFFFFF">
</font></td>
</tr>
</table>
</div>
</form>
</B>
<p align=center>
</p>
<p><% if Request("SearchText") <> "" then %> </p>
<p><B>Buscando Resultados para '<%=Request("SearchText")%>'</b>
<%
Const fsoForReading = 1
Dim objFile, objFolder, objSubFolder, objTextStream
Dim bolCase, bolFileFound
dim strDeTag, Ext, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL
Dim reqLength, reqNumber, count
strFile = ".asp .htm .html .js .txt .css"
strRoot = server.mappath("/")
strText = Request("SearchText")
If Request("Case") = "on" Then bolCase = 0 Else bolCase = 1
If Request("rResults") = "20" Then reqNumber = 20
If Request("rResults") = "30" Then reqNumber = 30
If Request("rResults") = "40" Then reqNumber = 40
If Request("rResults") = "50" Then reqNumber = 50
reqLength = Request("rLength")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")