การใช้งานฟังก์ชันการค้นหาอัจฉริยะภายใต้ asp นั้นสะดวกสำหรับทุกคนในการเรียนรู้<%
ฟังก์ชั่นคีย์อัตโนมัติ (strKey)
Const lngSubKey=2
lngLenKey=เลน(strKey)
เลือกกรณี lngLenKey
กรณีที่ 0 'หากเป็นสตริงว่าง ให้ไปที่หน้าข้อผิดพลาด
การตอบสนอง RedirectError.htm
กรณีที่ 1 'หากความยาวเป็น 1 ไม่ต้องตั้งค่าใดๆ
strNew1=
strNew2=
Case Else 'หากความยาวมากกว่า 1 ให้เริ่มจากอักขระตัวแรกของสตริงและวนซ้ำผ่านสตริงย่อยที่มีความยาว 2 เป็นเงื่อนไขการสืบค้น
สำหรับ i=1 ถึง lngLenKey-(lngSubKey-1)
strSubKey=กลาง(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
สิ้นสุดฟังก์ชัน
-