asp简单的搜索引擎代码

最新推荐文章于 2016-07-20 09:53:06 发布
最新推荐文章于 2016-07-20 09:53:06 发布
阅读量75 收藏
点赞数
文章标签： 数据库
下面是库中URLINDEX表：URL和Keywords字段分别添加了索引.

 URL           文本 (索引:有(无重复))
Title            文本
Description 文本
Summary    文本
Keywords   文本(索引:有(无重复)) 


doquery.asp

 <HTML><HEAD><TITLE>简单搜索引擎</TITLE></HEAD>
<BODY BGCOLOR=#ffffff MARGINWIDTH="0" MARGINHEIGHT="0" 
LEFTMARGIN=0 TOPMARGIN=0>

<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 = 2
 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( 0 ) & "%'"   ' First
 For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
  If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
   If uCase( QueryWords( i-1 ) ) = "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( 0 ) & "%'"
 For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
  If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
   If uCase( QueryWords( i-1 ) ) = "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( 0 ) & "%'"
 For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
  If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
   If uCase( QueryWords( i-1 ) ) = "OR" Then
    sql = sql & " OR [Title] LIKE '%" & QueryWords( i ) & "%'"
   Else
    sql = sql & " AND [Title] LIKE '%" & QueryWords( i ) & "%'"
   End If
  End If
 Next


 ' 搜索Summary字段 
 sql = sql & " ) OR ( [Summary] LIKE '%" & QueryWords( 0 ) & "%'"
 For i = LBound( QueryWords ) + 1 to UBound( QueryWords )
  If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then
   If uCase( QueryWords( i-1 ) ) = "OR" Then
    sql = sql & " OR [Summary] LIKE '%" & QueryWords( i ) & "%'"
   Else
    sql = sql & " AND [Summary] LIKE '%" & QueryWords( i ) & "%'"
   End If
  End If
 Next

 sql = sql & " )"


    ' 
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3     
    
    Response.Write "<BR><B> 你搜索的是: </B> " & QueryString    
    
    Response.Write "<BR><B> 搜索的关键字: </B> "
 For i = LBound( QueryWords ) to UBound( QueryWords )
  Response.Write "<BR>" & strIndent & i & ": " & QueryWords( i )
 Next

    ' Print the SQL String
    Response.Write "<BR><B> sql 语句 : </B> " & sql
 
 ' Print the Results
    Response.Write "<BR><B> 结果    : </B> <UL>"
 On Error Resume Next
 rs.MoveFirst
 Do While Not rs.eof
  Response.Write "<BR>" & "<A HREF='OpenPage.asp?IndexURL=" & rs.Fields("URL").Value & "'>" & rs.Fields("Title") & "</A> - " 
  Response.Write rs.Fields("Description") & "<BR>"
  Response.Write "     <FONT SIZE=2>URL: " & rs.Fields("URL") & "</FONT>"
  Response.Write "<HR SIZE=1 WIDTH=200 ALIGN=LEFT>"
  rs.MoveNext
 Loop
 Response.Write "</UL>"
 
end if   
%>


</BODY>
</HTML>
weixin_33937913
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
asp 的 分词实现代码
10-30
asp 的 分词实现代码
ASP站内搜索代码#
sontin的专栏
08-13 2820
方法一：利用各大搜索的收录 function Gsitesearch(curobj){ var domainroot=curobj.domainroot[curobj.domainroot.selectedIndex].value curobj.q.value="site:"+domainroot+" "+curobj.qfront.value }
Asp.net 简单的站内搜索引擎
Arwind的专栏
08-12 7483
众所周知，搜索引擎的制作是非常繁琐和耗时的，对于企业级的搜索引擎的制作，需要有良好的蜘蛛程序，定期更新搜索资源库，并且完善优化搜索引擎的速度和方法（比如全文搜索等），减少垃圾网页的出现，是一个很值得深入研究的话题。 这里我们当然不是教大家去做类似Google这样强大的搜索引擎（
ASP.NET 调用百度搜索引擎的代码
01-20
百度搜索引擎提供了一段嵌入到页面中的代码 <form action=”http://www.baidu.com/baidu” target=”_blank”> <table><tr><td> <input name=tn type=hidden value=baidu> <input type=text name=...
关键字搜索的简单实现
07-22
基于C/C++语言的中英文关键字搜索的简单实现，在VC6.0下编译测试无误。
一个文本搜索引擎的实现
05-30
文本搜索引擎，c++实现，南大数据结构期末大作业
C++简易数据库系统（源代码 文档）
12-20
简易的数据库系统，可以实现简单的添加，插入，删除，查找操作，B+树，buffer
简易抓包程序源代码c++
06-11
一个简单的网络抓包程序源码，易查看IP包各个模块。
asp实现禁止搜索引擎蜘蛛访问的代码
01-02
这段代码可以控制常用的搜索引擎无法访问asp页面，需要在每个asp页面包含这段代码。 <% function isspider() dim i,agent,searray agent=agent:&LCase(request.servervariables(http_user_agent)) searray=...
基于asp的搜索引擎开发(源代码)
最新发布
06-16
本文通过分析国内外搜索引擎的发展现状，提出了一种利用ASP技术实现一个B/S体系结构的搜索引擎系统的方案，以期达到功能强大，操作简单，通用性强，可以满足用户对信息搜索需要的搜索引擎系统。文中着重论述了该系统...
基于c++或C的开源搜索引擎
2puT
07-20 3223
看到比较火热的都是基于java的lucence 和nutch，有人在用基于c++或C的开源搜索引擎？ 你要是学习用的话建议看北大天网的原型TSE（Tiny Search Engine） 闫宏飞写的，也有配套的书籍，看懂之后可以自己实现一个。 非常感谢以上的回答，后来经过Google知道 开源C++搜索引擎有xapian和CLucene，然后国内有基于xapian的迅搜，然后自己主要是想读读代
ASP实现网站智能分词搜索
ziyouganjue的专栏
07-12 637
用ASP实现搜索引擎的功能是一件很方便的事，可是，如何实现类似3721的智能搜索呢？比如，当在搜索条件框内输入“中国人民”时，自动从中提取“中国”、“人民”等关键字并在数据库内进行搜索。看完本文后，你就可以发现，这个功能实现起来竟然是如此的简单。 第一步，我们要建立一个名为db_sample.mdb的数据库（本文以Access2000数据库为例），并在其中建立表T_Sample。表T_Sample
一个ASP站内搜索的实例源代码
魔拉宝
08-27 1719
假如你拥有一个庞大的网站，比如(www.ehpos.com)，内容又多，那么来访者往往很难找到自己所需要的东东，这时候你就需要一个站内搜索来帮助来访者更快的找到索要的资料了!现在你就可以用asp轻易的实现这种功能，何况现在支持asp的站点这么多，利用这个搜索引擎可以搜索到你的主页里面任何一个文件或者软件资料，它可以精确到每个字!说了这么多你是不是怦然心动了啊，那就按照下面的步骤来建立自己的搜索引擎吧： 　　(一)，首先利用access97建立一个名为list.mdb的数据库，在里面建立一个名为list的
asp.net+echart饼图 自动轮播提示框代码
06-07
以下是一个简单的示例代码，实现了在ASP.NET网页中使用Echarts饼图，并添加了提示框自动轮播的功能： ```html <!-- 引入Echarts和jQuery库 --> ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值