登入 注册 申请链接 RSS: 日志 | 评论 编码:UTF-8 XHTML 1.0
| |
不知你上网时注意到没有:一些内容丰富的网站,总建有一个内容搜索引擎,你只要输入你想阅读资料的类别(比如:windows98),一按“搜索”按钮,该网站所有关于“windows98”的文章列表就呈现在你的眼前,好不方便啊!要知道当自己想要查的资料老是找不到,整天按着“下一页”这个按钮把页面翻来翻去的,这真是一件烦心的事情。那么在网上建有家的朋友是不是也想在你的网站按一个这样的搜索引擎呢?在下面我介绍如何用ASP打造一个站内搜索引擎。当然了,我的这个搜索引擎是不能与那些门户网站的搜索引擎相比的。
注:由于搜索引擎的资料都是放在数据库内,所以要求大家对数据库该有一定的了解。在这里我选择MicroSoft的Access 2000当作存放资料的数据库,对个人网站的要求来讲已经绰绰有余了。数据库的表格名称和字段定义如下所示,我将数据库取名为Search.mdb。
表格名称
搜索引擎

字段名称
字段属性

文章编号
自动编号

文章标题
文字(255字符)

文章网址
文字(255字符)

内容简述
文字(255字符)

加入时间
日期/时间

访问次数
数字


最后一项"访问次数"可加可不加,如果你的网站有针对文章访问率作统计的话,那最好将他加上,可以让读者做个参考,其它几个字段应该都是不可或缺的(对内容网站而言)。数据库建好之后接下来就是要将资料输入了,由于本文主要是针对ASP的应用,所以对于数据库这部分我就不详解了,这一部份交给大家去完成,现在最重要的就是让我看看运行搜索功能的程序该如何编写的。
首先你需要一个输入搜索字符串的接口,这部分只需要一个简单的Html档就可以完成。我把它命名为Search.htm。
Search.htm


<%注:输入的字符串将传送到Search.asp%>

文章搜索:



接着就应进入本文的主题了。在这里我把这个程序命名为Search.asp。搜索引擎的运作过程如下所示:将字符串传递给Search.asp,将目前所在页数、搜索字符串、资料篇数传递至Search.asp,如果字符串是由按钮传来的。
YES
NO
NO
YES
NO
注:将目前所在页数、搜索字符串、资料篇数传递至Search.asp:
Search.asp



