<%
Kopf = Suche
SearchString = Anfrage (SearchString)
count = 0
„Konvertieren Sie den tatsächlichen Pfad des aktuellen Verzeichnisses in einen virtuellen Pfad
Funktion Unmappath (Pfad)
UNMAPPATH = TROSSONE (MID (Pfad, Len (Server.Mappath) + 1), /, /)
Endfunktion
Funktions Searchfile (F, s, Titel)
Setzen Sie fo = fs.opentextfile (f)
content = fo.readall 'Lesen Sie den gesamten Text zum Inhalt durch
fo.close
SearchFile = Instrument (1, Inhalt, s, vbTextCompare)> 0 'Beginnen Sie vom ersten Zeichen, um zu überprüfen, ob sich der Inhalt befindet
Wenn Suchfile dann ist, wenn es vorhanden ist, können Sie eine Variable der Datei -Title -Einzahlungsvariable
Pos1 = Instrument (1, Inhalt, <title>, vbTextCompare)
Pos2 = Instrument (1, Inhalt, </title>, vbTextCompare)
Titel =
Wenn POS1> 0 und POS2> 0 dann nicht das Zeichen in der Mitte des Titel -Tags aufnehmen
Titel = Mid (Inhalt, POS1 + 7, POS2 - POS1 - 7)
Ende wenn
Ende wenn
Endfunktion
Funktion filelink (f, Titel)
vpath = unmappath (f.path) 'den Weg nehmen
Wenn title = dann title = f.name ', um Links zu machen
Filelink = <a href = & vpath &> & title & </a>
Filelink = <ul> · & filelink & </ul>
Endfunktion
Sub SearchFolder (fd, s)
gefunden = falsch
Für jedes f in fd.files
pos = Instrrev (F.Path,.)
Wenn pos> 0 dann
ext = mid (f.path, pos + 1)
Anders
ext =
Ende wenn
Wenn Lase (ext) = htm dann'Show -Datei mit Erweiterungsname HTM
Wenn SearchFile (f, s, Titel) dann
Antwort.Write Filelink (F, Titel)
count = count+1
'Response.write cstr (count)
Ende wenn
Ende wenn
Nächste
Für jede SFD in Fd.SubFolders
SearchFolder SFD, s
Nächste
Ende sub
%>
<html>
<kopf>
<meta http-äquiv = content-type
content = text/html; charset = gb_2312-80>
<meta name = Generator content = microsoft FrontPage Express 2.0>
<title> <%= head%> </title>
</head>
<Body Bgcolor =#ffffff>
<H1> <%= Kopf%> </h1>
<hr>
<form action = such.asp method = get>
<P> Bitte geben Sie den Inhalt ein, nach dem Sie suchen möchten: <Eingabetyp = Text
size = 20 name = suchstringwert = <%= suchstring%>> <Eingabe
type = value = such> </p>
</form>
<%
Setzen Sie fs = server.createObject (scripting.FilesystemObject)
Setzen Sie FD = FS.Getfolder (Server.Mappath (/)) 'Setzen Sie den Pfad, um die Suche zu starten!
Wenn suchstring <> dann
Response.write <h2> such <font color = rot> & suchstring & </font> Die Ergebnisse lauten wie folgt: </h2> <p>
SearchFolder FD, SearchString
Ende wenn
%>
<hr>