你提交表单后插入数据库即可啊
比如
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from 表1",conn,1,3'打开表1
rs.addnew'添加数据
rs("wb1")=Request.From("wb1")
rs("wb3")=Request.Form("wb3")
rs.update'提交到数据库
rs.close'关闭
rs.open "select * from 表2",conn,1,3'打开表2
rs.addnew'添加数据
rs("wb2")=Request.From("wb2")
rs("wb4")=Request.Form("wb4")
rs.update'提交到数据库