<%
Head = cari
SearchString = Request (SearchString)
Hitung = 0
'Konversi jalur aktual direktori saat ini ke jalur virtual
Fungsi unmappath (jalur)
Unmappath = ganti (mid, len (server.mappath ( /)) + 1), /, /)
Fungsi akhir
Function SearchFile (F, S, Judul)
Set fo = fs.opentextFile (f)
konten = fo.readall 'Baca semua teks ke konten
fo.close
SearchFile = instr (1, konten, s, vbtextCompare)> 0 'Mulai dari karakter pertama untuk memeriksa apakah ada s di konten
Jika pencarian, maka ada, variabel setoran judul file
POS1 = instr (1, konten, <title>, vbtextCompare)
POS2 = instr (1, konten, </iteme>, vbtextCompare)
judul =
Jika Pos1> 0 dan Pos2> 0 maka Makta Karakter di tengah tag judul
title = mid (konten, pos1 + 7, pos2 - pos1 - 7)
Akhiri jika
Akhiri jika
Fungsi akhir
Fungsi filelink (f, judul)
vpath = unmappath (f.path) 'Ambil jalan
Jika judul = maka title = f.name 'untuk membuat tautan
FileLink = <a href = & vpath &> & title & </a>
FileLink = <ul> · & filelink & </ul>
Fungsi akhir
Sub -SearchFolder (FD, S)
ditemukan = false
Untuk setiap f di fd.files
POS = instrrev (f.path ,.)
Jika POS> 0 lalu
ext = mid (f.path, pos + 1)
Kalau tidak
ext =
Akhiri jika
Jika lCase (ext) = htm maka file htow dengan nama ekstensi htm
Jika pencarian (f, s, judul) lalu
Response.write filelink (f, judul)
hitung = hitung+1
'Response.write cstr (Count)
Akhiri jika
Akhiri jika
Berikutnya
Untuk setiap SFD di fd.subfolder
Pencarian SFD, s
Berikutnya
Akhir sub
%>
<Html>
<head>
<meta http-equiv = tipe konten
konten = teks/html; Charset = GB_2312-80>
<meta name = generator konten = Microsoft FrontPage Express 2.0>
<title> <%= head%> </itement>
</head>
<body bgcolor =#ffffff>
<h1> <%= head%> </h1>
<Hr>
<Form Action = Search.asp Metode = GET>
<p> Harap masukkan konten yang ingin Anda cari: <input type = teks
SIZE = 20 NAME = Nilai SearchString = <%= SearchString%>> <input
type = Kirim nilai = pencarian> </p>
</form>
<%
Set FS = Server.CreateObject (Scripting.FilesystemObject)
Atur fd = fs.getFolder (server.mappath (/)) 'Atur jalur untuk memulai pencarian!
Jika SearchString <> lalu
Response.Write <H2> Cari <font color = red> & SearchString & </font> Hasilnya adalah sebagai berikut: </h2> <p>
SearchFolder FD, SearchString
Akhiri jika
%>
<Hr>