Question

asp 添加数据不重复?下面这句代码哪个帮我改下?

if url<>"" then
dim domain
domain = mid(url,8)
if instr(domain,"/")>0 then
domain = left(domain,instr(domain,"/"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from detail where url like '%"&domain&"%'"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
Response.Write ("<script language=javascript>alert('抱歉，此域名已经存在！');this.location.href='XYURLCOM_DETAIL_ADD.ASP';</script>")
response.end
rs.close
set rs=nothing
end if
end if

上面这代码，添加数据时，url字段值 只要添加类似的值 就不可以添加？
谁帮我改下。url字段值 不重复的 都可以添加！！

Answer 1

if url<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from detail where url='"&url&"'"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
Response.Write ("<script language=javascript>alert('抱歉，此URL已经存在！');this.location.href='XYURLCOM_DETAIL_ADD.ASP';</script>")
response.end
rs.close
set rs=nothing
end if
end if

Answer 2

if url<>"" then
dim domain
domain = mid(url,8)
if instr(domain,"/")>0 then
domain = left(domain,instr(domain,"/"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from detail where url like '%"&domain&"%'"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
Response.Write ("<script language=javascript>alert('抱歉，此域名已经存在！');this.location.href='XYURLCOM_DETAIL_ADD.ASP';</script>")
response.end
else
写上update语句添加进数据库
end if
rs.close
set rs=nothing
end if