网站团购系统预判断的ASP代码 |
| [ 作者:佚名 转贴自:网络转载 阅读次数:62 更新时间:2007-10-22 12:14:00 录入:刘光勇 ] 热 |
|
|
|
'检测 dim shengnum,rs000,sql000,chkid shengnum="" chkid=""
for i=0 to UBound(v, 1) sql000="select amount from buy where id="&v(i) Set rs000= Server.CreateObject("ADODB.Recordset") rs000.open sql000,conn,1,3 if chkid=V(i) then chkid=chkid else chkid=v(i) shengnum="" end if
if shengnum="" then shengnum=rs000("amount")-1 else shengnum=shengnum-1 end if if shengnum<0 then response.write "抱歉,您的挑选商品时间较长,因此您挑选的部分商品已经被其他在线客户抢先预定,造成剩余商品不足,请您后退并刷新后重新选购" response.end end if next
|
|
|
|