问个全局数组问题，马上给分

[srxumin]

我的本意是做聊天室，在一个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>

[wolf004]

dim talk(20)
dim i
i=1
talk(i)=application("talk") '这行报错
application("xb")=application("xb")+1
if application("xb")>20 then application("xb")=1
talk(application("xb"))=request.form("edtmatter")
application("talk")=talk(i)
i=i+1

[sailor001]

使用application.lock和application.unlock了吗？

[ttt2]

dim talk()
talk=application("talk")

[sailor001]

使用application.lock和application.unlock了吗？

[ttt2]

'''dim talk() 直接用就对了
talk=application("talk")

[sailor001]

application("talk")
如果是和talk类型和下标一样的才可以这样

[srxumin]

应该不是LOCK的问题吧

[srxumin]

ttt2(家合万事兴)
用你的方法还是报同样错误，扎么办？

[srxumin]

用你的方法可以保证不报错，因为你只是单个变量对变量的赋值，但是我想知道的是怎么定义全局数组？
是不是先要经过application("talk")=talk这条语句后，application("talk")才变成数组，这样再进行talk=application("talk")以后就不会报错了？