ASP+Access如何提交一个表单，既实现插入记录，又实现对另个表更新记录。

'看你这情况,应该是对插入和更新成功率是比较高的,要么就全成功,要么就全不成功保持原样
'----------------------------
'略去连接数据库的过程
'----------------------------
Dim haoma,jine,daili,Yue
haoma=Trim(request.Form("haoma")) '号码
jine=Trim(request.Form("jine")) '金额
daili=Trim(request.Form("daili")) '代理
Yue=Trim(request.Form("zongshu")) '余额
If Not isNumeric(jine) Then 'jine 只能由数字组成,非数字提交判断为填写错误
    Response.Write("")
    Response.End()
End If
'-------------------------------
'进入SQL处理过程
'-------------------------------
conn.BeginTrans '事务开始
'除金额外,其它暂时按文本字串提交,SQL中,文本与数字变量入库的差别就是有没有单引号
SqlInsert="Insert Into [Recordset2] (haoma,jine,daili) Values('"&haoma&"',"&jine&",'"&daili&"')"
SqlUpdate="Update [Recordset1] set zongshu="&Yue&" where haoma='"&haoma&"'" 

conn.execute(SqlInsert) '插入 Recordset1
conn.execute(SqlUpdate) '更新 Recordset2

If conn.Errors.Count=0 Then
    conn.CommitTrans '没有conn错误,执行事务提交.大功告成的啦~
    Response.Write "数据执行完毕,没有错误!"  
Else
    conn.RollbackTrans '否则回滚
    Response.Write "有外星人干扰,数据未能完成,正在努力恢复!"  
End If

完全可以的，

值1=request("值1")
值2=request("值2")
值3=request("值3")
值4=request("值4")
conn1.execute "update user set 字段1='"&值1&"',字段2='"&值2&"',字段3='"&值3&"'"
conn2.execute "update user1 set 字段4='"&值4&"'"

请自己把以上中文改成你的相应变量