<%注:ACTION是判断使用者在搜索结果之后是按下上一页的按钮还是下一页的按钮%>
<% ACTION = Request.Form("ACTION") %>
<%注:由PAGE判断目前所在页数%>
<% PAGE = CInt(Request.Form("PAGE")) %>
<%注:由RCOUNT来判断目前显示的资料是哪几篇%>
<% RCOUNT = CInt(Request.Form("RCOUNT")) %>
<%注:如果是在第一页就将PAGE设为1%>
<% If RCOUNT = "" Then %>
<% RCOUNT = "0" %>
<% End If %>
<% If RCOUNT = "0" Then %>
<% PAGE = 1 %>
<% End If %>
<%注:从strSearchString表单中取出字符串%>
<%strSearchString=Request.Form("strSearchString")%>
<%
注:定义数据库的路径:
Dim MyConnectString
MyConnectString = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=" & Server.MapPath("/asp/search/Search.mdb")
& ";DefaultDir=" & Server.MapPath("/asp/search") &
";DriverId=25;FILE=MS
Access;MaxBufferSize=512;PageTimeout=5"
注:打开数据库连结:
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
注:由数据库连结来打开数据库
Conn.Open MyConnectString
注:将搜索到的字符串作特殊处理:
strSearch1 = "style='background:ff8000'>" & strSearchString & ""
注:开始定义数据库搜索语法
Dim strSQL, tmpSQL
strSQL = "SELECT * FROM 搜索引擎 WHERE "
tmpSQL = "内容简述 LIKE "
注:为了避免读者不小心在字符串中输入空格符而找不到数据,所以我在这时用了一点字符串处理的小技巧,定义空格符初始位置为1,找出输入字符串中空格符的位置。
Dim Pos
Pos = 1
While Pos > 0
Pos = InStr(1,strSearchString," ")
注:如果输入字符串中不包含空白字符串就不需要作字符串处理,直接进数据库比对资料:
If Pos = 0 Then
tmpSQL = tmpSQL & "'%" & strSearchString & "%' OR 文章标题
LIKE '%" & strSearchString & "%')"
注:如果输入字符串中包含空白字符串:
Else
注:将输入字符串以空白区隔开,当作个别搜索字符串,譬如搜索"电脑 超频",会变成搜索"电脑"、"超频",以"电脑 超频"而言,当运行mid(strSearchString, 1, pos-1)时,所得到的结果是显示从输入字符串的第一个字符到空格符所出现的位置(3)然后减1得到电脑两个字'而这时候搜索字符串已经变成"电脑"接下来先算出搜索字符串的长度len(strSearchString)=(5),再算出空格符加一后的位置然后运行:
Mid(strSearchString,Pos+1,len(strSearchString)),
这时就可以取出"电脑 超频"中的超频两个字,此时搜索字符串已经被分离成电脑和超频两个字了,如果你不用上面这段字符串处理程序,你会发现只要你的搜索字符串中含有空格符就会找不到数据;
tmpSQL = tmpSQL & "'%" & mid(strSearchString, 1, pos-1) & "%'
OR 文章标题 LIKE '%" & mid(strSearchString, 1, pos-1) & "%'
AND 内容简述 LIKE "
strSearchString =
Mid(strSearchString,Pos+1,len(strSearchString))
End If
Wend
注:将SQL语法分离的优点是弹性大,你不需要重复定义就可以无限次套用。
strSQL = strSQL & tmpSQL
strSQL = strSQL & " ORDER BY 文章编号"
经过字符串处理程序之后,此时完整的SQL语法将呈现如下的内容:'SELECT * FROM 搜索引擎 WHERE 内容简述 LIKE 电脑 OR 文章标题 LIKE 电脑 AND 内容简述 LIKE 超频 OR 文章标题 LIKE 超频 ORDER BY 文章编号。
注:下面建立数据库集合:
Dim rsResults
Set rsResults = Server.CreateObject("ADODB.Recordset")
rsResults.Open strSQL, conn,3
注:计算搜索到的资料总篇数,这时候的tmpSQL=(内容简述 LIKE 电脑 OR 文章标题 LIKE 电脑 AND 内容简述 LIKE 超频 OR 文章标题 LIKE 超频)
Dim rsTotalRecords
strSQL = "SELECT COUNT(*) FROM 搜索引擎 WHERE " & tmpSQL
Set rsTotalRecords = Conn.Execute(strSQL)
%>
<%注:定义每一页显示的资料篇数是10篇HOWMANY = 10rsResults.PageSize = HOWMANY%>
<%注:如果是按下下一页的按钮的话%>
<% If ACTION = "FORWARD" Then %>
<%注:先将目前所在页数加一%>
<% PAGE = PAGE + 1 %>
<%注:再将目前显示的资料篇数加10%>
<% RCOUNT = RCOUNT + HOWMANY %>
<%注:如果你是从第一页跳到第二页,你应该先将第1到第10篇资料略过,只显示第11篇到第20篇资料,因为原本在第一页的时候Rcount为0,加上10之后就等于10,而这10篇资料就是你所要略过的,同样的,如果你是从第二页跳往第三页的话,你必须略过第1篇到第20篇的资料,从第21篇资料开始显示rsResults.MoveNext'就是在运行这个略过的动作%>
<% For DACOUNT = 1 To RCOUNT %>
<% rsResults.MoveNext %>
<% Next %>
<% End If %>
<%注:相反的如果是按下上一页按钮的话%>
<% If ACTION = "BACK" Then %>
<%注:先将目前所在页数减一%>
<% PAGE = PAGE - 1 %>
<5注:再将目前显示的资料篇数减10%>
<% RCOUNT = RCOUNT - HOWMANY %>
<%注:如果不是在第一页的话(RCOUNT <> 0)才要运行资料略过的动作%>
<% If RCOUNT <> 0 Then %>
<% For DACOUNT = 1 To RCOUNT %>
<% rsResults.MoveNext %>
<% Next %>
<% End If %>
<% End If %>


