ASP实现智能搜索实现代码
摘要：
<%
FunctionAutoKey(strKey)
ConstlngSubKey=2
lngLenKey=Len(strKey)
SelectCaselngLenKey
Case0'若为空串，转到出错页
Response.Redirect"Error.htm"
Case1'若长度为1，则不设任何值
strNew1=""
strNew2=""
CaseElse'若长度大于1，则从字符串首字符开始，循环取长度为2的子字符串作为查询条件
Fori=1TolngLenKey-(lngSubKey-1)
strSubKey=Mid(strKey,i,lngSubKey)
strNew1=strNew1&"OrU_Namelike'%"&strSubKey&"%'"
strNew2=strNew2&"OrU_Infolike'%"&strSubKey&"%'"
Next
EndSelect
'得到完整的SQL语句
AutoKey="Select*fromT_SamplewhereU_Namelike'%"&strKey&"%'OrU_Infolike'%"&strKey&"%'"&strNew1&strNew2
EndFunction
%>
【ASP实现智能搜索实现代码】相关文章：
上一篇：
ASP vbs 代码大小写规范