您的位置: 首页  >  IT文章  >  一个查询关键字拆分搜索有关问题

一个查询关键字拆分搜索有关问题

分类: IT文章 • 2023-03-17 00:21:22
一个查询关键字拆分搜索问题
拆分代码如下
<%
Dim strstr=trim(request("kfs_name"))
ReDim KeyList(0) 
     For i=0 To Len(str)-1 
    For n=1 To Len(str)-i
        KeyList(UBound(KeyList))=Mid(str,i+1,n)
        ReDim Preserve KeyList(UBound(KeyList)+1)
    Next
Next

ReDim Preserve KeyList(UBound(KeyList)-1)
For i=0 To UBound(KeyList)    For j=i+1 To UBound(KeyList)
        If Len(KeyList(j))>Len(KeyList(i)) Then
            temp=KeyList(i)
            KeyList(i)=KeyList(j)
            KeyList(j)=temp
       End If
    Next
Next

For i=0 To UBound(KeyList)    Response.Write "　"&KeyList(i)&"<br>"
Next
%>
例如在查询关键字输入“我是谁”，拆分后显示“我是谁，我是，是谁，我，是，谁”，请问该怎么实现按照拆分后的所有组合进行数据查询并显示？？
------解决思路----------------------
引用:
拆分代码如下
<%
Dim strstr=trim(request("kfs_name"))
ReDim KeyList(0) 
     For i=0 To Len(str)-1 
    For n=1 To Len(str)-i
        KeyList(UBound(KeyList))=Mid(str,i+1,n)
        ReDim Preserve KeyList(UBound(KeyList)+1)
    Next
Next

ReDim Preserve KeyList(UBound(KeyList)-1)
For i=0 To UBound(KeyList)    For j=i+1 To UBound(KeyList)
        If Len(KeyList(j))>Len(KeyList(i)) Then
            temp=KeyList(i)
            KeyList(i)=KeyList(j)
            KeyList(j)=temp
       End If
    Next
Next

For i=0 To UBound(KeyList)    Response.Write "　"&KeyList(i)&"<br>"
Next
%>
例如在查询关键字输入“我是谁”，拆分后显示“我是谁，我是，是谁，我，是，谁”，请问该怎么实现按照拆分后的所有组合进行数据查询并显示？？

就是条件拼接的问题啊

字段 like '%我是谁%' or 字段 like '%我是%' or 字段 like '%是谁%' or 字段 like '%我%' or 字段 like '%是%' or 字段 like '%谁%'

相关推荐