结合asp和存储过程做的搜索程序

---
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 &l