将表单中一个字段同时存储到数据库两个不同表中？

来源：互联网发布：神通数据库报价编辑：程序博客网时间：2024/05/20 17:27

将表单中的一个字段同时存储到一个数据库两个不同表中？代码如下！现在只是往produce1 这个表写数据，我还想同时让("hjsl")这个字段写进 KU 这个表中，这个表中字段名也是hjsl
请各位高手指教！怎么改造代码！

<%
sub AddProduce()
if request("action")="del" then
conn.execute("delete from produce1 where productid in ("&request("productid")&")")
elseif request("action")="edit" then
set rs=server.createobject("adodb.recordset")
if request("productid")<>"" then
sql="select * from produce1 where productid="&request("productid")
rs.open sql,conn,1,3
else
sql="select * from produce1"
rs.open sql,conn,1,3
rs.addnew
end if
rs("rq")=request("rq")
rs("jccm")=request("jccm")
rs("Hjid")=request("Hjid")
rs("kcsl")=request("kcsl")
rs("cksl")=request("cksl")
rs("rksl")=request("rksl")
rs("hjsl")=request("hjsl")
rs("TypeAid")=request("TypeAid")
rs("TypeB")=request("TypeB")
rs("lyr")=request("lyr")
rs("tjr")=request("tjr")
rs("bz")=request("bz")
if Cint(request("commend"))=1 then
rs("commend")=1
rs("productdate")=now()
else
rs("commend")=0
rs("productdate")=now()
end if

rs.update
end if
response.write "<script>alert('操作成功，请继续！');window.history.go(-1);</script>"
response.end
end sub
%>

0 0