Question

asp查询修改数据库的问题 急

access数据库里面的一个表为md5
id subject md516 md532 click
——————————————————————
1 12345 ***** ***** 1

然后我的网页代码如下写（其中有些有问题希望大家帮助解决一下）
<%
dim keyword,md516,md532
keyword=Request.Form("keyword")
md516=md5(keyword,16)
md532=md5(keyword,32)
set r=server.createobject("adodb.recordset")
sql="select * from md5 where subject='%"&keyword&"%'"
r.open sql,conn,1,3
if r.eof or r.bof then（这个地方好像无不管用，当输入为12345时，也会运行下面的东西。。很郁闷）这段的意思是如果查询发现无结果，就新增加一行
r.open "select * from md5",conn,1,3
r.addnew
r("subject")=keyword
r("md516")=md516
r("md532")=md532
r("click")=1
r.update
r.close
set r=nothing
else（这个下面是用来修改click次数的，但不知道怎样写）
r.open sql,conn,1,3
r.update
r("click")=1+r("click")
r.close
end if
If keyword<>"" Then
Response.Write("MD5 加密之前：" & keyword & "<br />MD5 16位加密：" & md516 & "<br />MD5 32位加密：" & md532)
else Response.Write("您未输入任何待查询内容。")
End If
%>

Answer 1

这样你试一下：
<%
dim keyword,md516,md532
keyword=Request.Form("keyword")
md516=md5(keyword,16)
md532=md5(keyword,32)
set r=server.createobject("肢轿adodb.recordset"埋猜)
sql="select * from md5 where subject='%"&keyword&"%'"
r.open sql,conn,1,3
if not (r.eof and r.bof) then
r.addnew
r("subject")=keyword
r("md516")=md516
r("md532")=md532
r("click")=1
r.update
r.close
set r=nothing
else
r("click")=1+r("click")
r.update
r.close
set r=nothing
end if
If keyword<>"" Then
Response.Write("MD5 加密之前：弯饥型" & keyword & "<br />MD5 16位加密：" & md516 & "<br />MD5 32位加密：" & md532)
else Response.Write("您未输入任何待查询内容。")
End If
%>

Answer 2

if r.eof or r.bof then
改成 if r.eof and r.bof then