ASP实现智能搜索

<%
Function  AutoKey ( strKey )

Const  lngSubKey = 2
lngLenKey = Len ( strKey )

Select  Case  lngLenKey
Case  0    '若为空串，转到出错页
Response . Redirect  "Error.htm"
Case  1    '若长度为1，则不设任何值
strNew1 = ""
strNew2 = ""
Case  Else   '若长度大于1，则从字符串首字符开始，循环取长度为2的子字符串作为查询条件

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

'得到完整的SQL语句
AutoKey = "Select * from T_Sample where U_Name like '%"  &  strKey  &  "%' Or U_Info like '%"  &  strKey  &  "%'"  &  strNew1  &  strNew2
End  Function
%>