求助大虾：怎么样判断某个值是否属于一个数组的元素？

[ping3188]

求助大虾：怎么样判断某个值是否属于一个数组的元素？

本人刚接触ASP不久，请大虾能够写出详细例子，
谢谢！

[ping3188]

ding

[CutBug]

<%
ReDim arr(3)
Dim str,m
arr(0) = "1a"
arr(1) = "2a"
arr(2) = "3a"
str = "2a"

m = IsInArray(arr,str)
if m then Response.Write "有这个元素" else Response.Write "没有这个元素"

'arrList 数组
'x 检索的元素
Function IsInArray(arrList,x)
Dim flag
flag = false
for i=0 to Ubound(arrList)
if arrList(i)=x then
flag = true
end if
next
IsInArray = flag
End Function
%>

[ping3188]

CutBug(外面的世界很无奈) ( ) 信誉：100 Blog

我用你的方法写了，很好用的，但是，现在有一个问题啊，就是，

m = IsInArray(arr,str)
if m then Response.Write "有这个元素" else Response.Write "没有这个元素"

可以用的，但是，当我把它们放到一个循环内就出错误了：

for i=j to total_sum-1

m = IsInArray(arr,str(1))
if m then Response.Write "有这个元素" else Response.Write "没有这个元素"
------
next

错误提示：

错误类型：
Response 对象, ASP 0104 (0x80070057)
不允许操作

[ping3188]

CutBug(外面的世界很无奈) ( ) 信誉：100 Blog

我用你的方法写了，很好用的，但是，现在有一个问题啊，就是，

m = IsInArray(arr,str)
if m then Response.Write "有这个元素" else Response.Write "没有这个元素"

可以用的，但是，当我把它们放到一个循环内就出错误了：

for i=j to total_sum-1

m = IsInArray(arr,str(i))
if m then Response.Write "有这个元素" else Response.Write "没有这个元素"
------
next

错误提示：

错误类型：
Response 对象, ASP 0104 (0x80070057)
不允许操作

[CutBug]

<%
ReDim arr(3)
Dim str,m
arr(0) = "1a"
arr(1) = "2a"
arr(2) = "5a"
str = "5a"




'arrList 数组
'x 检索的元素
Function IsInArray(arrList,x)
Dim flag
flag = false
for i=0 to Ubound(arrList)-1
if arrList(i)=x then
flag = true
end if
next
IsInArray = flag
End Function

Dim arrB(2)
arrB(0) = "1a"
arrB(1) = "2a"

For j=0 to ubound(arrB)-1
m = IsInArray(arr,arrB(j))
if m then Response.Write "yes"&"<br>" else Response.Write "no"&"<br>"
Next

%>

[CutBug]

你再仔细看看这个例子