Question

ASP提交表单 相同内容覆盖更新 不重复写入问题

我现在的代码是 下面这个 需要加个检测代码 检测user这个值 如果相同就不添加 当不影响user列中的其他数据更新添加 如果不相同就添加新的记录 求大神帮忙加下代码吧？？希望大神帮帮忙~~~~
<%
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="Provider=Microsoft.jet.oledb.4.0;data source="& server.MapPath("/ongtl.mdb")
conn.open()

set rs=server.createobject("adodb.recordset")
sql="select user,pa,zs,phone,ip,data from list"
rs.open sql,conn,1,3
rs.addnew

user=request("user")
pa=request("pa")

zs=request("zs")

phone=request("phone")
ip=request.ServerVariables("REMOTE_ADDR")

if user="" or pa="" or zs="　" or phone="　" or i="　" then
response.Write("<script language=javascript>alert('请输入!');history.go(-1)</script>")
response.end
end if

rs("zs")=zs
rs("ip")=ip
rs("data")=now()
rs("user")=user
rs("pa")=pa
rs("phone")=phone
rs.update
rs.close
set rs=nothing
conn.close
'response.Write("<script>top.location='d.html';</script>")
response.Write "<script language='JavaScript'>{window.alert( '添加到数据库完成！');window.location.href= 'index.html';}</script> "
%>
提交表单的时候判断用户名，用户名存在则不添加，但是其他信息（比如备注，手机那些信息有变动则更新覆盖以前的老数据，）
user=request("user") '用户名
pa=request("pa") '帐号
zs=request("zs") '备注
phone=request("phone") '手机

Answer 1

<%
user=request("user")
pa=request("pa")
zs=request("zs")
phone=request("phone")
if user="" or pa="" or zs="" or phone="" then 
   response.Write "<script>alert('请输入!');history.go(-1)</script>"
else
   set conn=server.CreateObject("adodb.connection")
   conn.connectionstring="Provider=Microsoft.jet.oledb.4.0;data source="& server.MapPath("/ongtl.mdb")
   conn.open()
   set rs=server.createobject("adodb.recordset")
   sql="select * from list where [user]=" & user
   '如果user是个字符型字段，则这样
   'sql="select * from list where [user]='" & user & "'"
   rs.open sql,conn,1,3
   if not rs.eof then
      response.Write "<script>alert('请勿重复提交!');history.go(-1)</script>"
   else
      rs.addnew
      rs("zs")=zs
      rs("ip")=request.ServerVariables("REMOTE_ADDR")
      rs("data")=now()
      rs("user")=user
      rs("pa")=pa
      rs("phone")=phone
      rs.update
   end if
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
   response.Write "<script>alert('添加到数据库完成！');location.href='index.html';</script>"
end if
%>

追问

我的意思是提交表单的时候判断用户名，用户名存在则不添加，但是其他信息（比如备注，手机那些信息有变动则更新覆盖以前的老数据，）
user=request("user") '用户名
pa=request("pa") '帐号
zs=request("zs") '备注
phone=request("phone") '手机

追答

<%
user=request("user")
pa=request("pa")
zs=request("zs")
phone=request("phone")
if user="" or pa="" or zs="" or phone="" then 
   response.Write "<script>alert('请输入!');history.go(-1)</script>"
else
   set conn=server.CreateObject("adodb.connection")
   conn.connectionstring="Provider=Microsoft.jet.oledb.4.0;data source="& server.MapPath("/ongtl.mdb")
   conn.open()
   set rs=server.createobject("adodb.recordset")
   sql="select * from list where [user]=" & user
   '如果user是个字符型字段，则这样
   'sql="select * from list where [user]='" & user & "'"
   rs.open sql,conn,1,3
   if rs.eof then
      rs.addnew
      rs("user")=user
   end if
   rs("zs")=zs
   rs("ip")=request.ServerVariables("REMOTE_ADDR")
   rs("data")=now()
   rs("pa")=pa
   rs("phone")=phone
   rs.update
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
   response.Write "<script>alert('添加到数据库完成！');location.href='index.html';</script>"
end if
%>