问个全局数组问题,马上给分
我的本意是做聊天室,在一个application里缓冲20条发言,application("xb")是数组下标,每次有一个人发言,缓冲数组下标就自动加1,超过20又从1开始。
请问我该如何修改?
代码如下:
dim talk(20)
talk=application("talk") '这行报错
application("xb")=application("xb")+1
if application("xb")>20 then application("xb")=1
talk(application("xb"))=request.form("edtmatter")
application("talk")=talk
但是在运行的时候报错:
<p>Microsoft VBScript 运行时错误</font> <font face="宋体" size=2>错误 '800a000d'</font>
<p>
<font face="宋体" size=2>类型不匹配</font>
<p>
<font face="宋体" size=2>/refresh.asp</font><font face="宋体" size=2>,行 16</font>