ASP 提交文档后覆盖了旧数据，怎么解决？？

ASP 网站开发的问题
我不是很懂，但是也基本实现了功能
但是怎么提交文档后会覆盖旧的数据库数据呢？？
求大侠们帮帮我啊！

我只是简单的做个记录查询而已，局域网内供同事查询的！

<%
id=Request("id")
if Request.form("bxdw")<>"" then
bxdw=Trim(request.form("bxdw"))
sql="select * from fxjlbook where "
if id<>"" then
sql=sql&"id="&id
else
sql=sql&"bxdw='"&bxdw&"'"
end if
set rs=Server.CreateObject("ADODB.recordset")
rs.Open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
end if
rs("bxdw")=Request.form("bxdw")
rs("lxr")=Request.form("lxr")
rs("lxdh")=Request.form("lxdh")
rs("sjrq")=Request.form("sjrq")
rs("kddh")=Request.form("kddh")
rs("sblx")=Request.form("sblx")
rs("sblx1")=Request.form("sblx1")
rs("sblx2")=Request.form("sblx2")
rs("sblx3")=Request.form("sblx3")
rs("sbbm")=Request.form("sbbm")
rs("sbbm1")=Request.form("sbbm1")
rs("sbbm2")=Request.form("sbbm2")
rs("sbbm3")=Request.form("sbbm3")
rs("bxgz")=Request.form("bxgz")
rs("bxgz1")=Request.form("bxgz1")
rs("bxgz2")=Request.form("bxgz2")
rs("bxgz3")=Request.form("bxgz3")
rs("bq")=Request.form("bq")
rs("bq1")=Request.form("bq1")
rs("bq2")=Request.form("bq2")
rs("bq3")=Request.form("bq3")
rs("wxfy")=Request.form("wxfy")
rs("wxfy1")=Request.form("wxfy1")
rs("wxfy2")=Request.form("wxfy2")
rs("wxfy3")=Request.form("wxfy3")
rs("wxyj")=Request.form("wxyj")
rs("fcrq")=Request.form("fcrq")
rs("wxhfcrq")=Request.form("wxhfcrq")
rs("wxjg")=Request.form("wxjg")
rs("sbzt")=Request.form("sbzt")
rs("fhky")=Request.form("fhky")
rs("fhrq")=Request.form("fhrq")
rs("fhr")=Request.form("fhr")
rs("fhdh")=Request.form("fhdh")
rs("kd")=Request.form("kd")
rs("bz")=Request.form("bz")
rs.Update

end if
if id<>"" then
sql="select * from fxjlbook where id="&id
set rs=Server.CreateObject("ADODB.recordset")
rs.Open sql,conn,1,1
if not rs.eof then
bxdw=rs("bxdw")
lxr=rs("lxr")
lxdh=rs("lxdh")
sjrq=rs("sjrq")
kddh=rs("kddh")
sblx=rs("sblx")
sblx1=rs("sblx1")
sbl2x=rs("sblx2")
sblx3=rs("sblx3")
sbbm=rs("sbbm")
sbbm1=rs("sbbm1")
sbbm2=rs("sbbm2")
sbbm3=rs("sbbm3")
bxgz=rs("bxgz")
bxgz1=rs("bxgz1")
bxgz2=rs("bxgz2")
bxgz3=rs("bxgz3")
bq=rs("bq")
bq1=rs("bq1")
bq2=rs("bq2")
bq3=rs("bq3")
wxfy=rs("wxfy")
wxfy1=rs("wxfy1")
wxfy2=rs("wxfy2")
wxfy3=rs("wxfy3")
wxyj=rs("wxyj")
fcrq=rs("fcrq")
wxhfcrq=rs("wxhfcrq")
wxjg=rs("wxjg")
sbzt=rs("sbzt")
fhky=rs("fhky")
fhrq=rs("fhrq")
fhr=rs("fhr")
fhdh=rs("fhdh")
kd=rs("kd")
bz=rs("bz")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>

rs.Open sql,conn,1,3

这个地方的3就是可以修改，
看下：
rs("bz")=Request.form("bz") 就是指rs("bz") 赋值了
rs.Update 做提交了

所以可以把bxdw值做变化，然后rs("bxdw")=bxdw

rs.Update

试试在数据库中把id字段设置为自动增长看看

你的代码,只要提交时bxdw或id的值能在数据库里找到对应记录就会改写那条记录啊,如果都是添加,直接addnew,不要再判断了

直接用Rr.addnew。不要用判断

if Request.form("bxdw")<>"" then bxdw=Trim(request.form("bxdw")) sql="select * from fxjlbook where " if id<>"" then sql=sql&"id="&id else sql=sql&"bxdw='"&bxdw&"'" end if set rs=Server.CreateObject("ADODB.recordset") rs.Open sql,conn,1,3 if rs.eof or rs.bof then rs.addnew 首先，你说是仅仅查询，那为什么还需要addnew呢 ... rs("fhdh")=Request.form("fhdh") rs("kd")=Request.form("kd") rs("bz")=Request.form("bz") rs.Update 这里已经把数据记录更新了啊 如果仅仅是查询，就把以上代码全部删掉 当然如果确实需要添加数据 这一段 if Request.form("bxdw")<>"" then bxdw=Trim(request.form("bxdw")) sql="select * from fxjlbook where " if id<>"" then sql=sql&"id="&id else sql=sql&"bxdw='"&bxdw&"'" end if 换成 sql="select * from fxjlbook" //查询改成这个

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息