鲁虺人文搜索

输入关键词：

推荐： 人文 文化 传媒 土耳其 语言翻译

鲁虺人文搜索 / ASP 多个关键词搜索类	上一个 查看全部 下一个
ASP 多个关键词搜索类
ASP 多个关键词搜索类 複製內容到剪貼板 代碼: <% Class Search     Private objRequest     Private objRs     Private objConn     Private bolExactitude \'********************************************************* \' 初始化/&#32456;止程序 \'*********************************************************     Private Sub Class_Initialize() &ASP 多個關鍵詞搜索,每個關鍵詞以+號或空格隔開.[code]keyword=trim(request(keyword))strkeyword=instr(keyword, )if strkeyword=0 then'是否為+號keyword1=split(keyword,+)elsekeyword1=split(keyword, )end ifArrayi=ubound(keyword1)if arrayi=0 then '只有一個關鍵字時,就不用執行循環了.sql=sql& (I_title like '%&keyword1(i)&%' or I_Keyword like '%&keyword1(i)&%')elsefor i=0 to Arrayiif i=0 then'循環到第一個關鍵詞時sql=sql& (I_title like '%&keyword1(i)&%' or I_Keyword like '%&Keyword1(i)&am