access添加数据时重复

set r=server.CreateObject("adodb.recordset")

sql="select * from booklist where subcontent='"&content&"' or subtitle='"&title&"'"

r.open sql,connstr,1,3

'先判断一下是否有记录，没有记录时才插入。

if not r.eof then

response.Write ("抱歉，您所要用户或标题已经使用！。<br><a href='javascript:window.history.back()'>点击此处返回上一页</a>")

response.end

connstr.close

set connstr=nothing

end if

r.AddNew

r("title")=title

r("content")=content

r("username")=username

r.update

r.close()

set r=nothing

response.write "<script>window.opener.location.reload()window.close()</script>"

%>

查询一下数据库，where 条件就是你要保存的数据，如果返回的有记录则表示重复

在exec="insert into gongshi (cpmc,cplx,gxd,gx,bzgs,bzcl,bbh,scz,sxrq,yxq) values ('"+cpmc+"', '"+cplx+"','"+gxd+"','"+gx+"','"+bzgs+"','"+bzcl+"','"+bbh+"','"+scz+"','"+sxrq+"','"+yxq+"')"

之前执行

exec="select * from user where cpmc='"&cpmc&"'and gx='"&gx&"'"

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

If not rs.eof and not rs.eof then '判断资料是否存在

Response.write "<script language=javascript>alert('资料存在')history.go(-1)</script>"

Response.End

不行吗。

那你先看看

exec="select * from user where cpmc='"&cpmc&"'and gx='"&gx&"'"

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1 数据中能不能查出来数据

---