简丹珠宝love项链:大哥哥们来帮忙啊!

来源:百度文库 编辑:高考问答 时间:2024/03/29 22:18:30
<%
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

......

提交记录都是用Insert语句的,如下:
<!--#include file="conn.asp"-->
<%
dim 111
111=htmlencode(request.form("111"))
sql="insert into Table1('111') values('"&111&"')"
conn.execute(sql)
%>