<%
dim 111
111=htmlencode(request.form("111"))
set rs= server.createobject("adodb.recordset")
sql="select* from 表1 where 111="&111
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
else
rs.addnew
rs("111") =111
rs.update
end if
rs.close
set rs=nothing
end if
conn.close
set conn=nothing
end if
%>
我想把111可以提交到表1和表2表4，5，6等等该怎么做？
參考答案:顺序写下来就可以了：
Dim 111
111 = htmlencode(Request.Form("111"))
sql = "INSERT INTO 表2 (111) VALUES ('"&111&"')"
conn.execute sql
sql = "INSERT INTO 表3 (111) VALUES ('"&111&"')"
conn.execute sql
sql = "INSERT INTO 表4 (111) VALUES ('"&111&"')"
conn.execute sql
......
