为什么会下标越界？

[emilchan6k]

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界

/test1.asp，行12



-------代码---
<%
dim sportsarray(3)
sportsarray(0)="dsfsdf"
sportsarray(1)="hj"
sportsarray(2)="y5ryt"
sportsarray(3)="43gf"


for i=0 to 3
title=sportsarray(i) '截取当前数组的内容提取新闻标题
dim urlArray()
urlArray(i)=sportsarray(i) '截取当前数组的内容提取到urlArray数组中存储
response.write"urlArray="&urlArray()&"<br>"
next
%>

[zorou_fatal]

<%
dim sportsarray(3)
dim urlArray(3)'不能在未定义数组长度的前提下使用变量做数组的下标
sportsarray(0)="dsfsdf"
sportsarray(1)="hj"
sportsarray(2)="y5ryt"
sportsarray(3)="43gf"


for i=0 to 3
title=sportsarray(i) '截取当前数组的内容提取新闻标题
dim urlArray()
urlArray(i)=sportsarray(i) '截取当前数组的内容提取到urlArray数组中存储
response.write"urlArray="&urlArray()&"<br>"
next
%>

[efei]

<%
'===ASP中不能直接定义数组，而是要redim======
dim sportsarray
redim sportsarray(3)
'==========================================
sportsarray(0)="dsfsdf"
sportsarray(1)="hj"
sportsarray(2)="y5ryt"
sportsarray(3)="43gf"

'===把dim urlArray放到外面来=========
dim urlArray
'===再Redim成和sportArray一样大小
redim urlArray(Ubound(sprotArray))
'==================================
for i=0 to 3
title=sportsarray(i) '截取当前数组的内容提取新闻标题
urlArray(i)=sportsarray(i) '截取当前数组的内容提取到urlArray数组中存储
'===使用urlArray时要加上i,urlArray(i),不能是urlArray()
response.write"urlArray=" & urlArray(i) & "<br>"
next
'===好了，搞定了
%>

[xiaosanshao19800821]

你的程序还有一个问题就是你dim sportsarray(3)后,下标要从0到2而不是从0到3,在ASP中可以定义一个变长数组,但是在用之前要用redim重新定义一下才能使用的

[xdk]

dim sportsarray(4)
这样就能实现从0到3了。。。

[jiangjiewebsky]

redim sportsarray(4)

[liuyangxuan]

<%
dim sportsarray(3)
dim urlArray(3)
sportsarray(0)="dsfsdf"
sportsarray(1)="hj"
sportsarray(2)="y5ryt"
sportsarray(3)="43gf"


for i=0 to 3
title=sportsarray(i) '截取当前数组的内容提取新闻标题

urlArray(i)=sportsarray(i) '截取当前数组的内容提取到urlArray数组中存储
response.write"urlArray="&urlArray(i)&"<br>"
next
%>