Microsoft VBScript 运行时错误 错误 '800a0009' 下标越界: '[number: 1]' /a/make.asp，行 36 求解决啊

a = request("a")
if a = "" then
   a = 0
end if
b = request("b")
if b = "" then
   b = Ubound(key)/3
end if
for i = a to b
    key(i)= replace(key(i),chr(10),"")
    key(3*i+1)= replace(key(i+1),chr(10),"")
    key(3*i+2)= replace(key(i+2),chr(10),"")
    key(i)=key(3*i)+"_"+key(3*i+1)+"_"+key(3*i+2)
    real_title=key(i)
    key(i)=replace(key(i),chr(10),"")
     key(i)=replace(key(i),chr(13),"")
    plist = plist+"<li class='catlist_li com-cat-list'><span class='f_r px11 f_gray'><#time#></span><a href='"+pp+Fb+trim(cstr(i+1))+Fext+"' target='_blank' title='"+key(i)+"'>"+key(i)+"</a></li>"
next

求大牛来解决一下 谢谢了。

5 个解决方案

#1

低36 行 是哪一行..... 

#2

 key(3*i+1)= replace(key(i+1),chr(10),"")  这行是36 行

#3

引用 2 楼 xietao2007gg 的回复:

 key(3*i+1)= replace(key(i+1),chr(10),"")  这行是36 行

这个提示很明显啊
就是数组长度超标了
意思就是说数组长度实际是3，也就是说数组最多只表示到a(2)，但实际你却使用了a(3)，这样就会提示下标越界了

#4

引用 3 楼 chinmo 的回复:

Quote: 引用 2 楼 xietao2007gg 的回复:

 key(3*i+1)= replace(key(i+1),chr(10),"")  这行是36 行

这个提示很明显啊
就是数组长度超标了
意思就是说数组长度实际是3，也就是说数组最多只表示到a(2)，但实际你却使用了a(3)，这样就会提示下标越界了

如何解决呢?

#5

引用 4 楼 xietao2007gg 的回复:

Quote: 引用 3 楼 chinmo 的回复:

Quote: 引用 2 楼 xietao2007gg 的回复:

 key(3*i+1)= replace(key(i+1),chr(10),"")  这行是36 行

这个提示很明显啊
就是数组长度超标了
意思就是说数组长度实际是3，也就是说数组最多只表示到a(2)，但实际你却使用了a(3)，这样就会提示下标越界了

如何解决呢?

汗!都告诉原因了，还不知道怎么解决？

当然是防止超出数组范围啊