<%
Tête = recherche
SearchString = request (SearchString)
comte = 0
'Convertir le chemin réel du répertoire actuel en un chemin virtuel
Fonction Unmappathe (chemin)
Unmappath = Remplace (MID (Path, Len (server.mappath (/)) + 1), /, /)
Fonction finale
Fonction Searchfile (F, S, titre)
Set fo = fs.opentextfile (f)
contenu = fo.readall 'Lisez tout le texte au contenu
foi
SearchFile = instr (1, contenu, s, vbTextCompare)> 0 'du premier caractère pour vérifier s'il y a s dans le contenu
Si la recherche de recherche alors il y a, la variable de dépôt de title de fichier
pos1 = instr (1, contenu, <itle>, vbTextCompare)
pos2 = instr (1, contenu, </title>, vBTextCompare)
titre =
Si pos1> 0 et pos2> 0, alors n'en avez pas le personnage au milieu de la balise de titre
Titre = MID (Contenu, POS1 + 7, POS2 - POS1 - 7)
Terminer si
Terminer si
Fonction finale
Fonction FileLink (F, titre)
VPATH = Unmappath (F.Path) 'Emprunter le chemin
Si title = alors title = f.name 'pour créer des liens
Filelink = <a href = & vpath &> & title & </a>
FileLink = <ul> · & FileLink & </ul>
Fonction finale
Sub SearchFolder (FD, S)
trouvé = faux
Pour chaque F dans Fd.Files
pos = instrrev (f.path,.)
Si pos> 0 alors
ext = mid (f.path, pos + 1)
Autre
ext =
Terminer si
Si LCase (ext) = htm alors'show fichier avec le nom d'extension htm
Si searchfile (f, s, titre) alors
Response.Write FileLink (F, titre)
Count = Count + 1
'Response.Write CSTR (Count)
Terminer si
Terminer si
Suivant
Pour chaque SFD dans FD.Sublolders
SearchFolder SFD, S
Suivant
Sub-Sub
%>
<html>
<adal>
<Meta Http-Equiv = Type de contenu
contenu = text / html; charse = gb_2312-80>
<méta-name = contenu du générateur = Microsoft FrontPage Express 2.0>
<Titre> <% = Head%> </Title>
</ head>
<corps bgcolor = # ffffff>
<h1> <% = tête%> </h1>
<hr>
<form form = search.asp méthode = get>
<p> Veuillez saisir le contenu que vous souhaitez rechercher: <Type d'entrée = Texte
size = 20 name = searchstring value = <% = searchstring% >> <entrée
Type = Soumider Value = Search> </p>
</ form>
<%
Set fs = server.createObject (scripting.fileSystemObject)
Définissez fd = fs.getfolder (server.mappath (/)) 'définir le chemin pour démarrer la recherche!
Si SearchString <> alors
Response.Write <H2> Search <Font Color = Red> & Searchstring & </font> Les résultats sont les suivants: </h2> <p>
SearchFolder FD, Searchstring
Terminer si
%>
<hr>