Question

asp同时写入2个表

我有2个表，一个user用户表，一个是dw表
当用户创建一个版面的时候，dw的id字段的自动编号会生成一个编号，我想在用户创建一个版面的时候，dw的id字段自动生成的编号同时也会记录到user用户里的dz这个字段。
我也是这么想的，代码怎么写啊？
<% If Request("action")="add" Then
Call ChkReg()
End If

Sub ChkReg()
Dim user,pass
dwname = Trim(Request.Form("dwname"))
bz = Trim(Request.Form("pic"))
dq = Trim(Request.Form("dwname2"))
aid = Trim(Request.Form("aid"))
sql="select * from zq_dw where dwname='"&dwname&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
response.write "<script>alert('此队名已经存在，请重新选择！');history.back();</script>"
else
Rs.AddNew
Rs("dwname") = dwname
Rs("bz") = bz
Rs("dq") = dq
Rs("aid") = aid
Rs.Update
Rs.Close
Set Rs = nothing
response.Write "<script>alert('创建成功！'); location.href='main.asp';</script>"
'''''''''Response.Redirect "main.asp"
Response.End
End If
End Sub
%>
这个是我创建新信息，写入dw表的代码.
2楼能帮我搞个完整的代码吗？

Answer 1

Rs.Update
id=Rs("id") '这里加这句
Rs.Close

然后到另一张表中添加id

conn.execute("update [user] set dz="&id&" where id='"&userid&"'") '这句放在 Set Rs = nothing后面就可以了

Answer 2

普通的就是分两次写表，先写dw表，写表后获得id编号，然后再更新对应user表的dz字段。