-
head = ค้นหา
SearchString = คำขอ (SearchString)
นับ = 0
'แปลงเส้นทางที่แท้จริงของไดเรกทอรีปัจจุบันเป็นเส้นทางเสมือนจริง
ฟังก์ชั่น unmappath (เส้นทาง)
unmappath = แทนที่ (mid (path, len (server.mappath ( /)) + 1), /, /)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น SearchFile (f, s, title)
ตั้งค่า fo = fs.opentextfile (f)
content = fo.readall 'อ่านข้อความทั้งหมดเป็นเนื้อหา
fo.close
searchFile = instr (1, content, s, vbtextcompare)> 0 'เริ่มจากอักขระตัวแรกเพื่อตรวจสอบว่ามี s ในเนื้อหา
หาก SearchFile แล้วจะมีตัวแปรการฝากชื่อไฟล์ไฟล์
pos1 = instr (1, เนื้อหา, <title>, vbtextcompare)
pos2 = instr (1, เนื้อหา, </title>, vbtextcompare)
ชื่อ =
ถ้า pos1> 0 และ pos2> 0 จากนั้นจะทำอักขระตรงกลางของแท็กชื่อ
title = mid (เนื้อหา, pos1 + 7, pos2 - pos1 - 7)
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น filelink (f, ชื่อ)
vpath = unmappath (f.path) 'ใช้เส้นทาง
ถ้า title = tfting title = f.name 'เพื่อสร้างลิงก์
filelink = <a href = & vpath &> & title & </a>
filelink = <ul> · & filelink & </ul>
ฟังก์ชันสิ้นสุด
Sub SearchFolder (FD, S)
พบ = เท็จ
สำหรับแต่ละ f ใน fd.files
pos = instrrev (f.path,.)
ถ้า pos> 0 แล้ว
ext = mid (f.path, pos + 1)
อื่น
ext =
สิ้นสุดถ้า
ถ้า lcase (ext) = htm ไฟล์ show ที่มีชื่อส่วนขยาย htm
ถ้า SearchFile (f, s, title) แล้ว
Response.write Filelink (f, title)
นับ = นับ+1
'response.write cstr (นับ)
สิ้นสุดถ้า
สิ้นสุดถ้า
ต่อไป
สำหรับ SFD แต่ละตัวใน FD.SubFolders
SearchFolder Sfd, S
ต่อไป
สิ้นสุดย่อย
-
<html>
<head>
<meta http-equiv = ประเภทเนื้อหา
content = text/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> โปรดป้อนเนื้อหาที่คุณต้องการค้นหา: <อินพุตประเภท = ข้อความ
size = 20 name = searchString value = <%= searchString%>> <อินพุต
type = submit value = search> </p>
</form>
-
ตั้งค่า fs = server.createObject (scripting.filesystemobject)
ตั้งค่า fd = fs.getFolder (server.mappath (/)) 'ตั้งค่าเส้นทางเพื่อเริ่มการค้นหา!
ถ้า SearchString <> แล้ว
Response.write <H2> ค้นหา <font color = red> & searchstring & </font> ผลลัพธ์มีดังนี้: </h2> <p>
SearchFolder FD, SearchString
สิ้นสุดถ้า
-
<Hr>