微信公众号 
图码生活

每天发布有五花八门的文章,各种有趣的知识等,期待您的订阅与参与
电脑报 1992-2001 十年文章全集
电脑报 1992-2001 十年文章全集
包含从 1992 年 - 2001 年间,两万余篇期刊文章,查询最少输入两个字符
随便看看
读取中
读取中
标题用ASP编写站内搜索
栏目互联网时代
作者许汉平
发布2000年第12期
  你是不是有你自己的网站!你网站的内容多吗?是不是有很多内容呀!浏览者是不是常常在你的网站里很难找到他想要的东西呀。现在好了!向大家介绍一个用ASP编写的搜索引擎,它可以搜索到你站内的任何一个东东和每一个字。
  先用ACCESS建立一个名为list.mdb的数据库,在里面再建一个名为list的表,当然你可以用自己喜欢的名字。然后在list表里输入一些你想要被查询东西的名称、关键词和对应的链接!
  这儿建立了四个项目ID (编号)、title (主题)、word (关键词)、url (链接地址),如

表所示。现在你可以建立你自己的ASP搜索结果页了。下面是一个文件名为search.asp的ASP搜索页面的源程序。这个搜索引擎可以同时搜索title和word中的内容。如有需要可以做更多。
  <!--#INCLUDE file="ADOVBS.inc"-->
  <% '建立数据库的连接
  con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DRIVER={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 * FROM list where title and word like '%"& request.form("word") &"%'",MyCon,adOpenStatic
  %>
  '建立查询后的显示信息和查询页
  <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"
  bordercolorlight="#000000" bordercolordark="#000000">
  <tr align="center">
  <td width="20%" align="center" bgcolor="#C0C0C0">ID
  </td>
  <td width="60%" align="center" bgcolor="#C0C0C0">主题
  </td>
  <td width="20%" align="center" bgcolor="#C0C0C0">查看
  </td>
   </table>
  <table border="1" align="center" bordercolor="#000000"
  bordercolorlight="#000000" bordercolordark="#000000">
  <tr align="center">
  '<!-从数据库提取信息 -->
  <% while not rs.eof %>
  <tr>
  <td width="20%" align="center" bgcolor="#C0C0C0"><%=rs("id")%>
  </td>
  <td width="60%" align="center" bgcolor="#C0C0C0"><%=rs("title")%>
  </td>
  <td width="20%" align="center" bgcolor="#C0C0C0"><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>
  <!-创建搜索表格 -->
  <form method="POST" action="Search.asp">
  <div align="center"><center><p><input type="text" name="word"
  size="20"> <input type="submit" value="提交" name="B1"> <input type="reset" value="复原"
  name="B2"></p>
  </center></div>
  </form>
  <hr width="600" align="center">
  好了现在你要做的就是将你站内的资料输入数据库了!