Question

asp追加记录并修改

<%
if session("工单号码")="" then response.redirect"error.asp?id=2"
%>

<%
set rs=server.createobject("adodb.recordset")
sql="select * from reg where 工单号码='"&session("工单号码")&"'"
rs.open sql,db,1,3
if request.form("active")="" then
else
gongdanhaoma=trim(request.form("gongdanhaoma"))
shenfenzhenghaoma=trim(request.form("shenfenzhenghaoma"))
quyu=trim(request.form("quyu"))
date1=date()
xingming=trim(request.form("xingming"))
shoujihaoma=trim(request.form("shoujihaoma"))
lianxidianhua=trim(request.form("lianxidianhua"))
baoxiuqi=trim(request.form("baoxiuqi"))
fuwujindu=trim(request.form("fuwujindu"))
fuwubumen=trim(request.form("fuwubumen"))
fuwuleibie=trim(request.form("fuwuleibie"))
shoujixinghao=trim(request.form("shoujixinghao"))
shoujichuanma=trim(request.form("shoujichuanma"))
kehumanyidu=trim(request.form("kehumanyidu"))
fuwuneirong=trim(request.form("fuwuneirong"))
missme = " '"&session("工单号码"&"','"&shenfenzhenghaoma&"','"&quyu&"','"&xingming&"','"&shoujihaoma&"','"&lianxidianhua&"','"&baoxiuqi&"','"&fuwubumen&"','"&yewuquyu&"','"&shoujixinghao&"','"&shoujichuanma&"','"&fuwuneirong&"' "
insertsql="insert into reg(工单号码,身份证号码,区域,姓名,手机号码,联系电话,保修期,服务进度 ,服务部门,手机型号,手机串码,服务内容) values(" & missme & ")"
db.execute(insertsql)
rs("身份证号码")=shenfenzhenghaoma
rs("区域")=quyu
rs("姓名")=xingming
rs("手机号码")=shoujihaoma
rs("联系电话")=lianxidianhua
rs("保修期")=baoqiuqi
rs("服务进度")=fuwujindu
rs("服务部门")=fuwubumen
rs("手机型号")=shoujixinghao
rs("手机串码")=shoujichuanma
rs("服务内容")=fuwuneirong

rs.update
rs.close
set rs=nothing
response.redirect "login_ok.asp"
end if
%>
这样是添加记录后和以前的记录都被修改了，我想修改的是根据工单号码追加的记录，不修改原纪录，请问怎么编写，谢谢！

Answer 1

就是添加一行新的，然后保留一行旧的，有共同一个字段就是工单号码相同，不知道理解对不对？

追问

是这个意思！代码怎么编写！

追答

shoujichuanma=trim(request.form("shoujichuanma"))
kehumanyidu=trim(request.form("kehumanyidu"))
fuwuneirong=trim(request.form("fuwuneirong"))
rs.addnew '这里是新建一行
rs("工单号码")=session("工单号码") ' 这里就是你的工单号码
rs("身份证号码")=shenfenzhenghaoma
rs("区域")=quyu
rs("姓名")=xingming
rs("手机号码")=shoujihaoma
rs("联系电话")=lianxidianhua
rs("保修期")=baoqiuqi
rs("服务进度")=fuwujindu
rs("服务部门")=fuwubumen
rs("手机型号")=shoujixinghao
rs("手机串码")=shoujichuanma
rs("服务内容")=fuwuneirong
rs.update

Answer 2

如果只要追加记录，
set rs=server.createobject("adodb.recordset")
sql="select * from reg where 工单号码='"&session("工单号码")&"'"
rs.open sql,db,1,3 ‘这里，游标，1,1就行了
然后下边接着执行。。。直到
db.execute(insertsql) ’这里，insert 的SQL语句执行掉，，就是执行了追加记录。。
后边的rs("XXX")=XXX这些可以不要了，，一直到
rs.update ‘ 这句可以不要。。你只是要追加记录，就不必UPdate修改了
rs.close
set rs=nothing
response.redirect "login_ok.asp"
end if

追问

这个方法只是普通追加一条，但是我只是想修改1个字段记录，rs在上面的话，页面直接显示修改可以，不用全部重新填写。没有RS的话，需要每个字段内容都要重新填写，很麻烦，请问怎么修改！

追答

第一点：你的这个［REG］表，工单号的字段是否允许重复？

第二点：如果允许重复，那么使用如下语句．

set rs=server.createobject("adodb.recordset")
sql="select * from reg where 工单号码='"&session("工单号码")&"'"
rs.open sql,db,1,3

得到的纪录就不止一条了．你必须对这个进行识别．

第三点：将你的　inster　语句，放到 set rs=nothing　后边去．之前的部分，你想修改也好，想干嘛都好．最后确认无误了，再插入一条新的．