sub AI()
Randomize
Rnum=rnd
if Rnum>=1-AI_Setting(1) then
dim RndID,StockNum,StockName,StockPrice,kaipanPrice
HIOO,我在访问你的股市的时候发现这个问题,很奇怪,在我用的时候从来没有这个错误,说是变量kaipanPrice未定义
请确定,你是不是完全按照我的代码改的,具体查一下
set rs=conn.execute("select 交易量,企业,当前价格,开盘价格 from 股票 where Cid="&RndID)
StockNum=rs(0) :StockName=rs(1) : StockPrice=rs(2) : kaipanPrice=rs(3)
上面的代码是不是改后是这个样子,如果是的话,你将这段代码改成这个样子看看
sub AI()
Randomize
Rnum=rnd
if Rnum>=1-AI_Setting(1) then
dim RndID,StockNum,StockName,StockPrice,kaipanPrice
主要是在最后加了个kaipanPrice的定义,但我怀疑问题还是在上面
你试着用上面代码替换chufa.asp中相应代码看看
那个股票上涨1000%,我看过了,是因为你的总股数定的太低了,举个例子:
一个股票,你定价基本在10元左右,总股数是1000股(你定的),则你买入股票新的股价的定价为:
新的股价=买入价格*买入数量*随机数*30/总股数
上面的随机数程序定义如果小于0.4,则加上0.5,则至少随机数为0.5
新的股价=买入价格*买入数量*0.5*30/总股数
假如你买800股,买入价格为11块
新的股价=11*800*0.5*30/1000=132块
于是你的股票价格上涨1100%
原因在于你的总股数太小,用股市话说,盘子太小,而你每股允许交易的上限又相对太大,一下子就说不定可以买完全盘,即使你自己定义每次买1股,机器人照样可以买很多(除非修改程序),所以,最好还是把盘子弄到大点,10元的价格,10000000股的盘子总归要的