如何简单创建内部网站搜索引擎

你好 louyanblog
目前站内搜索引擎有3种方式创建，由于不知道你的数据量，没法告诉你哪种比较好，我就三种都简单介绍下
一是自己开发程序，直接从站内的数据库中进行搜索，优点是定制灵活，缺点是一般无法进行全文检索（sql server的全文检索也并不理想），同时数据量一旦太大可能出现问题。
二是利用搜索引擎提供的站内搜索，例如雅虎就有提供定制的站内搜索，名叫雅虎搜索diy,搜索的页面放你的logo，只搜索你的网站.google也有提供类似的功能，名叫Google Custom Search Engine，缺点是搜索的内容无法即时更新。取决于搜索引擎的更新速度。
三是利用开源的搜索引擎平台，自己架设一个搜索引擎，搜索你的网站，例如使用Lucene，缺点是技术要求较高

个人建议使用第二种方法，申请下就可以了。

录入主题词？你的网站有没有被雅虎收录？如果没有收录，那就无法使用雅虎搜索的

建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页
-----------------------下面保存为search.asp--------------------------

输入搜索内容:

<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

' 获取产品的名字记录集（从 news表中）
if cx <> "" then
sql = "select * from news where title like '%"&cx& "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"
"+"

"+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if

' 设置记录集在每页的总行数，也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号（ AbsolutePage属性）
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录（ PageSize中设置的行数）

WHILE NOT RS.EOF AND NumRows%>

<%RS.MoveNext
NumRows=NumRows+1
WEND%>

ID 号	标 题	修 改	删 除
<%=rs("id")%>	" target="_blank"><%=rs("title")%>	>修 改	>删 除
共<%=PageCount%>页 第<%=page%>页★ <%if page=1 then%>首页<%end if%> <%if page>1 then%> 首页 <%end if%>★ <%if page>1 then%><%end if%>上一页 <% dim pagewhere dim p p = 1 '把pagewhere转换成整数 'pagewhere = cint(request("pagewhere")) pagewhere = pageCount if pagewhere>0 then for p=1 to pagewhere if p <> page then%> <%=p%> <%end if if p =page then%> <%=p%> <% end if next end if%> <%if page < PageCount then%> <%end if %>下一页★ <%if page=PageCount then%>尾页 <%end if%> <%if page 尾页 <%end if%>
搜索内容:<%=cx%>