<%注:如果数据库中没有符合的资料就告知读者找不到资料%>
<% if rsResults.EOF then %>
对不起,找不到你想要的资料.


回到搜索首页
<%注:如果有找到资料就准备显示资料%>
<% Else%>

找到<%=rsTotalRecords(0)%>篇记录


<%
Dim Y
Y=0
While Not rsResults.EOF
iCurrentID = rsResults("文章编号")
%>
<%
注:将文章标题含有搜索字符串的字加上特殊效果,并将转换后的结果传给Message变量,Replace函数的用法如下:例如你有一个字符串变量
AAA=”专业电脑网站”
如果你想将电脑这个字转变成Computer,你可以使用如下的方法:
AAA=Replace(AAA, “专业电脑网站”, “Computer”)
***结果AAA就变成专业Computer网站了***
Message = CStr(Replace(rsResults("文章标题
"),strSearchString,strSearch1)) %>
<%
注:将内容简述含有搜索字符串的字加上特殊效果,并将转换后的结果传给Message1变量;
Message1 = CStr(Replace(rsResults("内容简述"),strSearchString,strSearch1)) %>



<%注:将搜索结果显示出来%>










">
  • <% =iCurrentID%>、<%=Message%>
  • <%=Message1%><%=rsResults("加入时间")%>
    访问次数:<%=rsResults("访问次数")%>




    <%注:在这里我将搜索动作设定为:当找到10篇资料之后就停止搜索,我用到一个变量Y来控制,先定义Y等于0,每找到一篇资料就将Y加一,当Y等于10的时候先看看数据库是不是还有资料,如果还有资料就将剩下的资料通通略过,就是rsResults.MoveNext。%>
    <% Y = Y + 1
    rsResults.MoveNext
    If Y=10 then
    While Not rsResults.EOF
    rsResults.MoveNext
    Wend
    End If
    Wend
    %>
    <%注:准备显示上一页和下一页的按钮%>









    <%注:以RCOUNT来判断是不是在第一页,如果不是在第一页就显示上一页的按钮,并将预设的参数(数据篇数-RCOUNT、目前页数-PAGE、搜索字符串-strSearchString)传回%>
    <% If RCOUNT > 0 Then %>


    VALUE="<%=strSearchString%>">


    <%=strSearchString%>



    <% End If %>

    <%注:如果不是在最后一页(rsResults.PageCount代表总页数)就显示下一页的按钮,并将预设的参数(数据篇数-RCOUNT、目前页数-PAGE、搜索字符串-strSearchString)传回%>
    <% If PAGE = rsResults.PageCount Then %>
    <% Else %>

    VALUE="<%=strSearchString%>">



    <%=rsResults.PageCount%>



    <% End If %>


    <%End IF%>


    完成以上步骤,一个简单的站内搜索引擎就完成了,在网上显示的介面如下图:


    小结:
    由于这个搜索引擎主要是针对个人网站的资料作搜索,所以在设计上并不太难,与一般门户网站的搜索引擎相比,其最大的差别就在于门户网站的数据库是以关联性和层次性的资料型态存在,而我所介绍的这个搜索引擎仅仅只包含一个层次而已,不过对那些单纯的内容个人网站来说却已是绰绰有余了。


    作者:小白龙@御花园
    地址:http://www.fanjunsky.com/read.php/6.htm
    版权所有。转载时必须以链接形式注明作者和原始出处及本声明!

    Tags:
    Written on 2006/09/24 by 小白龙 [Technology] - Reads:4141 Comments: 0

    发表评论
    表情
    emotemotemotemotemot
    emotemotemotemotemot
    emotemotemotemotemot
    emotemotemotemotemot
    emotemotemotemotemot
    打开HTML<> 打开UBB
    打开表情
    隐藏
    昵称   密码   游客可不填
    网址   电邮   [注册]
                   
    验证码 不区分大小写