Question

asp+access 添加多条记录+更新记录

set rsp=server.createobject("adodb.recordset")
sql="select * from P_Queue where CardNo='"&rs("CardID")&"' and PassWord='"&rs("PassWord")&"'"
rsp.open sql,conn,1,3

if rsp.eof and rsp.bof then

CardID=rs("ID")
CardType=rs("ClassID")
CardNo=Replace(request.Form("Account"), "'", "''")
PassWord=request.form("PassWord")
dim typenum
if CardType = 1 then typenum=1
if CardType = 2 then typenum=5
if CardType = 3 then typenum=10
for i=1 to typenum
rsp.addnew
rsp("CardNo")=CardNo
rsp("PassWord")=PassWord
rsp("CardID")=CardID
rsp("CardType")=CardType
rsp.update
next

else

session("username")=rsp("id")
sql="update P_Queue set LoginNum=LoginNum+1 where id=" & session("username") '登陆次数+1
conn.execute(sql)

if rsp("LoginNum")=1 then
set rsn=server.createobject("adodb.recordset")
exec="select * from P_QueueNum where id=1"
rsn.open exec,conn,1,1
dim sums
QueueNum=rsn("QueueNum")
card_class=rsp("CardType")
if card_class = 1 then sums=1
if card_class = 2 then sums=5
if card_class = 3 then sums=10

sql="update P_QueueNum set QueueNum="&QueueNum&"+"&sums&" where id=1 "
conn.execute(sql)

sql="update P_Queue set QueueNum="&QueueNum&"+1 where id=" & session("username")
conn.execute(sql)

sql="update P_Queue set [ActivateTime]=now() where id=" & session("username")
conn.execute(sql)

sql="update P_Queue set Use=1 where id=" & session("username")
conn.execute(sql)

end if

现在只能更新第一条的数据 其它2-N条无法更新 各位大侠帮忙看看

是先从其它表中验证登录后添加数据 然后再更新表内数据
不是少写了end if 下面还有代码的 只是上面这段更新不了
看图，同时添加5条记录 后面四条都是空数据 只有QueueNum这个需要+1 其它都一样的 但是就是出不来

Answer 1

你少写了一个end if

<%
set rsp=server.createobject("adodb.recordset")
sql="select * from P_Queue where CardNo='"&rs("CardID")&"' and PassWord='"&rs("PassWord")&"'"
rsp.open sql,conn,1,3

if rsp.eof and rsp.bof then

CardID=rs("ID")
CardType=rs("ClassID")
CardNo=Replace(request.Form("Account"), "'", "''")
PassWord=request.form("PassWord")
dim typenum
if CardType = 1 then typenum=1
if CardType = 2 then typenum=5
if CardType = 3 then typenum=10
for i=1 to typenum
rsp.addnew
rsp("CardNo")=CardNo
rsp("PassWord")=PassWord
rsp("CardID")=CardID
rsp("CardType")=CardType
rsp.update
next

else

session("username")=rsp("id")
sql="update P_Queue set LoginNum=LoginNum+1 where id=" & session("username") '登陆次数+1
conn.execute(sql)

if rsp("LoginNum")=1 then
set rsn=server.createobject("adodb.recordset")
exec="select * from P_QueueNum where id=1"
rsn.open exec,conn,1,1
dim sums
QueueNum=rsn("QueueNum")
card_class=rsp("CardType")
if card_class = 1 then sums=1
if card_class = 2 then sums=5
if card_class = 3 then sums=10

sql="update P_QueueNum set QueueNum="&QueueNum&"+"&sums&" where id=1 "
conn.execute(sql)

sql="update P_Queue set QueueNum="&QueueNum&"+1 where id=" & session("username")
conn.execute(sql)

sql="update P_Queue set [ActivateTime]=now() where id=" & session("username")
conn.execute(sql)

sql="update P_Queue set Use=1 where id=" & session("username")
conn.execute(sql)

end if

end if
%>