<%

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

%>