<%@language = vbscript codepage = 936%>
-
สลัวเซนต์
ST = ตัวจับเวลา ()
-
'*************** ค้นหาไฟล์ฮาร์ดดิสก์คลาส SearchFile ************
'************ วิธีการโทร: ************
'************ SET NewsSearch = New SearchFile' ประกาศ ************
'************ Newsearch.folder = f:+e:' แหล่งค้นหาที่เข้ามา *************
'************ newSearch.keyword = คำหลัก' คำหลัก ***************
'************ Newsearch.search' เริ่มค้นหา ************
'************ SET NewsSearch = Nothing' End ***************
'************ ลิขสิทธิ์ (c) 完望完月完月 ****************
'************* http://btyz.51web.cn/ **********
-
คลาส searchfile
Dim Folders 'ผ่านเส้นทางที่แน่นอน Multipath ใช้เครื่องหมาย + เพื่อเชื่อมต่อไม่มีช่องว่าง
คำหลักผ่านคำหลัก
dim objfso 'กำหนดตัวแปรทั่วโลก
Dim Counter 'กำหนดตัวแปรส่วนกลางจำนวนผลการค้นหา
'*************** การเริ่มต้น ****************************************************************
คลาสย่อย class_initialize
ตั้งค่า objfso = server.createObject (scripting.filesystemobject)
counter = 0 'เริ่มต้นตัวนับ
สิ้นสุดย่อย
-
คลาสย่อย 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/>)
ฟังก์ชั่นทางออก 'หากรวมอยู่
สิ้นสุดถ้า
'การค้นหาหลายเส้นทาง
หรอกฉัน
สำหรับ i = 0 ถึง Ubund (โฟลเดอร์)
CALL GETALLFILE (โฟลเดอร์ (i)) 'ฟังก์ชั่นการเรียกซ้ำแบบวนซ้ำ
ต่อไป
Response.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
'โฟลเดอร์ระบบไม่รวมอยู่ใน Traversal
ถ้า strfdname <> config.msi eqv strfdname <> รีไซเคิล eqv strfdname <> Recycler eqv strfdname <> ข้อมูลระดับเสียงของระบบแล้ว