<html> <head> <title> Searcher Text (VBS) في نفس المجلد </title>
<meta http-equiv = content-type content = text/html ؛ charset = gb2312>
<لغة البرنامج النصي = معرف vbscript = clientEventHandlersVBS>
<!-
Dim FSO ، F ، F1 ، FC ، FN ، S ، UF1 ، UFN
sub b1_onclick
fn = t1.value ''
pn = mid (location.pathname ، 2 ، len (location.pathname) -14)
ShowfolderList (PN)
نهاية الفرعية
وظائف العرض (المسار)
'' msgbox path
set fso = createObject (scripting.filesystemObject)
تعيين f = fso.getfolder (المسار)
تعيين fc = f.files
'' ufn = ucase (fn)
لكل F1 في FC
filespec = path & f1.name
readentirefile (filespec)
'' uf1 = ucase (f1.name)
"إذا instr (UF1 ، UFN) <> 0 ثم
'' s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
"نهاية إذا
التالي
document.write تم البحث في الإدخال التالي ، يرجى النقر عليه. [جمعها ميربر في يناير 2003] <br>
document.write s
تعيين fc = لا شيء
تعيين f = لا شيء
تعيين fso = لا شيء
وظيفة نهاية
وظيفة readentirefile (filespec)
const forreading = 1
Dim FSO ، thefile ، retstring
set fso = createObject (scripting.filesystemObject)
اضبط thefile = fso.opentextFile (Filespec ، Forreading ، False)
ufn = ucase (fn)
تفعل بينما thefile.atendofstream <> صحيح
retString = thefile.Readline
uf1 = ucase (retstring)
إذا instr (UF1 ، UFN) <> 0 ثم
s = s & <a href = & path & f1.name &> & f1.name & </a> <br>
الخروج تفعل
إنهاء إذا
حلقة
thefile.close
readentirefile = s
وظيفة نهاية
->
</script>
</head>
<body>
<p align = center> <font color =#000000 size = 6> الرجاء إدخال الكلمة الرئيسية للبحث عن [المدرجة في النص] (</font> <font
color =#000000 size = 3> تجاهل الحالة </font> <font color =#000000 size = 6>) </font> </p>
<p align = center> <font size = 2> <font color =#000000> [تنتجها Merber
في 5 يناير 2003] </font> </font> </p>
<p align = center> <input name = t1> <input type = button value = search! الاسم = B1> </p>
<p align = center> </p> </body> </html>