การใช้ ASP เป็นเรื่องง่ายในการค้นหา แต่การใช้การค้นหาอัจฉริยะจะเหนื่อยกว่าเล็กน้อย จริงๆ แล้ว โปรแกรมใดๆ ก็ตามก็คล้ายกัน ขึ้นอยู่กับพลังการประมวลผลของฐานข้อมูลเป็นหลัก ฐานข้อมูล ACCESS ภายใต้การกำหนดค่านี้ เราต้องใช้ เพื่อค้นหาและเน้นคำหลักในลักษณะที่ไม่คำนึงถึงตัวพิมพ์เล็กและใหญ่ คุณต้องใช้การประมวลผลปกติของ ASP โปรดดูรหัสต่อไปนี้:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ฟังก์ชั่น Takeout (รูปแบบ, string1, สี)
'แยกข้อความที่ตรงกับคำค้นหา
Dim regEx, Match, Matches, tt 'สร้างตัวแปร
ตั้งค่า regEx = New RegExp ' สร้างนิพจน์ทั่วไป
regEx.Pattern = patrn ' กำหนดรูปแบบ
regEx.IgnoreCase = True ' ตั้งค่าว่าจะคำนึงถึงตัวพิมพ์เล็กและตัวพิมพ์ใหญ่หรือไม่
regEx.Global = True ' ตั้งค่าความพร้อมใช้งานทั่วโลก
Set Matches = regEx.Execute(string1) 'ดำเนินการค้นหา
สำหรับการแข่งขันแต่ละรายการในแมตช์ ' สำรวจคอลเลกชันแมตช์
RetStr = RetStr & Match.Value &
ต่อไป
RetStr = เล็ม (RetStr)
ถ้า instr(RetStr, )>0 แล้ว
สำหรับ tt = 0 ถึง ubound (แยก (RetStr, ))
string1 = แทนที่(string1,แยก(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
ต่อไป
อื่น
string1 = แทนที่(string1,RetStr,<font color=&colors&>&RetStr&</font>)
สิ้นสุดถ้า
ซื้อกลับบ้าน = string1
ฟังก์ชันสิ้นสุด
response.write Takeout(jOeKOe, Joekoe Joeko เวอร์ชันสองภาษา, สีแดง)
Function Highlight(strContent,keyword) 'ทำเครื่องหมายคำสำคัญที่เน้นสี
Dim RegEx
ตั้งค่า RegEx=regExp ใหม่
RegEx.IgnoreCase =True 'ไม่คำนึงถึงขนาดตัวพิมพ์
RegEx.Global=จริง
Dim ArrayKeyword,i
ArrayKeyword = Split(keyword, )'คำหลักหลายคำคั่นด้วยช่องว่าง
สำหรับ i=0 ถึง Ubound (ArrayKeyword)
RegEx.Pattern=(&ArrayKeyword(i)&)
strContent=RegEx.Replace(strContent,<font color=red>$1</font> )
ต่อไป
ตั้งค่า RegEx=ไม่มีอะไร
ไฮไลท์=strContent
ฟังก์ชันสิ้นสุด
response.write Highlight(เวอร์ชั่นสองภาษาของ Joekoe,jOeKOe)
-