你少写了一个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
%>
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024