请输入关键字
错误,请输入关键字"
response.end
end if
set dbconn=server.createobject("adodb.connection")
'创建数据连接对象
conpath="DBQ=" &server.mappath("wz.mdb")
'获取wz.mdb实际路径
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & conpath
'打开wz.mdb
set rs=server.createobject("adodb.recordset")
'创建记录集
sqlstr="select wid,wauth,wsubject from ozg "&
"where wsubject Like '%"& keystr &"%' or "&
"wauth like '%"& keystr &"%' or wcontent like '%"& keystr &"%' or"&
" wkey like '%"& keystr &"%' order by wid desc"
'sqlstr为查询语句,是实现搜索的核心部分,应仔细斟酌
rs.open sqlstr,dbconn,3,1 '得到满足条件的记录
if not rs.eof then
response.write"
根据你的输入条件共搜到满足条件的文章"&rs.recordcount