Question

下标越界: 'i' 求高手帮忙

Microsoft VBScript 运行时错误
错误 '800a0009'
下标越界: 'i'/admin/collect/do.asp，行 87

代码如下：
</thead>
</table>
<%
Conn.Class_terminate
DoCollect getCurId,0
End Sub
Function SkipLink()
dim curid,ids,it,i:curid=getCurId:ids = split(ReplaceStr(filename," ",""),","):it=split(ReplaceStr(itemname," ",""),","):SkipLink=""
if isArray(ids) AND isArray(it) then
For i=0 to UBound(ids)
ids(i)="<a href=""?"&RegReplace(request.queryString,"/&index=\d+/i","&clear=true&index="&i)&""">"&ifthen(ids(i)=Cstr(curid),"<font color=red>>"&it(i)&"<</font>",it(i))&"</a>"
Next
SkipLink=Join(ids," ")
end if
End Function
Sub EXECESFILE
Dim f:f=getCurId
%>
<table class="tb">
<thead>

Answer 1

如果UBound(it)小于UBound(ids)（意思就是数组it的元素个数少于数组ids），那么当i大于UBound(it)时，it(i)就会提示“下标越界”了。

追问

麻烦您 吧错误的这段代码 给我改好 可以吗

Answer 2

For i=0 to UBound(ids)-1

追问

麻烦您 吧错误的这段代码 给我改好 可以吗