一款简单asp站内搜索实例源码

<%
dim database,conn,connstr
database="example.mdb"   '数据库教程名称
set conn=server.createobject("adodb.connection")   '创建connection对象
'provider参数设置数据库的驱动程序，access使用ole db驱动程序；data source参数设置数据库的实际路径及文件名称
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(database)
conn.open connstr   '采用open方法连接数据库
str="asp"   '关键字
set rs=server.createobject("adodb.recordset")   '创建recordset对象
'从数据库中查询content中包含str的记录
sql="select * from example where content like '%"&str&"%'"
rs.open sql,conn,1,3   '执行查询，结果保存在rs中
if rs.eof or rs.bof then   '不存在记录
 response.write("alert('没有包含关键字asp的记录！')")
 response.end
else
 '存在记录
 response.write "数据库中存在关键字asp的记录有：

"
 do while not rs.eof   '循环显示所有记录的id
  %>
  <%=rs("id")%>　　<%=rs("content")%>

  <%
  rs.movenext
 loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>