我想给站内作个搜索统计，每搜索一次就查看该数据库中是否有此关键字，有的话搜索次数+1，没有就增加一条记录，这个如何实现

不知道你的数据库是怎样设计的

但你说的应该很好实现吧

就查询一下关键字的字段
if not rs.eof 就执行 update 更新hits字段 不就可以了么???是不是

'表：subook
'key 关键字
'su 计数统计
<%
tx=session("key")
if tx<>"" then
set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("su.mdb")
conn.Open connstr
Set rs=server.CreateObject("ADODB.Recordset")
sql2="select * from subook where key ='"&tx&"'"
rs.open sql2,conn,1,3
If Not rs.Bof And Not rs.Eof Then
rs("su")=rs("su")+1
else
rs("key")=tx
rs("su")=1
end if
rs.update
response.write "关键字"&tx& "查询："& rs("su")
rs.close
set rs=nothing
else
response.write"无关键字"
end if
%>

我这样在：If Not rs.Bof And Not rs.Eof Then 这一句就不行了，：
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

你做的不是模糊查询啊
如果用户输入的关键字tx在数据库中的key字段中没查到的话
就不能执行你写的
else
rs("key")=tx
rs("su")=1
这些了
因为没有查到记录 你写的这些赋值语句要赋给哪一条记录啊?
只能是这样了
if not rs.eof then
rs("su")=rs("su")+1
else
response.write("没有记录")
end if

明白么??

谢谢版主，但
我是建的一个单独的数据库用来统计搜索的关键字，搜索一次就统计一次(key有记录就加1，key无记录就插入记录并设初始值su为1)

<%
tx=session("key")

if trim(tx)<>"" then

set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("su.mdb")
conn.Open connstr

Set rs=server.CreateObject("ADODB.Recordset")
sql2="select * from subook where key ='"&tx&"'"
rs.open sql2,conn,1,3

If Not rs.Bof And Not rs.Eof Then
rs("su")=rs("su")+1
rs.update
else
rs.addnew
rs("key")=tx
rs("su")=1
rs.update
end if

rs.close
set rs=nothing
else
response.write"无关键字"
end if
%>

给你改了一下 你看看合适你用不?

恩，看看
<%
...
conn.Open connstr
Set rs=server.CreateObject("ADODB.Recordset")
sql2="select * from subook where key ='"&tx&"'"
rs.open sql2,conn,1,3
If Not rs.Bof Then '说明已找到
rs("su")=rs("su")+1
rs.update() '那就更新吧
rs.close()
else '没找到
sql2="select * from subook"
rs.open sql2,conn,1,3
rs.addnew '没找到就新增一条记录
rs("key")=tx
rs("su")=1
rs.update()
end if
...
%>

谢谢版主，
很好，就是我要的，谢谢！

不客气

还是"做人很低调"牛比,不侮辱我给你投的一票啊,呵呵.