select * from card where used=0
这样当然是把所有的used=0全部更新为1了
是不是后面忘了加其他查询条件了？

帮你换了种形式更新:
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where used=0",conn,1,3
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br>"
Response.Write "密码："&rs("cardmima")&"<br>"
conn.execute("update card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"'")
i=i+1
if i>=cardcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if
因为你原来的没有加条件,所以导致了把所有的都更新了....................

rs.Open "select * from card where used=0",conn,1,3
你这条应该是所有没有卖出去的记录吧，
而你下面就有个
DO WHILE 
rs("used")=1--------->这里操作之后把表里used都改为1了,而不是我需要的已经出售的卡,该如何做啊?
rs("card_dingdanid")=card_dingdanid
rs.Update
LOOP

这样肯定全设为1了

昨日如梦兄:
你的我做了,还是不行,扣款完毕,就弹出"此卡缺货",没有卡号出来啊,我刚刚把卡加上去了,新卡都变为空了,都变为出售的了.

....
rs.Open "select * from ty_card where id="&kaid&" and used=0",conn,1,3--->kaid为产品id,应该与这里无关,已经找到对应的产品
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br>"
Response.Write "密码："&rs("cardmima")&"<br>"
conn.execute("update ty_card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"'")
i=i+1
if i>=cardcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if

求助

哦,是啊,这样也会把所有的都更新的.应该要加判断的.
你==啊,
你的那些卡一次只是更新一个就行了吧,

当你更新完一个以后应该退出循环的.
就是在
conn.execute("update ty_card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"'")后面 Exit Do

只要更新已经出售的,cardcount为购买数量,测试是正确的,就是不知如何使已出售的卡改变状态,以便不再重复卖出

conn.execute("update ty_card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"'")后面 Exit Do

放在后面也不行,支付成功后弹出"此卡缺货",啥办呢?

怎么你成功之后要跳到前面去执行response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"这个啊,不懂.........
  你看一下数据库没有把字段used全改为1啊.........

if rs.eof And rs.bof then
才是缺货提示啊,else 才是出卡,出卡后已经end if了,不会跳到前面去了吧.
used把我新加的卡都改为1了,才出现缺货.

LZ是不是想游戏点卡在线支付成功后,自动弹出卡号和密码啊,那就不应该用循环啊
支付成功后让系统返回cardhao,再update,弹出卡号和密码
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where used=0 and cardhao='"&Request.Form("cardhao")&"'",conn,1,3
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "密码："&rs("cardmima")&"<br>"
rs("used")=1--------->这里操作之后把表里used都改为1了,而不是我需要的已经出售的卡,该如何做啊?
rs("card_dingdanid")=card_dingdanid
rs.Update
end if
rs.Close
set rs=nothing

rs.Open "select * from ty_card where id="&kaid&" and used=0",conn,1,1
if rs.recordcount<cardcount then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
conn.execute("update card set used=1,card_dingdanid='"&card_dingdanid&"' where exists(select TOP "&cardcount&" * from card where used=0)")
end if
rs.close
set rs=nothing

LZ 是一次卖出 cardcount 张卡
所以要一次弹出来

先判断剩余的未销售卡是否足够

如果足够则在未销售的卡中更新 cardcount 条记录的内容 used=1,dingdanid为当前定单号

我上边的 sql 指令错了，更正一下

rs.Open "select * from ty_card where id="&kaid&" and used=0",conn,1,1
if rs.recordcount<cardcount then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
conn.execute("update card set used=1,card_dingdanid='"&card_dingdanid&"' where cardhao in (select TOP "&cardcount&" cardhao from card where used=0)")  <== 本行修正
end if
rs.close
set rs=nothing

xzr2004(漫步云端):
rs.Open "select * from card where used=0 and cardhao='"&Request.Form("cardhao")&"'",conn,1,3
Request.Form("cardhao")在哪里取的啊?我要where id="&kaid&" and used=0",这个卡从库存里出来的啊,要循环的吧,不然购买2个以上的卡怎么出来呢?

superwfei(文盲)兄:
我照你的加上去了,没提示缺卡,卡出来了,但也把used更新为1,也就是未销售的变为销售的了,帮我看看.
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where id="&kaid&" and used=0",conn,1,1
if rs.recordcount<cardcount then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
cardid=rs("cardid")
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br>"
Response.Write "密码："&rs("cardmima")&"<br>"
conn.execute("update card set used=1,card_dingdanid='"&card_dingdanid&"' where cardhao in (select TOP "&cardcount&" cardhao from card where used=0)") 
'conn.execute("update card set used=1,card_dingdanid=card_dingdanid where cardid="&cardid&"")
i=i+1
if i>=cardcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if

是加的哪个？我第一次发的指令错了

rs.Open "select top "&cardcount&"  * from ty_card where id="&kaid&" and used=0",conn,1,3--->kaid为产品id,应该与这里无关,已经找到对应的产品
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br>"
Response.Write "密码："&rs("cardmima")&"<br>"
conn.execute("update ty_card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"'")
i=i+1
if i>=cardcount then Exit Do 
rs.movenext
loop
rs.Close
set rs=nothing
if i<cardcount then response.write"数量不够!!!"
end if

Request.Form("cardhao"),在线支付时你总要对输入的cardhao验证吧,正确的话把它要么放在隐藏域里,要么用url传递过来啊,按你上面所说的就要改改啊,多个卡号要处理下,要用两层循环,第一层控制cardhao,第二层控制update,

要下班了,明天帮你

rs.Open "select * from ty_card where id="&kaid&" and used=0",conn,1,1
if rs.recordcount<cardcount then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
conn.execute("update card set used=1,card_dingdanid='"&card_dingdanid&"' where cardhao in (select TOP "&cardcount&" cardhao from card where used=0)") 
set rt=conn.execute("select * from card where card_dingdanid='"&card_dingdanid&"'")
do while not rt.eof
response.write .....
rt.movenext
loop
set rt=nothing
end if
rs.close
set rs=nothing

http://www.2solo.net/blog/showlog.asp?log_id=360&cat_id=35

十 . 子查询
子查询可以理解为 套查询.子查询是一个SELECT语句.

十 .1表达式的值与子查询返回的单一值做比较
语法: 
表达式 comparision [ANY|ALL|SOME](子查询)
说明：
ANY和SOME谓词是同义词,与比较运算符(=,<,>,<>,<=,>=)一起使用.返回一个布尔值True或False.ANY的意思是,表达式与子查询返回的一系列的值逐一比较,只要其中的一次比较产生True结果,ANY测试的返回 True值(既WHERE子句的结果),对应于该表达式的当前记录将进入主查询的结果中.ALL测试则要求表达式与子查询返回的一系列的值的比较都产生True结果,才回返回True值.
例:主查询返回单价比任何一个折扣大于等于25%的产品的单价要高的所有产品
SELECT * FROM Products
WHERE UnitPrice>ANY
(SELECT UnitPrice FROM[Order Details] WHERE Discount>0.25)

十 .2检查表达式的值是否匹配子查询返回的一组值的某个值
语法:
[NOT]IN(子查询)
例:返回库存价值大于等于1000的产品.
SELECT ProductName FROM Products
WHERE ProductID IN
(SELECT PrdoctID FROM [Order DEtails]
WHERE UnitPrice*Quantity>= 1000)

十 .2检测子查询是否返回任何记录
语法:
[NOT]EXISTS (子查询)
例:用EXISTS检索英国的客户
SELECT ComPanyName,ContactName
FROM Orders
WHERE EXISTS
(SELECT *
FROM Customers
WHERE Country = ‘UK’ AND
Customers.CustomerID= Orders.CustomerID)

依然无法解决

今天白天上不了网，耽搁了，该如何做呢？按照我原来的方式可以，但是把数据库里未售的卡used字段也更新为1了，我的目的是已经出售的卡在字段used设为1，1标识为已售，0为未售。

select * from card where cardhao in (select TOP "&cardcount&" cardhao from card where used=0)

先运行下这个看看结果

发短信了，注意查收

superwfei(文盲)兄：你的方法是这样吧，可是还是提示缺货! kaid是要的，它为产品的ID

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where cardhao in (select TOP "&cardcount&" cardhao from card where id="&kaid&" and used=0)",conn,1,3
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('系统缺货！');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br>"
Response.Write "密码："&rs("cardmima")&"<br>"
conn.execute("update card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"'")
i=i+1
if i>=cardcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if

求助,还不行

superwfei(文盲)兄这种做法
可能是你输入的数量大于数据库中满足条件的数量,所以就报那个提示.

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where used=0",conn,1,3
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br/>"
Response.Write "密码："&rs("cardmima")&"<br/>"
sql=sql&"update card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"';"
i=i+1
if i>=cardcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if

if sql<> ""then 
response.write sql '先输出来看看是不是你要的
conn.execute(sql)

按照superwfei(文盲)兄方法改了一下,可是提示"缺货",实际并没有缺,也就是把所有卡USED全部改为1了,而不是出售的那个改

我照你的做下看

丢了个end if

我加上endif了,要加上id="&kaid&" 才能识别产品,但是还是提示"缺卡",去掉id="&kaid&" ,可以出来,但是卡号不对应产品啊,怎么办啊?

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where id="&kaid&" and used=0",conn,1,3
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br/>"
Response.Write "密码："&rs("cardmima")&"<br/>"
sql=sql&"update card set used=1,card_dingdanid=card_dingdanid where cardhao='"&rs("cardhao")&"'"
i=i+1
if i>=cardcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if

if sql<> ""then 
response.write sql
conn.execute(sql)
end if

信誉50,水过~~~~

那说明你的数据库中没有满足查询条件的嘛..........
kaid看什么类型的,加引号或,用trim 支空格.........

kaid是数字的,刚加上去的卡号,used都是0的,执行这个操作之后,都变为1,就提示缺卡了,所以出不来卡,我就是困惑这里,怎么样才能只更新出的卡设used=1,而不是全部

icefire988(冰火) 朋友,这个50是很久以前的了,不知道怎么回事,以前有很多高手都变为负分了,就是那一次的故障,这100分就给解决的人

set rs=server.CreateObject("adodb.recordset")

rs.Open "select * from ty_orders where goods='"&m_orderid&"' " ,conn,1,1

if rs.eof And rs.bof then

response.write "<script language=javascript>alert('系统出错！');window.close();</script>"

response.end

else

kaid=rs("id")

cardcount=rs("productnum")

card_dingdanid=rs("actionid")

end if

rs.Close

set rs=nothing

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' kaid=1 kaid 为数值型
' cardcount=4 cardcount 购卡数量为数值型
' card_dingdanid="00556978" card_dingdanid 定单号为字符串型
'
' 如果以上类型不对，请根据实际情况修改
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

set rs=server.CreateObject("adodb.recordset")

rs.Open "select * from card where cardhao in (select TOP "&cardcount&" cardhao from card where id="&kaid&" and used=0)",conn,1,3
if rs.recordcount<cardcount then

response.write "<script language=javascript>alert('系统缺货！\n\n目前仅余"&rs.recordcount&"张符合条件的卡');window.close();</script>"

response.end

else

i=0

ii=""

do while not rs.eof

ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"

Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"

ii=ii&"密码："&rs("cardmima")&"<br>"

Response.Write "密码："&rs("cardmima")&"<br>"

conn.execute("update card set used=1,card_dingdanid='"&card_dingdanid&"' where cardhao='"&rs("cardhao")&"'")

rs.movenext

loop

end if

rs.Close

set rs=nothing

以上代码再不对我就没招了

兄弟,不行,还是提示:系统缺货

帮换个方法想想啊

再仔细检查一下....应该很容易的........别被难题吓倒了.

还不行

求助,还不行

不会吧,应该是上面那些方法...............晕了.....

不行的,都更新了,而不是已经出售的更新

作　　者：  pdysuny (天空浪沙)        Blog  
等　　级：    
信 誉 值：  50    //看来此人从不解贴 

根据定单数量取出没卖出的卡就是了,取那么多干啥

sql="select top " & 定单数量 & " * from card where used=0"

再去更新就没事了

leohuang(LEO)：
再去更新的话，依然是全部更新啊，这样啊，不行


rs.Open "select TOP "&cardcount&" * from card where id="&kaid&" and used=0",conn,1,1 

。。。


 conn.execute("update card set used=1,card_dingdanid='"&card_dingdanid&"' where cardid="&rs("cardid")&"")

LZ，你前面where used=0是列出所有没有出售的卡，你列出后不要用UPDATE
然后你把你点开的卡的ID SELETE出来单独UPDATE就OK了
懒人一个 寒。
给你改一下吧
列出的页面：
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from card where used=0",conn,1,1
if rs.eof And rs.bof then
response.write "<script language=javascript>alert('此卡缺货');window.close();</script>"
response.end
else
i=0
ii=""
do while not rs.eof
ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"
ii=ii&"密码："&rs("cardmima")&"<br/>"
Response.Write "密码："&rs("cardmima")&"<br/>"
rs("used")=1--------->这里操作之后把表里used都改为1了,而不是我需要的已经出售的卡,该如何做啊?
rs("card_dingdanid")=card_dingdanid
i=i+1
if i>=cardcount then Exit Do
rs.movenext
loop
rs.Close
set rs=nothing
end if
弹出页面假设你的传递才参数为show.asp?cardid=1339
在你售出后提交以下代码更新
if isnull(request("cardid")) then
    response.write "<script>alert('参数传递错误！');window.close();</script>"
else
    dim cardid
    cardid=Cint(request("id"))
end if
sql="update card set userd=1 where cardid="&cardid

好了，给分吧
新混CSDN，多认识几个朋友啊~

cisky(白菜) :
出卡和更新的页面是在同一个页面,也就是你通常在网上购买时最后弹出的反馈页面.
(request("cardid")) 不知从何处获取,如果是两个页面,那就简单些了

依然无法解决,高手出招吧!再加100分!!

UP

up

再求助

set rs=server.CreateObject("adodb.recordset")

rs.Open "select * from card where cardhao in (select TOP "&cardcount&" cardhao from card where id="&kaid&" and used=0)",conn,1,1
if rs.recordcount<cardcount then

response.write "<script language=javascript>alert('系统缺货！\n\n目前仅余"&rs.recordcount&"张符合条件的卡');window.close();</script>"

response.end

else

i=0

ii=""

do while not rs.eof

ii=ii&"卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"

Response.Write "卡号："&rs("cardhao")&"&nbsp;&nbsp;&nbsp;"

ii=ii&"密码："&rs("cardmima")&"<br/>"

Response.Write "密码："&rs("cardmima")&"<br/>"
str_cardhao =srt_cardhao&","&rs("cardhao")

sql=sql&"update card set used=1,card_dingdanid='"&card_dingdanid&"' where cardhao='"&rs("cardhao")&"'"

rs.movenext

loop

end if

rs.Close

set rs=nothing
response.write str_cardhao '看输出的卡号是不是满足你的条件.....
response.write sql '看SQL语句是不是也符合你的要求 如果符合的话就执行.
conn.execute(sql)