La implementación de la función de búsqueda inteligente en asp es conveniente para que todos aprendan <%
Función AutoKey(strKey)
Subclave larga constante=2
lngLenKey=Len(claveClave)
Seleccionar caso lngLenKey
Caso 0 'Si es una cadena vacía, vaya a la página de error
Respuesta.RedirectError.htm
Caso 1 'Si la longitud es 1, entonces no establezca ningún valor
cadenaNuevo1=
strNew2=
Case Else 'Si la longitud es mayor que 1, comience desde el primer carácter de la cadena y recorra la subcadena de longitud 2 como condición de consulta
Para i=1 a lngLenKey-(lngSubKey-1)
strSubKey=Medio(strKey,i,lngSubKey)
strNew1=strNew1 & O U_Name como '% & strSubKey & %'
strNew2=strNew2 & O U_Info como '% & strSubKey & %'
Próximo
Seleccionar fin
'Obtener la declaración SQL completa
AutoKey=Seleccione * de T_Sample donde U_Name como '% & strKey & %' O U_Info como '% & strKey & %' & strNew1 & strNew2
Función final
%>