<٪
رأس = البحث
SearchString = طلب (SearchString)
العد = 0
قم بتحويل المسار الفعلي للدليل الحالي إلى مسار افتراضي
وظيفة unmappath (المسار)
Unmappath = استبدال (Mid (المسار ، Len (server.mappath ( /)) + 1) ، /، /)
وظيفة نهاية
Function SearchFile (F ، S ، العنوان)
تعيين fo = fs.opentextFile (F)
content = fo.readall 'اقرأ كل النصوص للمحتوى
fo.close
SearchFile = instr (1 ، المحتوى ، S ، VBTextCompare)> 0 'ابدأ من الحرف الأول للتحقق مما إذا كان هناك S في المحتوى
إذا كان هناك SearchFile ، فإذا كان هناك ، متغير إيداع عنوان الملف
pos1 = instr (1 ، المحتوى ، <title> ، vbtextCompare)
pos2 = instr (1 ، المحتوى ، </title> ، vbtextCompare)
العنوان =
إذا كان POS1> 0 و POS2> 0 ثم لا تخطوا الحرف في منتصف علامة العنوان
العنوان = منتصف (المحتوى ، pos1 + 7 ، pos2 - pos1 - 7)
إنهاء إذا
إنهاء إذا
وظيفة نهاية
وظيفة FileLink (F ، العنوان)
vPath = unmappath (f.path) 'خذ المسار
إذا كان العنوان = ثم العنوان = f.name 'لصنع الروابط
fileLink = <a href = & vpath &> & title & </a>
FileLink = <ul> · & filelink & </ul>
وظيفة نهاية
البحث الفرعي (FD ، S)
وجدت = خطأ
لكل f في fd.files
pos = instrev (f.path ،.)
إذا pos> 0 ثم
تحويلة = منتصف (f.path ، pos + 1)
آخر
تحويلة =
إنهاء إذا
إذا كان LCASE (ext) = htm then'swing file باسم الامتداد htm
إذا كان SearchFile (F ، S ، Title) ثم
استجابة. write fileLink (F ، title)
العد = العد+1
'Response.write CSTR (count)
إنهاء إذا
إنهاء إذا
التالي
لكل SFD في fd.subfolders
SearchFolder SFD ، ق
التالي
نهاية الفرعية
٪>
<html>
<head>
<meta http-equiv = نوع المحتوى
المحتوى = النص/html ؛ charset = gb_2312-80>
<meta name = Generator Content = Microsoft Frontpage Express 2.0>
<title> <٪ = Head ٪> </title>
</head>
<body bgcolor =#ffffff>
<h1> <٪ = Head ٪> </h1>
<hr>
<form action = search.asp method = get>
<p> الرجاء إدخال المحتوى الذي تريد البحث عنه: <type = text
Size = 20 name = searchString value = <٪ = SearchString ٪ >> <input
اكتب = إرسال قيمة = Search> </p>
</form>
<٪
set fs = server.createObject (scripting.filesystemObject)
SET FD = FS.GetFolder (server.mappath (/)) "اضبط المسار لبدء البحث!
إذا كان SearchString <> ثم
استجابة. write <h2> البحث <font color = red> & searchString & </font> النتائج كما يلي: </h2> <p>
SearchFolder FD ، SearchString
إنهاء إذا
٪>
<hr>