La mise en œuvre de la fonction de recherche intelligente sous asp est pratique pour tout le monde à apprendre<%
Fonction AutoKey(strKey)
Const lngSubKey=2
lngLenKey=Len(strKey)
Sélectionnez le cas lngLenKey
Cas 0 'S'il s'agit d'une chaîne vide, accédez à la page d'erreur
Réponse.RedirectError.htm
Cas 1 : Si la longueur est 1, ne définissez aucune valeur
strNouveau1=
strNouveau2=
Case Else « Si la longueur est supérieure à 1, commencez par le premier caractère de la chaîne et parcourez la sous-chaîne de longueur 2 comme condition de requête.
Pour i=1 À lngLenKey-(lngSubKey-1)
strSubKey=Mid(strKey,i,lngSubKey)
strNew1=strNew1 & Ou U_Name comme '% & strSubKey & %'
strNew2=strNew2 & Ou U_Info comme '% & strSubKey & %'
Suivant
Fin de la sélection
'Obtenir l'instruction SQL complète
AutoKey=Sélectionnez * dans T_Sample où U_Name comme '% & strKey & %' Ou U_Info comme '% & strKey & %' & strNew1 & strNew2
Fonction de fin
%>