<%
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
%>
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
%>