Question

高分急求助，如何向2个表内同时写数据？

我的站是个电影站，现在下载页面在下载的时候只是向库里的一个表写数据（扣影币的命令），执行没有错误。但是我现在想让下载扣除影币的时候同时向另一个表里记录是谁下载的及下载的电影名，我加2个SQL命令就出现错误了，无法打开，高人帮忙，在线等啊，急死了。

我原先代码是：
SQL = "select * from WD_User where userid = " & userid
Rs.Open SQL, conn, 1, 3
Rs("money") = CCur(Rs("money") - Subtractpoint)
Rs("DayDownNum") = Rs("DayDownNum") + 1
Rs.update
Rs.Close
↑这样是没问题的，可以下载 。

改后是：
SQL = "select * from WD_User where userid = " & userid
Rs.Open SQL, conn, 1, 3
Rs("money") = CCur(Rs("money") - Subtractpoint)
Rs("DayDownNum") = Rs("DayDownNum") + 1
Rs.update
Rs.Close
set rsb=server.createobject("adodb.recordset")
rsb.open "select * from tolook",conn,1,3
rsb.addnew
rsb("title")=rs("title")
rsb("userip")=request.servervariables("remote_addr")
rsb("userid")=request.cookies("userid")
rsb("oklook")=rst("oklook")
rsb("lookordown")="在线"
rsb.update
rsb.close
set rsb=nothing

↑改成这样就没法运行了，高手帮忙啊！！！！
yangd4 回答的，我按你的做了，但还是没法下载，但也不报错，也不扣点。
有谁能把我那代码改一下吗？

Answer 1

楼主的代码有问题啊，看我注释

SQL = "select * from WD_User where userid = " & userid
Rs.Open SQL, conn, 1, 3
Rs("money") = CCur(Rs("money") - Subtractpoint)
Rs("DayDownNum") = Rs("DayDownNum") + 1
Rs.update
Rs.Close //你这里已经将Rs给close掉了

set rsb=server.createobject("adodb.recordset")
rsb.open "select * from tolook",conn,1,3
rsb.addnew
rsb("title")=rs("title") //但是你这里仍然在调用Rs
rsb("userip")=request.servervariables("remote_addr")
rsb("userid")=request.cookies("userid")
rsb("oklook")=rst("oklook") //而你这裏的Rst不知道哪裏冒出来的
rsb("lookordown")="在线"
rsb.update
rsb.close
set rsb=nothing

其实执行多条update，最好向下面这样写
可以使用异动，加速数据库中的数据库作业速度。异动会以 BeginTrans 陈述式开头，以 CommitTrans 或 Rollback 陈述式做为结尾。
<%
On Error Resume Next
conn.BeginTrans

SQL = "update WD_User set money = money - '" & Subtractpoint & "',DayDownNum = DayDownNum + 1 where userid = '"&userid&"'"
conn.execute(SQL)
SQL1 = "update tolook set title = '"&title&"',userip = '"&request.servervariables("remote_addr") &"',userid = '"&request.cookies("userid")&"',oklook='"&oklook&"',lookordown='在线'"
conn.execute(SQL1)

'这里也可以加入循环执行多条，如
'for i=0 to 24
'sql = "update WD_User set money = 30 where id = " & i
'conn.execute(sql)
'next

if conn.errors.count>0 then
conn.rollbackTrans '有异常则Rollback
response.write "<script>alert('对不起，提交时发生异常。错误条数："&connfac.errors.count&"条！');</script>"
response.end
else
conn.commitTrans '无异常则执行
end if
%>

Answer 2

将两个表关联就可以实现:

select 字段名 from 表名1,表名2 where 表名1.ID=表名2.ID

表名1.ID 表示的是主关键字,如姓名ID

Answer 3

建议把错误信息发出来