为什么会报错，高分！！！！！！！！！！！！！！！！！！！！！！！！

[pentium8285]

Dim Shopping_Bag(3)
Shopping_Bag(0)="1,10"
Shopping_Bag(1)="2,10"
Shopping_Bag(2)="3,10"
For i=0 to Ubound(Shopping_Bag)
Id_No=Split(Shopping_Bag(i),",")
Response.write Id_No(0)&"<br>"
Response.write Id_No(1)&"<br>"
Next

Id_No=Split(Shopping_Bag(i),",")告诉我这行有错误，如果我把i换成0,1,2的其中一个就可以正常显示，为什么，怎么解决？

[lubaixu]

写入下面的代码,看看它的错误描述吧:
on error resume next
.
.
.
if err.number<>0 then
response.write err.number & "<br>"
response.write err.description & "<br>"
response.write err.source & "<br>"
end if
'good luck to you.

[pentium8285]

我试了说我下标越界，为什么？？

[Jaron]

贴出错误提示

[avonqin]

Id_No=Split(Shopping_Bag(i),",")
假如i=0，则Id_No(0)=1,Id_No(1)=10
假如i=1，则Id_No(0)=2,Id_No(1)=10
假如i=2，则Id_No(0)=3,Id_No(1)=10
假如i=3，则 Response.write Id_No(0)&"<br>" '这行会报错，因为Id_No(0)不存在！

应该搞清楚，Ubound(Shopping_Bag)=3，i循环是从0——3，而不是从0——2！
修改意见：
For i=0 to Ubound(Shopping_Bag) 改为： For i=0 to Ubound(Shopping_Bag)-1

[Jaron]

<%
Dim Shopping_Bag(2) ' < ========= 这里有错。
Shopping_Bag(0)="1,10"
Shopping_Bag(1)="2,10"
Shopping_Bag(2)="3,10"
For i=0 to Ubound(Shopping_Bag)
Id_No=Split(Shopping_Bag(i),",")
Response.write Id_No(0)&"<br>"
Response.write Id_No(1)&"<br>"
Next
%>

[pentium8285]

粗心大意了，犯了个低级的错误