يعد تنفيذ وظيفة البحث الذكي ضمن asp مناسبًا للجميع للتعلم<%
وظيفة المفتاح التلقائي (strKey)
Const lngSubKey=2
lngLenKey=لين(strKey)
حدد حالة lngLenKey
الحالة 0 'إذا كانت سلسلة فارغة، فانتقل إلى صفحة الخطأ
Response.RedirectError.htm
الحالة 1 'إذا كان الطول 1، فلا تقم بتعيين أي قيمة
strNew1=
strNew2=
حالة أخرى "إذا كان الطول أكبر من 1، فابدأ من الحرف الأول من السلسلة ثم قم بالتكرار عبر السلسلة الفرعية ذات الطول 2 كشرط الاستعلام
بالنسبة إلى i=1 إلى lngLenKey-(lngSubKey-1)
strSubKey=Mid(strKey,i,lngSubKey)
strNew1=strNew1 & أو U_Name مثل '% & strSubKey & %'
strNew2=strNew2 & أو U_Info مثل '% & strSubKey & %'
التالي
إنهاء التحديد
'احصل على بيان SQL الكامل
AutoKey=اختر * من T_Sample حيث U_Name مثل '% & strKey & %' أو U_Info مثل '% & strKey & %' & strNew1 & strNew2
وظيفة النهاية
%>