Question

ASP+ACCESS 一个页面打开多个表格 有代码 求高手解答，谢谢了。

代码：
<%
const adCmdText=&H0001 '定义三个参数常量
const adOpenStatic=3
const adLockOptimistic=2
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open server.mappath("bbs.mdb")
Dim strUserId
strUserId=Request.QueryString("strUserId")
sql1 = "select * from tbUsers where strUserId ='" & session("strUserId") & "'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql1,conn,adOpenStatic,adLockOptimistic,adCmdText'下面建立SQL语句，因为某些字段允许为空，所以需要判断一下
%>

还需要添加的表为：tbBBS

Answer 1

神戳戳的,没看懂你要抓子!
Conn.execute("insert into table (a,b)values('"&文本类型&"',"&数字类型&") where strUserid='"&xxxx&"'")
Conn.execute("insert into table2 (a,b)values('"&文本类型&"',"&数字类型&") where strUserid='"&xxxx&"'")
Conn.execute("insert into table3 (a,b)values('"&文本类型&"',"&数字类型&") where strUserid='"&xxxx&"'")

用记录集也行啊.
set Rs=server.CreateObject("adodb.recordset")
rs.open "xxxx",conn,1,3 '3可更新!
rs.addnews '添加才加这句
rs("字段")=值
rs.update
rs.close

rs.open "xxxx",conn,1,3 '3可更新!
rs.addnews '添加才加这句
rs("字段")=值
rs.update
rs.close

rs.open "xxxx",conn,1,3 '3可更新!
rs.addnews '添加才加这句
rs("字段")=值
rs.update
rs.close