请教大家 怎么做到数据库有相同的就不写入呢?
dim conn,db,rs,sql,connstr
set conn = server.CreateObject("adodb.connection")
'connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
db = "data.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from house"
rs.open sql,conn,1,3
Rs.AddNew
Rs("name")=trim(fcfangWDO.Rs(0))
Rs("sname")=trim(fcfangWDO.Rs(3))
Rs("price")=trim(fcfangWDO.Rs(2))
Rs("yzbm")=trim(fcfangWDO.Rs(1))
Rs("phone")=trim(fcfangWDO.Rs(4))
Rs("c_id")="98"
Rs.Update

在保存入存前检查是否有相同数据,
你是要所有字段都相同才不保存还是某个字段(如:NAME)有相同就不保存?

dim conn,db,rs,sql,connstr
set conn = server.CreateObject("adodb.connection")
'connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
db = "data.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from house where name="&trim(fcfangWDO.Rs(0))
rs.open sql,conn,1,1
if not rs.eof then
rs.close
sql="select * from house"
rs.open sql,conn,1,3
Rs.AddNew
Rs("name")=trim(fcfangWDO.Rs(0))
Rs("sname")=trim(fcfangWDO.Rs(3))
Rs("price")=trim(fcfangWDO.Rs(2))
Rs("yzbm")=trim(fcfangWDO.Rs(1))
Rs("phone")=trim(fcfangWDO.Rs(4))
Rs("c_id")="98"
Rs.Update
rs.close
set rs=nothing
else
rs.close
set rs=nothing
response.write "有相同数据"
end if

谢谢！我想要NAME有相同就不保存。按你的改了之后出现缺少语句145行出错是这个Wend
不加你写的红色的地方正常。
<%
fcfangWDO.MoveNext
col = col + 1


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim conn,db,rs,sql,connstr
set conn = server.CreateObject("adodb.connection")
'connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
db = "data.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from house where name="&trim(fcfangWDO.Rs(0))
rs.open sql,conn,1,1
if not rs.eof then
   rs.close
   sql="select * from house"
rs.open sql,conn,1,3
Rs.AddNew
Rs("name")=trim(fcfangWDO.Rs(0))
Rs("sname")=trim(fcfangWDO.Rs(3))
Rs("price")=trim(fcfangWDO.Rs(2))
Rs("yzbm")=trim(fcfangWDO.Rs(1))
Rs("phone")=trim(fcfangWDO.Rs(4))
Rs.Update
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
rs.close
set rs=nothing
else
   rs.close
   set rs=nothing
   response.write "有相同数据"
end if
'next
Wend            --------------这一行运行后出错
Set fcfangWDO = Nothing
rs.close
'rs = nothing
set conn = nothing

%>

你上面还有循环语句吗?这里为什么要个WEND呢?

我也不是很清楚，这是个采集原码
把以下去掉还是出现缺少语句 Wend 这个
'next
Wend            
Set fcfangWDO = Nothing
rs.close
'rs = nothing
set conn = nothing

你要把这一页整个代码拿出来,不然看不清结构的

做个判断 应该就可以了吧