求asp 站内搜索代码.?

<%

'建立数据库连接
con="DBQ="+server.mappath("数据库")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"

'建立CONNECTION对象并打开数据库
set conn=server.createobject("ADODB.CONNECTION")
conn.open.con

'创建Recordset对象的例程，打开Recordset对象传递SQL串以及所有的连接信息
<% Set rs=Sever.CreateObject("ADODB.Connection")
rs.open "SELECT*FORM table where 条件like '%"&request.form("对象")&"%'",
conn,1,1
%>

这只是个例子,根据自己的具体情况编写.