Code for implementing intelligent search using ASP

<%
Function autokey (strkey)

Const lngsubkey = 2
Lnglenkey = Len (strkey)

Select case lnglenkey
Case 0' if it is an empty string, go to the error page
Response. Redirect "error.htm"
Case 1' if the length is 1, no value is set
Strnew1 = ""
Strnew2 = ""
Case else 'if the length is greater than 1, the first character of the string starts and the substring with the length of 2 is used as the query condition.

For I = 1 to lnglenkey-(lngSubKey-1)

Strsubkey = mid (strkey, I, lngsubkey)

Strnew1 = strnew1 & "or u_name like '%" & strsubkey & "% '"
Strnew2 = strnew2 & "or u_info like '%" & strsubkey & "% '"
Next
End select

'Get the complete SQL statement
Autokey = "select * From t_sample where u_name like '%" & strkey & "%' or u_info like '%" & strkey & "%'" & strnew1 & strnew2
End Function
%>