ASP 使用Filter函数来检索数组的实现代码

语法说明：

filter 函数
返回下标从零开始的 数组，其中包含以特定过滤条件为基础的字符串数组的子集。
filter(inputstrings, value[, include[, compare]])
参数
inputstrings
必选项。一维数组，要在其中搜索字符串。
value
必选项。要搜索的字符串。
include
可选项。boolean 值，指定返回的子字符串是否包含 value。如果 include 为 true，filter 将返回包含子字符串 value 的数组子集。如果 include 为 false，filter 将返回不包含子字符串 value 的数组子集。
compare
可选项。数字值指出使用的比较字符串 类型.请参阅值设置部分.
设置
compare 参数可以有以下值：
常数
值
描述
vbbinarycompare
0
执行二进制比较。
vbtextcompare
1
执行文本比较。
说明
如果在 inputstrings 中没有找到与 value 匹配的值，filter 将返回空数组。如果 inputstrings 为 null 或者不是一维数组，则会发生错误。
由 filter 函数返回的数组仅包含足以包含匹配项数目的元素。

下面例子利用 filter 函数返回包含搜索条件 "mon" 的数组:

dim myindex
dim myarray (3)
myarray(0) = "sunday"
myarray(1) = "monday"
myarray(2) = "tuesday"
myindex = filter(myarray, "mon") 'myindex(0) 包含 "monday"。

在红色的位置需要注意一下，myindex是一个数组！~

dim myindex,indexitem
dim myarray(2)
myarray(0) = "sunday"
myarray(1) = "monday"
myarray(2) = "monday"
myindex = filter(myarray,"tuesday")
for indexitem = 0 to ubound(myindex)
response.write myindex(monday)&"<br />"
next