【www.gdgbn.com--php与数据库】

<%
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
%>

本文来源：http://www.gdgbn.com/jiaocheng/27588/