<٪@language = vbscript codepage = 936 ٪>
<٪
قاتمة شارع
St = Timer ()
'****************************************************************
'************* Search Hard Disk File Class SearchFile ************
'************ طريقة الاتصال: **************
"************ set newssearch = إعلان بحث جديد ************
'************ newsearch.folder = f:+e: "مصدر البحث الوارد *************
'************ newsearch.keyword = التجميع "الكلمة الرئيسية ***************
"************ newsearch.search" ابدأ البحث ************
"************ set newssearch = لا شيء" نهاية *************
'************ حقوق الطبع والنشر (C) 完望完月完月 ******************
'*************** http://btyz.51web.cn/ **********
'****************************************************************
SearchFile فئة
تمرير مسار المجلد المطلق ، يستخدم Multipath + علامة للاتصال ، لا توجد مسافات
الكلمة الرئيسية الخافتة "الكلمات الرئيسية المارة
يعرّف Dimfso 'المتغيرات العالمية
يحدد العداد الخافت المتغيرات العالمية ، وعدد نتائج البحث
'*************** الاتهام ****************************************
sub class_initialize الخاص
تعيين objfso = server.createBject (scripting.filesystemObject)
العداد = 0 'تهيئة العداد
نهاية الفرعية
'*********************************************************************
sub class_terminate الخاص
تعيين objfso = لا شيء
نهاية الفرعية
'****************** عضو عام ، طريقة تسمى *********************************
البحث عن وظيفة
المجلدات = تقسيم (مجلدات ،+) "تحويل إلى صفيف
الكلمة الرئيسية = trim (الكلمة الرئيسية) "قم بإزالة المساحات قبل وبعد
إذا كانت الكلمة الرئيسية = ثم
Response.write (<font color = 'red'> لا يمكن أن تكون الكلمة الرئيسية فارغة </font> <br/>)
وظيفة الخروج
إنهاء إذا
فقط حدد ما إذا تم تضمين الشخصيات غير القانونية
Flag = Instr (الكلمة الرئيسية ،/) أو Instr (الكلمة الرئيسية ،/)
Flag = flag أو Instr (الكلمة الرئيسية ، :)
Flag = flag أو Instr (الكلمة الرئيسية ، |)
Flag = Flag أو Instr (الكلمة الرئيسية ، &)
إذا كان العلم ، فلا يمكن أن تحتوي الكلمة الرئيسية على //: | &
Response.write (<font color = 'red'> لا يمكن أن تحتوي الكلمة الرئيسية على //: | & </font> <br/>)
وظيفة الخروج "إذا تم تضمين هذا ، خروج
إنهاء إذا
البحث متعدد المسار
خافت أنا
لأني = 0 إلى أوبوند (مجلدات)
استدعاء getAllfile (المجلدات (i))
التالي
استجابة. write (إجمالي <font color = 'red'> & counter & </font> تم البحث في نتائجها)
وظيفة نهاية
'******************************************
وظيفة خاصة getallfile (مجلد)
Dim OBJFD ، OBJFS ، objff
تعيين OBJFD = objfso.getfolder (مجلد)
تعيين OBJFS = objfd.subfolders
تعيين OBJFF = OBJFD.FILES
السفر عبر المجلدات الفرعية
Dim Strfdname 'إعلان اسم المجلد الفرعي
'************ زيارة المجلدات الفرعية *******
عند استئناف الخطأ التالي
لكل Onedir في OBJFs
strfdname = onedir.name
لا يتم تضمين مجلد النظام في اجتياز
إذا كان strfdname <> config.msi eqv strfdname <> إعادة تدوير eqv strfdname <> recycler eqv strfdname <> معلومات حجم النظام ثم المعلومات