asp问题,论坛股票问题
我自己的论坛的股票系统出问题了,具体的是不能买股票,只能卖股票,不知道是怎么回事
问题提示如下
microsoft vb 运行时错误 错误 '800a0006'
溢出: 'clng'
/bbs/gupiao/exchange.asp,行172
我论坛地址是www.yu-men.com/bbs
麻烦注册进去看看股票问题,人格保证不是为了推广我的论坛!
这是 172行 elseif buynum>clng(trade_setting(3)) then
这是买入股票的部分
‘-------------------买入股票--------------------------
sub buy()
if cint(trade_setting(0))=0 then
errmess="
股市交易已经暂停,不能进行股票买卖操作"
call endinfo(1)
exit sub
end if
if raisinglimit and cint(trade_setting(16))<>3 then
if cint(trade_setting(16))<>0 then
errmess="
本股市已经限制对于涨停的股票是不能进行买入操作"
call endinfo(1)
exit sub
end if
end if
if falllimit and cint(trade_setting(17))<>3 then
if cint(trade_setting(17))<>0 then
errmess="
本股市已经限制对于跌停的股票是不能进行买入操作"
call endinfo(1)
exit sub
end if
end if
if clng(trade_setting(4))>0 and mybishu>=clng(trade_setting(4)) then
errmess="
本股市已经限制一天最多可以做 "&trade_setting(4)&" 笔交易,您已经达到了这个上限,请改天再进行交易"
call endinfo(1)
exit sub
end if
dim buynum ‘买入数量
if request.form("buynum")="" or (not isnumeric(request.form("buynum"))) then
errmess="
您要买多少股票啊?"
call endinfo(2)
exit sub
end if
buynum=int(request.form("buynum"))
if buynum<=0 then
errmess="
交易量不能小于等于 0 股!"
call endinfo(2)
exit sub
elseif buynum errmess="
本股市已经限制每次最少交易量为 "&trade_setting(2)&" 股!"
call endinfo(2)
exit sub
elseif buynum>clng(trade_setting(3)) then
errmess="
本股市已经限制每次最大交易量为 "&trade_setting(3)&" 股!"
call endinfo(2)
exit sub
end if
dim delmoney,poundage ‘买股票需要的钱,手续费
delmoney=buynum*nowprice
poundage=delmoney*trade_setting(5)/100 ‘其中 trade_setting(5) 是手续费
if mycash errmess="
您的资金不足以购买指定的股票,您可以减少购买数量或者购买其它股票"
call endinfo(1)
elseif int(nownum) errmess="
没有足够的股票数量,您可以减少购买数量或者购买其它股票"
call endinfo(2)
else
dim rnum,newprice,zd,rate,totalstocknum ‘随机数,股票价格变化量,涨跌幅
set rs=conn.execute("select 持股数,平均价格,buytime from [大户] where sid="&sid&" and uid="&myuserid&"")
totalstocknum=max((conn.execute("select 总股份 from [股票] where sid="&sid)(0))/30,1) ‘总股份
if rs.eof and rs.bof then ‘1 ‘如果没有买过这个股票
randomize
rate=rnd
rnum=rnd
if rnum<=0.4 then rnum=rnum+0.5
if rate newprice=nowprice*buynum*rnum/totalstocknum ‘股票价格变化量
zd=newprice/nowprice
mess=""&membername&"买入"&gupiaoname&" "&buynum&" 股,现价上涨 "&formatpercent(zd,2,-1)&""
elseif rate newprice=-nowprice*buynum*rnum/totalstocknum ‘价格变化值 +
zd=newprice/nowprice
mess=""&membername&"买入"&gupiaoname&" "&buynum&" 股,现价下滑 "&formatpercent(-zd,2,-1)&""
else
newprice=0 ‘价格变化值 0
zd=0
mess=""&membername&"买入"&gupiaoname&" "&buynum&" 股,现价没有波动"
end if
if changeoptb(sid,myuserid,membername,buynum)=true then mess=mess+",并取得经营权"
conn.execute("update [股票] set 当前价格=当前价格+"&newprice&",剩余股份=剩余股份-"&buynum&",交易量=交易量-"&buynum&",成交量=成交量+"&buynum&",买入笔数=买入笔数+1,todaywave=todaywave+"&zd&",totalwave=totalwave+"&zd&" where sid="&sid)
conn.execute("insert into [大户] (uid,帐号,sid,买入价格,平均价格,持股数,企业) values ("&myuserid&",‘"&membername&"‘,‘"&sid&"‘,‘"&nowprice&"‘,‘"&nowprice&"‘,‘"&buynum&"‘,‘"&gupiaoname&"‘)")
conn.execute("update [客户] set 资金=资金-"&(delmoney+poundage)&",持股种类=持股种类+1,今日买入=今日买入+1,总买入=总买入+1 where id="&myuserid)
conn.execute("insert into rndevent(content,addtime) values(‘"&mess&"‘,‘"&now()&"‘ )")
elseif datediff("n",rs(2),now()) errmess="
本股市已经限制两次买入同一股票的时间间隔为:"&trade_setting(6)&" 分钟
您上次买入该股票的时间是 "&rs(2)&",离下次可以购买该股票还差:"&(trade_setting(6)-datediff("n",rs(2),now()))&" 分钟"
founderr=true
call endinfo(1)
exit sub
else
dim mynum,agvprice ‘持股数,平均价格
mynum=rs(0) ‘已有股票数目
agvprice=rs(1) ‘平均价格
randomize
rate=rnd
rnum=rnd
if rnum<=0.4 then rnum=rnum+0.5
if rate newprice=nowprice*buynum*rnum/totalstocknum ‘股票价格变化量
zd=newprice/nowprice
mess=""&membername&"买入"&gupiaoname&" "&buynum&" 股,现价上涨 "&formatpercent(zd,2,-1)&""
elseif rate newprice=-nowprice*buynum*rnum/totalstocknum ‘价格变化值 +
zd=newprice/nowprice
mess=""&membername&"买入"&gupiaoname&" "&buynum&" 股,现价下滑 "&formatpercent(-zd,2,-1)&""
else
newprice=0 ‘价格变化值 0
zd=0
mess=""&membername&"买入"&gupiaoname&" "&buynum&" 股,现价没有波动"
end if
if changeoptb(sid,myuserid,membername,buynum)=true then mess=mess+",并取得经营权"
agvprice=(nowprice*buynum+agvprice*mynum)/(buynum+mynum) ‘新平均价格
conn.execute("update [股票] set 当前价格=当前价格+"&newprice&",剩余股份=剩余股份-"&buynum&",交易量=交易量-"&buynum&",成交量=成交量+"&buynum&",买入笔数=买入笔数+1,todaywave=todaywave+"&zd&",totalwave=totalwave+"&zd&" where sid="&sid)
conn.execute("update [大户] set 平均价格="&agvprice&",买入价格="&nowprice&",持股数=持股数+"&buynum&",buytime=now() where uid="&myuserid&" and sid="&sid)
conn.execute("update [客户] set 资金=资金-"&(delmoney+poundage)&",今日买入=今日买入+1,总买入=总买入+1 where id="&myuserid)
conn.execute("insert into rndevent(content,addtime) values(‘"&mess&"‘,now())")
end if
call givepoundage(sid,poundage)
call calculatefund(myuserid)
conn.execute("update [gupiaoconfig] set todaybuy=todaybuy+1,todaytotal=todaytotal+"&delmoney&"")
sucmess="
股票购买成功!"
call endinfo(1)
if cint(gupiao_setting(12))>0 then
‘只保留最新gupiao_setting(12)个事件
conn.execute("delete from rndevent where id not in(select top "&gupiao_setting(12)&" id from rndevent order by id desc)")
end if
end if ‘2
end sub