asp 函数
function analysekeyword(a_strsource)
dim m_strdest , m_intloop
dim m_intbeginpos , m_intendpos
dim m_strhead , m_strmiddle , m_strtail
m_strdest = a_strsource
------------------------------处理空格------------------------------------------------------
首先去掉头尾空格
m_strdest = ltrim(rtrim(m_strdest))
将& , " and " 等替换成 +、 -、空格
m_strdest = replace(m_strdest , "&" , "+")
m_strdest = replace(m_strdest , " and " , "+")
m_strdest = replace(m_strdest , " or " , chr(32))
m_strdest = replace(m_strdest , " not " , "-")
初始化变量，以使下面的循环进行
m_intbeginpos = 1
do while m_intbeginpos <> 0
m_intbeginpos = instr(m_strdest ,chr(32))
if m_intbeginpos <> 0 then 如果找到空格
m_strhead = rtrim(ltrim(left ( m_strdest , m_intbeginpos )))
call print("[analysekeyword()]:处理空格m_strhead = " + m_strhead)
m_strtail = rtrim(ltrim(right (m_strdest , len(m_strdest) - m_intbeginpos)))
call print("[analysekeyword()]:处理空格m_strtail = " + m_strtail)
m_strdest = m_strhead + "*" + m_strtail
else
exit do
end if
loop
m_strdest = replace (m_strdest , "*" , chr(32))
call print("[analysekeyword()]:处理空格完毕后m_strdest = " + m_strdest)
-------------------------------空格处理完毕-------------------------------------------------
-------------------处理单双引号-----------------------------------------------------
首先将单引号替换为双引号
m_strdest = replace ( m_strdest , chr(39) , chr(34))
置一个初值以使循环进行
m_intbeginpos = 1
m_intendpos =1
m_strhead = ""
m_strtail = ""
do while m_intbeginpos <> 0 and m_intendpos <> 0
如果发现双引号，则记下开始位置,查找下一个双引号
m_intbeginpos = instr(m_strdest , chr(34))
if m_intbeginpos <> 0 then 如果找到第一个引号
call print("[analysekeyword()]:第一个引号出现的位置：" + cstr(m_intbeginpos))
m_intendpos = instr(m_intbeginpos + 1 , m_strdest ,chr(34))
if m_intendpos <> 0 then 如果找到第二个引号
call print("[analysekeyword()]:第二个引号出现的位置：" + cstr(m_intendpos))
将整个字符串按引号分隔成三段
call print ("[analysekeyword()]:处理引号m_strdest = " + m_strdest)
m_strhead = left(m_strdest , m_intbeginpos - 1)
call print ("[analysekeyword()]:处理引号m_strhead = " + m_strhead)
m_strmiddle = mid(m_strdest , m_intbeginpos + 1 , m_intendpos - m_intbeginpos - 1)
call print ("[analysekeyword()]:处理引号m_strmiddle = " + m_strmiddle)
m_strtail = right(m_strdest , len(m_strdest) - m_intendpos)
call print ("[analysekeyword()]:m_strtail = " + m_strtail)
如果在引号中有+号则作为字符处理，暂时替换成其他字符
m_strmiddle = replace(m_strmiddle , "+" , "|")
m_strdest = m_strhead + replace(rtrim(ltrim(m_strmiddle)) , chr(32) , "#") + m_strtail
else
exit do
end if
else
exit do
end if
loop
m_strdest = replace(m_strdest , chr(34) , "+")
call print ("[analysekeyword()]:处理引号完毕后m_strdest = " + m_strdest)
-------------------------------引号处理完毕-------------------------------------------------
-------------------------------处理多个加号及加号两边的空格问题-----------------------------
处理多个加号的问题，遇到多个加号则认为是字符串，而不是逻辑符
m_strdest = replace (m_strdest , "+++" ,"|||")
m_strdest = replace (m_strdest , "++" , "||")
call print ("[analysekeyword()]:处理多个减号完毕后m_strdest = " + m_strdest + "")
处理加号两边的空格
m_strdest = replace(m_strdest , " +" , "+")
m_strdest = replace(m_strdest , "+ " , "+")
m_strdest = replace(m_strdest , " + " , "+")
call print ("[analysekeyword()]:处理减号两边的空格完毕后m_strdest = " + m_strdest + "")
-------------------------------处理加号完毕-----------------------------
-------------------------------处理多个减号及减号两边的空格问题-----------------------------
处理多个减号的问题，遇到多个减号则认为是字符串，而不是逻辑符
m_strdest = replace (m_strdest , "---" ,"~~~")
m_strdest = replace (m_strdest , "--" , "~~")
call print ("[analysekeyword()]:处理多个减号完毕后m_strdest = " + m_strdest + "")
处理减号两边的空格
m_strdest = replace(m_strdest , " -" , "-")
m_strdest = replace(m_strdest , "- " , "-")
m_strdest = replace(m_strdest , " - " , "-")
call print ("[analysekeyword()]:处理加号两边的空格完毕后m_strdest = " + m_strdest + "")
-------------------------------处理减号完毕-----------------------------
------------------------------处理字符串两头的加减号问题-----------------
if len(m_strdest) >= 3 then
m_strhead = left(m_strdest , 1)
m_strmiddle = mid(m_strdest , 2 , len(m_strdest) - 2)
m_strtail = right(m_strdest , 1)
if m_strhead = "+" or m_strhead = "-" then
m_strhead = ""
end if
if m_strtail = "+" or m_strtail = "-" then
m_strtail = ""
end if
m_strdest = m_strhead + m_strmiddle + m_strtail
end if
----------------------------处理完毕-------------------------------------
m_strdest = replace(m_strdest , "--" , "~~")
m_strdest = replace(m_strdest , "++" , "||")
m_strdest = replace(m_strdest , chr(32) , "@")
analysekeyword = m_strdest
call print ("[analysekeyword()]:全部处理完毕后m_strdest = " + m_strdest + "")
end function
%>
存储过程
/*********************************************************************/
/* proc name : up_parsewordsearch */
/* */
/* description: 关键字搜索 */
/* */
/* parameters: @a_strcategoryid 分类id */
/* @a_intposition 调用的位置 */
/* @a_strparseword 搜索关键字 */
/* @a_introwcount 限定最多取得记录数 */
/* */
/* date: 2000/6/28 */
/* */
/* author: liuyunpeng */
/* */
/* history: */
/*********************************************************************/
if exists (select * from sysobjects where id = object_id("up_parsewordsearch"))
drop proc up_parsewordsearch
go
create proc up_parsewordsearch @a_strparseword varchar(255) ,
@a_strcategoryid varchar(255) ,
@a_intposition tinyint ,
@a_introwcount int
as
declare @m_strsqlcondition varchar(255) --sql语句的条件部分
declare @m_strsqlselect varchar(255) --sql语句的选择部分
declare @m_strsqlcategory varchar(100) --sql语句的分类部分
/*根据调用位置决定sql的选择部分*/
select @m_strsqlselect
= case
when @a_intposition = 4 then --商品库
"select productid , title = productname , description = left(description , 100) "
+ " from product where "
when @a_intposition = 5 then --商业机会库
"select id , title ,description = left(convert(varchar,content) , 100) "
+ " from businesschance where "
when @a_intposition = 6 then --公司库
"select companyid , title = companyname , description =left(description , 100) "
+ " from company where "
end
/*根据分类id决定sql的分类部分*/
select @m_strsqlcategory
= case
when @a_strcategoryid <> "0" then " categoryid like " + @a_strcategoryid + "% and "
else ""
end
/*根据调用位置决定sql的条件部分*/
select @m_strsqlcondition
= case
when @a_intposition = 4 --商品
then "(productname like %" + @a_strparseword + "%"
+ " or description like %" + @a_strparseword + "%"
+ " or producername like %" + @a_strparseword + "%) "
when @a_intposition = 5 --商业机会
then "(title like %" + @a_strparseword + "%"
+ " or keyword like %" + @a_strparseword + "%) "
when @a_intposition = 6
then "(companyname like %" + @a_strparseword + "%"
+ " or description %" + @a_strparseword + "%) "
end
set rowcount @a_introwcount
exec (@m_strsqlselect + @m_strsqlcategory + @m_strsqlcondition)
set rowcount 0
go
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
