知识大全 用asp编写类似搜索引擎功能的代码

Posted

篇首语:读不在三更五鼓,功只怕一曝十寒。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 用asp编写类似搜索引擎功能的代码相关的知识,希望对你有一定的参考价值。

  首先建一个access数据库 库中有一个URLINDEX表 其中URL和Keywords字段分别添加了索引 如下  

URL             文本 (索引:有(无重复)) Title            文本 Description 文本 Summary    文本 Keywords   文本(索引:有(无重复)) 程序文件doquery asp 代码 <HTML><HEAD><TITLE>简单搜索引擎</TITLE></HEAD> <BODY BGCOLOR=#ffffff MARGINWIDTH=" " MARGINHEIGHT=" "  LEFTMARGIN=  TOPMARGIN= >  <FORM METHOD="post" ACTION="doquery asp?act=search">  Query: <INPUT TYPE="Text" NAME="QueryString"><BR>  <INPUT TYPE="Submit" VALUE="Submit"> </FORM> </CENTER> <% dim act act=request("act") if(act="search") then  QueryString = Request form( "QueryString" )  QueryWords  = Split( QueryString )  strIndent   = "          "    ’ 如果搜索为空则返回  If QueryString = "" Then   Response Redirect( "default asp" )  End If    Session timeout =   If IsObject(Session("sitesearch_conn")) Then      Set conn = Session("sitesearch_conn")  Else      Set conn = Server CreateObject("ADODB Connection")      conn open "driver=Microsoft Access Driver (* mdb);dbq=" & Server MapPath("database/SiteSearch mdb") "" ""      Set Session("sitesearch_conn") = conn  End If  ’ 查询语句  sql = "SELECT * FROM [URLIndex] WHERE"         ’搜索Description字段  sql = sql & " ( [Description] LIKE ’%" & QueryWords(   ) & "%’"   ’ First  For i = LBound( QueryWords ) +   to UBound( QueryWords )   If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then    If uCase( QueryWords( i  ) ) = "OR" Then     sql = sql & " OR [Description] LIKE ’%" & QueryWords( i ) & "%’"    Else     sql = sql & " AND [Description] LIKE ’%" & QueryWords( i ) & "%’"    End If   End If  Next  ’ 搜索Keywords字段   sql = sql & " ) OR ( [Keywords] LIKE ’%" & QueryWords(   ) & "%’"  For i = LBound( QueryWords ) +   to UBound( QueryWords )   If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then    If uCase( QueryWords( i  ) ) = "OR" Then     sql = sql & " OR [Keywords] LIKE ’%" & QueryWords( i ) & "%’"    Else     sql = sql & " AND [Keywords] LIKE ’%" & QueryWords( i ) & "%’"    End If   End If  Next   ’  搜索Title字段    sql = sql & " ) OR ( [Title] LIKE ’%" & QueryWords(   ) & "%’"  For i = LBound( QueryWords ) +   to UBound( QueryWords )   If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then    If uCase( QueryWords( i  ) ) = "OR" Then     sql = sql & " OR [Title] LIKE ’%" & QueryWords( i ) & "%’"    Else     sql = sql & " AND [Title] LIKE ’%" & QueryWords( i ) & "%’"    End If   End If  Next   cha138/Article/program/net/201311/14292

相关参考

知识大全 用Visual C++ 2005编写更快的代码

用VisualC++2005编写更快的代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  对于C

知识大全 用C#代码编写的SN快速输入工具

用C#代码编写的SN快速输入工具  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  一般软件都要输入

知识大全 用ASP编写网站流量统计系统

用ASP编写网站流量统计系统  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  在目前的网站统计系统

知识大全 用ASP编写的实现文本框过滤的函数

用ASP编写的实现文本框过滤的函数  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  一个不错的而且

知识大全 用ASP.Net和Access编写留言本

实例编程:用ASP.Net和Access编写留言本  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!用

知识大全 用ASP建立站内搜索

用ASP建立站内搜索  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  假如你拥有一个庞大的网站内容

知识大全 自动化测试框架: 用原型编写用例

  最近在考虑自动化测试框架的时候发现原来的想法虽然解决了定位及访问控件的困难但是用例代码却因此对程序实现细节有了很强的依赖这些依赖可能对用例代码的开发带来一些困惑  在思考解决这个问题的时候自然的方

直接用计算机能识别的二进制编码编写的语言是

直接用计算机能识别的二进制编码编写的语言是_____。A、C++语言B、C语言C、汇编语言D、机器语言答案:D解析:机器语言是直接用二进制代码指令表达的计算机语言,指令是用0和1组成的一串代码。直接用

知识大全 asp 函数与asp过程实例教程

  asp函数与asp过程提供了一种方法来创建重新编程代码可用模块和避免重写的代码每次您执行特定任务同一个块如果你没有任何职能/ASP页中的程序ASP页从上到下执行时ASP解析引擎只是处理从开始到结束

知识大全 用ASP查看数据库记录的代码

用ASP查看数据库记录的代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  首先是ASP与数据库