Question

ASP-高手指点！Microsoft VBScript 运行时错误 '800a0009'下标越界: '[number: 1]'

Microsoft VBScript 运行时错误 '800a0009'

下标越界: '[number: 1]'

\fun\funlogic.asp, line 321

代码多，HI里发
Microsoft VBScript 运行时错误 '800a0009'

下标越界: '[number: 1]'

\fun\funlogic.asp, line 318
318行错，

一下是代码。

end function

function filenametime(str)
arr=split(str,"-")
filenametime=arr(0)&arr(1)&arr(2) 318行处
end function

function timemd(str)
arr=split(str,"-")
if len(arr(2))=1 then
arr(2)="0"&arr(2)
end if
if len(arr(1))=1 then
arr(1)="0"&arr(1)
end if
timemd=arr(1)&"-"&arr(2)
end function

Answer 1

很明显嘛,你的arr数组的元素个数少.
你确定arr是具有3个元素吗? 你的str这个变量的值都是类似什么样的?发出来

------------------------

把:filenametime=arr(0)&arr(1)&arr(2) 318行处
改成:

for i=ibound(arr) to ubound(arr)
filenametime=filenametime&arr(i)
next

就可以了.

Answer 2

这是数组的下限溢出了。

你可以使用 ubound(数组名) 意思是最后面一个，不管多少都不出错，
lbound(数组名) 第一个数组号

for i=lbound(数组名) to ubound(数组名)

next

Answer 3

arr(0)&arr(1)&arr(2) 这里有问题
首先你不能肯定数组里肯定有3个元素吧，比如str="1-2"的话那么就没有arr(2)了
你在考虑下

Answer 4

越界了啊。如果数组中没有，那是输出不了的

Answer 5

arr(0)&arr(1)&arr(2)

这样试试
<%
Response.Write "arr(0)"
Response.Write "arr(1)"
Response.Write "arr(2)"
%>

你看看里面有没有值。如果那个没有 filenametime=arr(0)&arr(1)&arr(2) 那个去掉看看还 报不报错。