ASP验证数组匹配的函数

以前在上班的过程中，BOSS竟然叫我把人物分配权限来让每个人有不同的操作权限~
虽然不是什么难事，但是要把新浪网的数据库下载下来，再更改数据库，最后还要上传到服务器上，最后还要改很多的程序……实在是很头疼的一个任务。
后台想了想，偷偷懒：写个匹配函数不就得了~
最后写了下面的函数来验证某个值是否有匹配项。在这里放给大家参考！

函数：

code:

---

<%
Private Function CheckMatchingArray(varValue, aryValue)
    Dim bSwitch, i
    bSwitch = False
    For Each i In aryValue
        If varValue = i Then
            bSwitch = True
            Exit For
        End If
    Next
    CheckMatchingArray = bSwitch
End Function
%>

---

使用中，比如 sName 是一个名称变量，为文本型，可以这样！

code:

---

<%
Dim sName
sName = "Admin"
If CheckMatchingArray(sName, Array("Admin", "Test", "Guest")) Then
    Response.Write("有匹配！")
End If
%>

---

具体的大家自己参考下！使用方法不难，函数的输出为真假型。