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

比较复杂，可以支持多种逻辑符，包括 + - and or 空格等，并且根据需要随便增加。可以根据条件选择在那个表中搜索，对速度也做了优化，可以说是很快的。当然因为是以前写的，存在不少毛病。存储过程中用到几乎所有sql server的特性，如光标（记录集分页）等。好了，不吹了，自己看程序吧。

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

时间： 2024-10-18 21:30:11

结合asp和存储过程做的搜索程序的相关文章

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

比较复杂,可以支持多种逻辑符,包括 + - and or 空格等,并且根据需要随便增加.可以根据条件选择在那个表中搜索,对速度也做了优化,可以说是很快的.当然因为是以前写的,存在不少毛病.存储过程中用到几乎所有sql server的特性,如光标(记录集分页)等.好了,不吹了,自己看程序吧. asp 函数 复制代码 代码如下:   function AnalyseKeyword(a_strSource)       dim m_strDest , m_intLoop        dim m_in

利用索引服务和ASP建立面向整个网站搜索程序

程序|索引|索引 配置Index Server 在执行Web服务器上的搜索之前,首先必须创建至少一个索引,并遵循以下步骤完成这项工作. ⒈启动Windows 2000 Server服务器上的索引. 缺省情况下选择图标位于管理工具组中的计算机管理.窗口的右边提供关于当前在服务器上存在的索引信息.默认有两个索引:System和Web. ⒉要创建新的索引,用鼠标右键单击索引服务或右边的面板,选定新建编录. 显示添加编录对话框,指定索引的名称并用浏览按钮选取位置.索引服务不会立即开始索引,此时将弹出一条

利用索引服务(Indexing Service)和ASP建立面向整个网站搜索程序

配置Index Server 在执行Web服务器上的搜索之前,首先必须创建至少一个索引,并遵循以下步骤完成这项工作. ⒈启动Windows 2000 Server服务器上的索引. 缺省情况下选择图标位于管理工具组中的计算机管理.窗口的右边提供关于当前在服务器上 存在的索引信息.默认有两个索引:System和Web. ⒉要创建新的索引,用鼠标右键单击索引服务或右边的面板,选定新建编录. 显示添加编录对话框,指定索引的名称并用浏览按钮选取位置.索引服务不会立即开始索引,此时将弹出一条消息框,单 击确

在用存储过程做分页搜索有点问题,请大家帮忙!分不够再加!

问题描述 存储过程:ifExists(SelectnameFromsysobjectsWherename='csp_Paging'Andtype='P')DropProceduredbo.csp_PagingGo/**临时表分页SP.*/CreatePROCdbo.csp_Paging@PageSizeINT=20,@PageIndexINT=1,@DoCountBIT=0,@keyWordvarchar(200),@inputtypevarchar(100)ASSETNOCOUNTONIF@D

ASP与存储过程

存储过程     ASP与存储过程(Stored Procedures)的文章不少,但是我怀疑作者们是否真正实践过.我在初学时查阅过大量相关资料,发现其中提供的很多方法实际操作起来并不是那么回事.对于简单的应用,这些资料也许是有帮助的,但仅限于此,因为它们根本就是千篇一律,互相抄袭,稍微复杂点的应用,就全都语焉不详了.     现在,我基本上通过调用存储过程访问SQL Server,以下的文字虽不敢保证绝对正确,但都是实践的总结,希望对大家能有帮助.     存储过程就是作为可执行对象存放在数据

ASP动态网页：ASP与存储过程实践(实例)

存储过程|动态|网页 ASP与存储过程(Stored Procedures)的文章不少,但是我怀疑作者们是否真正实践过.我在初学时查阅过大量相关资料,发现其中提供的很多方法实际操作起来并不是那么回事.对于简单的应用,这些资料也许是有帮助的,但仅限于此,因为它们根本就是千篇一律,互相抄袭,稍微复杂点的应用,就全都语焉不详了.     现在,我基本上通过调用存储过程访问SQL Server,以下的文字虽不敢保证绝对正确,但都是实践的总结,希望对大家能有帮助.     存储过程就是作为可执行对象存放在

动态网页经验总结：ASP与存储过程实践(实例)

存储过程|动态|网页 ASP与存储过程(Stored Procedures)的文章不少,但是我怀疑作者们是否真正实践过.我在初学时查阅过大量相关资料,发现其中提供的很多方法实际操作起来并不是那么回事.对于简单的应用,这些资料也许是有帮助的,但仅限于此,因为它们根本就是千篇一律,互相抄袭,稍微复杂点的应用,就全都语焉不详了. 现在,我基本上通过调用存储过程访问SQL Server,以下的文字虽不敢保证绝对正确,但都是实践的总结,希望对大家能有帮助. 存储过程就是作为可执行对象存放在数据库中的一个或

返回多个记录集的存储过程-ASP调用存储过程

存储过程|记录集 本文最先介绍的是返回记录集的存储过程.有时候,需要一个存储过程返回多个记录集,在ASP中,如何同时取得这些记录集呢?为了说明这一问题,在userinfo表中增加两个字段:usertel及usermail,并设定只有登录用户可以查看这两项内容. /*SP7*/CREATE PROCEDURE dbo.getUserInfo@userid int,@checklogin bitasset nocount onbeginif @userid is null or @checklogi

Asp调试存储过程

存储过程 asp开发bs架构的三层系统,对于中小结构的系统把业务逻辑放在sqlserver的存储过程里面是一个很好的实现方法,但这么做出现了一个asp客户端和数据库存储过程之间配合调试的不方便. 实际开发中我写了下面一个函数,自动把asp端传给数据库的参数取出,自动生成符合sqlserver查询分析器的规则的存储过程执行命令串,放在textarea控件里,可以从页面直接复制到查询分析器里进行存储过程调试,下面就是程序.'======================================