من السهل استخدام ASP للبحث، لكن تنفيذ البحث الذكي مرهق بعض الشيء. في الواقع، أي برنامج مشابه يعتمد بشكل أساسي على قوة معالجة قاعدة البيانات. بشكل عام، غالبًا ما يتم إقران ASP لمواقع الويب الصغيرة قاعدة بيانات ACCESS، ضمن هذا التكوين، يتعين علينا التنفيذ للبحث عن الكلمات الرئيسية وتمييزها بطريقة غير حساسة لحالة الأحرف، تحتاج إلى استخدام المعالجة العادية لـ ASP، يرجى الاطلاع على الكود التالي:
انسخ رمز الكود كما يلي:
<%
إخراج الوظيفة (النمط، السلسلة 1، الألوان)
"استخرج النص المطابق لكلمة البحث الرئيسية."
Dim regEx، Match، Matches، tt 'إنشاء متغيرات.
Set regEx = New RegExp ' إنشاء تعبير عادي.
regEx.Pattern = patrn ' تعيين النمط.
regEx.IgnoreCase = True ' قم بتعيين ما إذا كنت تريد أن تكون حساسًا لحالة الأحرف.
regEx.Global = True ' قم بتعيين التوفر العالمي.
تعيين التطابقات = regEx.Execute(string1) 'تنفيذ البحث.
لكل مباراة في المباريات، قم باجتياز مجموعة المباريات.
RetStr = RetStr & Match.Value &
التالي
RetStr = تقليم (RetStr)
إذا instr(RetStr, )>0 ثم
لـ tt = 0 إلى ubound(split(RetStr, ))
string1 = استبدال(string1,split(RetStr, )(tt),<font color=&colors&>&split(RetStr, )(tt)&</font>)
التالي
آخر
string1 = استبدال(string1,RetStr,<font color=&colors&>&RetStr&</font>)
نهاية إذا
الإخراج = السلسلة 1
وظيفة النهاية
Response.write Takeout (jOeKOe، إصدار جويكو جويكو ثنائي اللغة، أحمر)
وظيفة Highlight(strContent,keyword) "وضع علامة على الكلمات الرئيسية المميزة."
خافت RegEx
اضبط RegEx=new 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 = لا شيء
Highlight=strContent
وظيفة النهاية
Response.write Highlight (إصدار Joekoe ثنائي اللغة، jOeKOe)
%>