Question

asp中数组函数问题。麻烦看下

MyArry=Array("1001","1002","1003")
str="1002"
function checkarry(arry(),str)
for i=lbound(myarry) to ubound(myarry)
if myarry(i)=str then
'response.write("success")
checkarry=true
exit for
end if
Next
end function

if checkarry(MyArry(),str)=true then
response.Write("y")
else
response.Write("N")
end if

Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: 'MyArry'

Answer 1

改成这个样子就可以了：
<%
MyArry=Array("1001","1002","1003")
str="1002"
function checkarry(arry,str)
for i=lbound(arry) to ubound(arry)
if arry(i)=str then
'response.write("success")
checkarry=true
exit for
end if
Next
end function

if checkarry(MyArry,str)=true then
response.Write("y")
else
response.Write("N")
end if
%>

Answer 2

楼上正解。