asp搜索

不知你上网时注意到没有：一些内容丰富的网站，总建有一个内容搜索引擎；一些大型的商业网站或者综合网站，都配有强大的网站搜索引擎，比如搜狐、新浪、雅虎等等。其方便的搜索查询功能至今给人们留下难以磨灭的印象，你只要输入你想浏览资料的关键字（比如：网页），一按“搜索”按钮，关于“网页”的资料列表就呈现在你的眼前；这只是搜索引擎的基本功能--搜索查询。笔者现在专门负责网上山东（http://www.china-sd.net/）中山东搜索版块的建设，利用最常用的开发语言--asp开发搜索引擎的强大功能！下面我就搜索引擎主要组成部分和其中一些功能的实现代码讲解给大家，有什么不足之处请大家给予指出！     在这一章节中，我介绍一下搜索引擎的组成部分和主要功能。     搜索引擎的组成，大致分为三部分：     1、界面：这一部分主要是面向客户的，是可以看到的部分，比如您打开search.sina.com.cn事后看到的页面。     2、程序：这一部分主要是执行代码，根据客户的搜索要求去执行代码从而获得搜索结果；这些是我们看不到的。     3、数据库：所有的搜索引擎都离不开数据库，连著名的google.com也不例外；数据库是储存搜索资料的仓库，储存的越多，搜索得到的资料就会越多，这也是搜索引擎是否强大的闪耀点之一。     那么搜索引擎是否强大还有其他的闪耀点喽，是什么呢？对，搜索引擎数据库中的存储资料再多，我们不能够方便的去查找搜索，甚至查找不到所需的资料，那么这个数据库就是“死”的，毫无用处可言，所以程序代码起到非常重要的作用。      讲到这里，我应该给大家介绍一下搜索引擎的几个主要功能：      1、搜索查询：毫无疑问这是最基本的功能了，根据关键字找到符合关键字的相关资料。      2、分页显示：如果你搜索到的资料非常多，都放在一个页面里，那样给人的感觉就会使乱糟糟的一片；分页显示根据人们看书的习惯，将一部分内容放到第一页，其他的内容放到第二页、第三页等等。      3、搜索统计：一般包括查询资料的数量，分几个页面，每个页面含几个资料，当前页面资料范围等等。      4、搜索结果编排：搜索排名我想大家不会陌生，这些是综合网站搜索引擎挣money的一项措施，这也是强大搜索引擎中不可缺少的功能；比如根据点击量排名，根据收费排名、根据等级排名。      5、多个关键字查询：“如果要查找包含多个关键词的信息，可以用空格把关键词隔开”这是新浪搜索引擎版面中的一段文字，在一个文本框中打上多个关键字搜索查询资料。      6、整体统计：这个是对搜索引擎开通至今一些数据统计，包含“热门查询关键字”统计、数据库中资料整体统计、每个类别所含资料统计等等。      以上功能代码主要根据笔者的要求来书写，大家可以在我写的代码上做修改，以成为你自己需要的功能代码。     好了，经过了一节的热身后，我们也可以进入实战阶段，首先，我们先建一个数据库，作为资料的存储，这里我将数据库的文件名为information.mdb，使用access创建数据库，当然你也可以使用sqlserver创建。      建立四个表：www(存储资料),sort(大类)，samll(小类),key(查询关键字)      1、www表：id---自动编号，sitename---站点名称，url---站点链接，faq---简要说明，key---关键字，time---添加时间,level---站点等级，sortid---大类id，smallid---小类id，hot---站点点击次数。     2、sort表：id---自动编号,sort     3、small表：id---自动编号,small     4、key表：keyname---关键字；keyhot---出现的次数     用asp建立与数据库的连接：conn.asp     <% on error resume next connstr="DBQ="+server.mappath("information.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Set conn=Server.CreateObject("ADODB.CONNECTION") conn.open connstr %> 说明：使用Server.MapPath（）表示的路径为文件的相对路径，我这里conn.asp和information.mdb在同一个目录下。我想这些都很简单，大家很容易理解和接受的！好，将数据库建立起来后，我们就可以建设强大功能的搜索引擎。请期待哦！嘻嘻~~~~ [B]模糊搜索[/B]      根据一个关键字，搜索到相关的资料，这里的“相关”是指资料中有类似这个关键字的字符串。例如：“山东”这个关键字，只要数据库中资料里包含“山东”这个关键字的都要把它们找出来。模糊搜索的应用其实很简单，只要使用一个sql语句就可以实现，下面咱们看看他的语句的写法。      sql语法中你会发现这么几个判定词：LIKE、NOT LIKE和 BETWEEN。 LIKE判定词是一个非常有用的符号。不过，在很多情况下用了它可能会带给你太多的数据，所以在用到它之前最好先开动脑筋多想想自己到底想获得什么数据。NOT LIKE是反其道而行了。BETWEEN假设你想取出一定范围内的数据，而且你事先知道范围的起点和终点，那么你不妨采用BETWEEN 判断词。这几个判定词根据不同的环境使用，一般最常用的就是like和"%"结合了。     dim sql,key     key=request("key")     sql="select * from www where sitename like '%"&key&"%' or faq like '%"&key&"%' or key   like '%"&key&"%' "     说明：这里的sql语句目的就是检索数据库中sitename字段中是否包含key，faq字段中是否包含key，key字段中是否包含key，这样做的目的是让搜索的范围包含到“站点名称”、“站点简要说明”、“站点关键字”。如果你只想搜索关键字只要使用 sql="select * from www where key   like '%"&key&"%' " 就可以了。“like”中都使用了“or”来相连，“or” “或者”的意思，意思是不论哪一个like 符合条件，都要把搜索到的资料输出显示出来。      OK，现在大可不必去看看能不能执行或者说执行的结果如何，因为搜索引擎大部分功能的实现都是靠sql语句的书写了。等我把其他的相关sql语句的功能实现介绍完后，大家再看看效果，呵呵！别着急！！ 排序     上一节我们讲到了模糊搜索，那么搜索出来的结果如何显示呢？看一看数据库中的字段：hot（站点点击次数）、level（站点等级），可以想象一下这些字段存在的意义：站点点击次数是站点人气的体现，那么我们是不是让人气高的站点提前排名呢？当然，这样做还可以调动站长们加入这个搜索引擎的积极性。站点等级是根据站点的大小、重要程度来设定，比如新浪加入了这个搜索引擎，您是不是想让它始终排在一般站点的前面显示出来，很方便的告诉人们你的站点的重要程度，其实网站搜索排名也就是靠这一个来实现的。这两个排序的效果不只是这一两个方面，大家以后会慢慢的体会到，我们要实现的是以站点等级level排序为主，然后在level排出的结果中根据hot再一次排序。看看下面：      在sql语句中排序使用“ORDER BY”来实现：      sql=sql&"order by level desc,hot desc"      说明：asc/desc 升序或降序，缺省升序。 实现目的：等级高的排在最前，排除结果后再按照站点的点击次数排列，点击次数高的排在最前。这里为什么使用sql&""呢，因为上一节中我们写了sql="..."，这里我们接着上一个写，为了不再重复写一边，可以使用sql=sql&"order by level desc,hot desc"。以后我们也会经常用到！      您是否明白了呢？我们下一节讲解一下“多个关键字查询”功能的实现！   多关键字搜索 用asp制作强大的搜索引擎(5):多关键字搜索        以上呢在文本框输入多个关键字，中间用空格隔开，然后点击搜索按钮，这样做的目的是什么呢？大家开动一下脑筋，我们是不是在缩小搜索的范围，即搜索出来的结果中既包含“网人”，又包含“教程”、“交流”、“图书”这些关键字。当然关键字之间的间隔符不仅可以是空格，还可以是“，”“、”等等，一般来说空格比较方面输入，你说呢！      在书写实现这个功能的过程中，我们会使用几个非常重要的asp函数，先来了解一下： Split() 函数将一个字符串分割并返回分割结果 表达式 Split (S[，d]) 实例：<%V= Split(A,B,C) For i = 0 To UBound(V) Response.Write V(i) Next %> 返回结果: A B C UBound() 函数返回指定数组维数的最大可用下标>. 表达式 Ubound(arrayname [, dimension]) 实例： <% i = Array("Monday","Tuesday","Wednesday") response.write UBound(i) %> 返回结果: 2 Rtrim() 函数去掉字符串右边的字符串. 表达式 Rtrim(string) LTrim() 函数去掉字符串左边的空格. 表达式 LTrim(string) REPLACE() 函数REPLACE（）是最有用的字符串函数之一。你可以使用REPLACE（）函数，以一个字符串取代另一个字符串的一部分。 下面咱们来看看实现的方法和代码： searchdata=request("T1") '从文本框中获得输入的关键字 if trim(searchdata)="" then '如果没有关键字的输入或者只输入的空格，警告！ response.write "<script>alert('请输入查询搜索关键字！');history.back();</script>" response.end end if searchdata=replace(searchdata,"'","’")'将获得的字符串中英文单引号换成中文单引号 searchdata=Rtrim(LTrim(searchdata))'去掉获得的字符串最左边空格和最右边空格 sql1="" '网站关键字匹配sql语句 sql2="" '网站标题匹配sql语句 sql3="" '网站简要说明匹配sql语句 searchdatatmp=split(searchdata," ") '将输入的字符串根据空格分开，获得一个数组 max=ubound(searchdatatmp) '得出这个数组的维数，即输入的关键字个数 if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理 sql1=sql1&" key like '%" & searchdatatmp(i) & "%' " '网站关键字模糊搜索 sql2=sql2&" sitename like '%" & searchdatatmp(i) & "%' " '网站标题模糊搜索 sql3=sql3&" faq like '%" & searchdatatmp(i) & "%' " '网站简要说明搜索 else '如果含有多个关键字，采用循环处理sql语句 for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现 if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码 sql1=sql1&" (key like '%" & searchdatatmp(i) & "%' and " sql2=sql2&" (sitename like '%" & searchdatatmp(i) & "%' and " sql3=sql3&" (faq like '%" & searchdatatmp(i) & "%' and " else if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾 sql1=sql1&" key like '%" & searchdatatmp(i) & "%') " sql2=sql2&" sitename like '%" & searchdatatmp(i) & "%') " sql3=sql3&" faq like '%" & searchdatatmp(i) & "%') " else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句 sql1=sql1&" key like '%" & searchdatatmp(i) & "%' and " sql2=sql2&" sitename like '%" & searchdatatmp(i) & "%' and " sql3=sql3&" faq like '%" & searchdatatmp(i) & "%' and " end if end if next '循环结束 end if sql="select * from www where "&sql1&" or "&sql2&" or "&sql3 response.write sql '看看我们这个代码运行的结果是否正确      在文本框中输入“网人 俱乐部”，然后点击搜索，记住表单的action="文件名"，这个文件里包含以上的代码。      执行结果：select * from www where (key like '%网人%' and key like '%俱乐部%') or (sitename like '%网人%' and sitename like '%俱乐部%') or (faq like '%网人%' and faq like '%俱乐部%')      可以看出我们写的代码是正确的了。下一节我们讲解搜索出结果如果排序，以及怎么实现！   分页显示     关于分页显示，样式很多，比如动网的分页显示、google的分页显示，就我的网站里关于分页的样式就有很多，而这里我们实现的分页基本类似于www.china-sd.net/yahoo，大家可以去看看！      说明：显示“页次/总页数”；显示“1...”页数，最多显示十页；“<<”显示前十页，“>>”显示后十页。这样我们可以很方便的显示每一页的资料信息，而且还保持了页面的整洁美观。      实现： 1、初始化页次： If Request.querystring("CurPage") = "" or Request.querystring("CurPage") = 0 then CurPage = 1 Else CurPage = CINT(Request("CurPage")) End If 2、获得页数： rs.PageSize=20 '每页显示的记录数 Dim TotalPages TotalPages = rs.PageCount '获得总页数 If CurPage>rs.Pagecount Then CurPage=rs.Pagecount end if rs.AbsolutePage=CurPage rs.CacheSize = rs.PageSize Dim Totalcount Totalcount =INT(rs.recordcount) 3、分页显示的实现： ○页次： <%=CurPage%> / <%=TotalPages%> <%if int(int(CurPage/10)*10+9)>TotalPages then ToPages=TotalPages else ToPages=int(int(CurPage/10)*10+9) end if if CurPage/10 < 1 then fromPages=1 else fromPages=int(CurPage/10)*10 end if %> <td width="50%" align="right">页数： <a href="search.aspCurPage=<%=fromPages-1%>&T1=<%=searchdata%>">&lt;&lt;</a> <% for i =fromPages to ToPages %> <a href=search.asp?CurPage=<%=i%>&T1=<%=searchdata%>><%=i%></a> <%next%> <a href="search.asp?CurPage=<%=ToPages+1%>&T1=<%=searchdata%>">&gt;&gt;</a> ("&lt;&lt;" 这个符号代表"<<","&gt;&gt;"这个符号代表">>") 当然分页显示的代码不能单独运行，它放到以前写的sql语句并且运行这个sql语句之后，所以你不必着急现在就运行这段代码。   统计     大多数搜索引擎统计的数据一般是：资料的查看次数、热门的关键字。对于资料的查看次数的统计，我们以前就在数据库中添加了hot这个字段，它就是存储资料的查看次数；当我们搜索到一个资料并察看它时，我们会让hot这个字段自动加1，如此就实现了。热门的关键字的统计也是非常简单：      对于关键字的统计，我们必须先建一个用来存放关键字相关数据的表，表里的字段主要是：key,keyhot；一个是记录关键字名，一个是记录关键字的出现次数。一般人们在搜索之前，首先会在文本框中输入关键字，然后点击搜索，所以运行统计关键字的代码也应存放在搜索代码之中。      分析一下：在数据库中输入的关键字只有存在不存在这两个可能，存在时候我们是让它的“keyhot”加1(keyhot=keyhot+1),不存在的时候我们把这个关键字插入到数据库中，然后keyhot=keyhot+1，当然前提条件keyhot=0。下面我们来看看代码怎么写(表名为key)：      <% Set rs = Server.CreateObject("ADODB.Recordset") sqltmp="select * from key where keyn like '%"&searchdatakey&"%'" rs.open sqltmp,conn,1,3 if rs.eof and rs.bof then rs.addnew rs("key")=searchdatakey else rs("keyhot")=rs("keyhot")+1 end if rs.update rs.close      %>      但如果输入文本框的字符串是多个关键字组成（字符串中含有多个空格），结合我们在多个关键字搜索一节中讲授的代码，把上边的代码放到循环语句中，这样就实现了关键字的统计；有了统计的数据以后，我们就可以在搜索引擎的首页面调出目前最热查询的关键字是什么了。 <%Set rs = Server.CreateObject("ADODB.Recordset") sqltmp="select top 8 key from key order by keyhot desc" '写出前八个最热查询关键字 rs.open sqltmp,conn,1,1 do while not rs.eof response.write rs("key") '输出到屏幕上 rs.movenext loop rs.close %>     关于搜索引擎的功能代码基本上写完了，我们将在下节将这些代码融合在一起，供大家参考一下。其他的什么功能，大家可以任意添加，有什么好的想法，告诉我哦！   以下是search搜索代码： Set rs = Server.CreateObject("ADODB.Recordset") searchdata=request("T1") if trim(searchdata)="" then response.write "<script>alert('请输入查询搜索关键字！');history.back();</script>" response.end end if searchdata=replace(searchdata,"'","’") searchdata=Rtrim(LTrim(searchdata)) sql1="" sql2="" sql3="" searchdatatmp=split(searchdata," ") max=ubound(searchdatatmp) if max=0 then '如果max等于0说明只输入了一个关键字，那么就不需要循环处理 sql1=sql1&" key like '%" & searchdatatmp(i) & "%' " '网站关键字模糊搜索 sql2=sql2&" sitename like '%" & searchdatatmp(i) & "%' " '网站标题模糊搜索 sql3=sql3&" faq like '%" & searchdatatmp(i) & "%' " '网站简要说明搜索 else '如果含有多个关键字，采用循环处理sql语句 for i=0 to max '如果关键字很多，我们要求每一个搜索都要匹配每一个关键字，通过循环来实现 if trim(searchdatatmp(i))<>"" then '============================================================================= sqltmp="select * from key where keyname like '%"&ArraySearchdata(i)&"%'" rs.open sqltmp,conn,1,3 if rs.eof and rs.bof then rs.addnew rs("keyname")=ArraySearchdata(i) else rs("keyhot")=rs("keyhot")+1 end if rs.update rs.close '============================================================================= end if if i=0 then '写入下面sql语句作为开头，仔细研究一下下面的代码 sql1=sql1&" (key like '%" & searchdatatmp(i) & "%' and " sql2=sql2&" (sitename like '%" & searchdatatmp(i) & "%' and " sql3=sql3&" (faq like '%" & searchdatatmp(i) & "%' and " else if i=max then '如果循环到最后一个关键字，写入下面sql语句作为结尾 sql1=sql1&" key like '%" & searchdatatmp(i) & "%') " sql2=sql2&" sitename like '%" & searchdatatmp(i) & "%') " sql3=sql3&" faq like '%" & searchdatatmp(i) & "%') " else '如果关键自己不是开头的也不是结尾的，那么循坏写入下面的sql语句 sql1=sql1&" key like '%" & searchdatatmp(i) & "%' and " sql2=sql2&" sitename like '%" & searchdatatmp(i) & "%' and " sql3=sql3&" faq like '%" & searchdatatmp(i) & "%' and " end if end if next '循环结束 end if sql="select * from www where "&sql1&" or "&sql2&" or "&sql3"&"order by level desc,hot desc" rs.Open sql,conn, 1, 1 if not rs.eof then If Request.querystring("CurPage") = "" or Request.querystring("CurPage") = 0 then CurPage = 1 Else CurPage = CINT(Request("CurPage")) End If rs.PageSize=20 Dim TotalPages TotalPages = rs.PageCount If CurPage>rs.Pagecount Then CurPage=rs.Pagecount end if rs.AbsolutePage=CurPage rs.CacheSize = rs.PageSize Dim Totalcount Totalcount =INT(rs.recordcount) order=0 do while (not rs.eof) and (order<rs.PageSize) order=order+1 %><font color="#FF0000">○</font><a href="goturl.asp?id=<%=rs("id")%>&url=<%=rs("url")%>" target="_blank"><font color="#0000FF"><% for j=0 to i if j=0 then sitenameTmp=replace(rs("sitename"),ArraySearchdata(j),"<font color=red>"&ArraySearchdata(j)&"</font>") else sitenameTmp=replace(sitenameTmp,ArraySearchdata(j),"<font color=red>"&ArraySearchdata(j)&"</font>") end if next response.write sitenameTmp%></font></a> ---<%for j=0 to i if j=0 then sitenameTmp=replace(rs("faq"),ArraySearchdata(j),"<font color=red>"&ArraySearchdata(j)&"</font>") else sitenameTmp=replace(sitenameTmp,ArraySearchdata(j),"<font color=red>"&ArraySearchdata(j)&"</font>") end if next response.write sitenameTmp%> <% rs.movenext loop %> <table> <tr> <td width="30%">○页次： <%=CurPage%> / <%=TotalPages%></td> <td width="20%"></td> <%if int(int(CurPage/10)*10+9)>TotalPages then ToPages=TotalPages else ToPages=int(int(CurPage/10)*10+9) end if if CurPage/10 < 1 then fromPages=1 else fromPages=int(CurPage/10)*10 end if %> <td width="50%" align="right">页数： <a href="search.asp?CurPage=<%=fromPages-1%>&T1=<%=searchdata%>">&lt;&lt;</a> <% for i =fromPages to ToPages %> <a href=search.asp?CurPage=<%=i%>&T1=<%=searchdata%>><%=i%></a> <%next%> <a href="search.asp?CurPage=<%=ToPages+1%>&T1=<%=searchdata%>">&gt;&gt;</a> </td> </tr></table> <table> <tr> <td width="30%">○页次： <%=CurPage%> / <%=TotalPages%></td> <td width="20%"></td> <%if int(int(CurPage/10)*10+9)>TotalPages then ToPages=TotalPages else ToPages=int(int(CurPage/10)*10+9) end if if CurPage/10 < 1 then fromPages=1 else fromPages=int(CurPage/10)*10 end if %> <td width="50%" align="right">页数： <a href="search.asp?fs2=<%=select2%>&fs1=<%=select1%>&CurPage=<%=fromPages-1%>&T1=<%=searchdata%>">&lt;&lt;</a> <% for i =fromPages to ToPages %> <a href=search.asp?fs2=<%=select2%>&fs1=<%=select1%>&CurPage=<%=i%>&T1=<%=searchdata%>><%=i%></a> <%next%> <a href="search.asp?fs2=<%=select2%>&fs1=<%=select1%>&CurPage=<%=ToPages+1%>&T1=<%=searchdata%>">&gt;&gt;</a> </td> </tr></table> 请参考，其他的代码就很简单了