发新话题
打印

谁有站内搜索引擎的代码?

可以有两个办法一个是用数据库,把要搜索的内容存进数据库,再用select语句进行搜索,另一个是用javascript(或vbscript),但我推荐用数据库。  
(一),首先利用access建立一个名为list.mdb的数据库,在里面建立一个名为list的表,然后在list表里面输入一些你想要被查询的文件名字,关键的搜索词还有相对应的链接,下面建立了四个项目ID(编号),title(主题),word(关键词),url(链接地址),如下表所示:  

ID          title                      word                                      url   
1          cgi教程              本地调试cgi                  cgi/testcgi.htm   
2          下载中心          聊天室,留言本          download/index.htm   

         (二),建立了数据库以后就可以建立你的asp搜索页面了,下面是一个文件名为search.htm的asp搜索页面的源程序,这个搜索引擎可以同时搜索title和word里面的内容,当然如果你有需要的话可以建立更多的搜索:  

         <!--#INCLUDE  file="ADOVBS.inc"-->  
                   <%    "建立数据库的连接  
         con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft  Access  Driver(*.mdb)};"  
                   "建立CONNECTION对象并打开数据库  
         set  mycon=server.createobject("ADODB.CONNECTION")  
                   mycon.open.con    %>  
                   "创建Recordset对象的例程,打开Recordset对象传递SQL串以及所有的连接信息  
                   <%  set  rs=server.createobject("ADODB.Recordset")  
                   rs.open  "SELECT*FORM  list  where  title  and  word  like  '%'&request.form("word")&"%'",MyCon,adOpenStatie  
                   %>  
                   "建立查询后的显示信息和查询页面,你想取什么名字都可以  
                   <html><head><title>查询结果</title></head>  
                   <body  bgcolor="#ffffff">  
                   <p  align="center"><br>  
                   "统计查询共有<%  Response.Write(RS.RecordCount)  %>条纪录</p><br>  
                   <div  align="center"><center>  
                   <table  border="1"  align="center"  bordercolor="000000"  berdorcoorlight="#000000"  bordercolordark="#ffffff">  
                   <tr  align="center">  
                   <td  width="20%"  align="center"  bgcolor="#ffffff">ID</td>  
                   <td  width="60%"  align="center"  bgcolor="#ffffff">主题</td>  
                   <td  width="20%"  align="center"  bgcolor="#ffffff">查看</td></table>  
                   <table  border="1"  align="center"  bordercolor="000000"  berdorcoorlight="#000000"  bordercolordark="#ffffff">  
                   <tr  align="center">  
                   <!--从数据库提取信息-->  
                   <%  while  not  rs.eof  %>  
                   <tr  align="center">  
                   <td  width="20%"  align="center"  bgcolor="#ffffff"><%  =rs("id")  %></td>  
                   <td  width="60%"  align="center"  bgcolor="#ffffff"><%  =rs("title")  %></td>  
                   <td  width="20%"  align="center"  bgcolor="#ffffff"><a  href="<%  =rs("url")  %>">GO</a></td>  
                   <%  rs.movenext  %></tr>        <%  wend  %></table></center></div><%  rs.close  %>  
                   <%  mycon.close  %>  
                   "关闭链接  
                   </body></html>  
                   下面我们来建立搜索页面  
         <html><head><title>搜索页面</title></head>  
                   <!--创建搜索表格-->  
                   <from  method="POST"  action="search.asp">  
                   <div  align="center"><center><p><input  type="text"  name="word"  size="30">  
                   <input  type="submit"  value="提交"  name="B1"><input  type="reset"  value="清除"  name="B2"></p>  
                   </center></div></form>  
                   <hr  width="600"  align="center">  
                   <html>  
                   好了,这个站内搜索引擎到这里就算完成了,你接下来要做的就是吧东西输入数据库了!
记住该记住的,忘记该忘记的。改变能改变的,接受不能改变的!

www.lihuasoft.net

TOP

发新话题