在ASP（Active Server Pages）中，可以使用多種方法來查找數組中的元素。以下是一些常用的方法：

1. 使用for循環遍歷數組：

   Dim arr(5)
   arr(0) = "Apple"
   arr(1) = "Banana"
   arr(2) = "Cherry"
   arr(3) = "Date"
   arr(4) = "Elderberry"
   arr(5) = "Fig"
   
   Dim i, foundItem
   foundItem = ""
   For i = 0 To UBound(arr)
       If arr(i) = "Cherry" Then
           foundItem = arr(i)
           Exit For
       End If
   Next
   
   Response.Write("Found item: " & foundItem)
   

2. 使用Array.IndexOf方法（僅適用于.NET Framework 3.5及更高版本）：

   <%@ Import Namespace="System.Linq" %>
   
   Dim arr(5)
   arr(0) = "Apple"
   arr(1) = "Banana"
   arr(2) = "Cherry"
   arr(3) = "Date"
   arr(4) = "Elderberry"
   arr(5) = "Fig"
   
   Dim foundItem = arr.IndexOf("Cherry")
   
   If foundItem >= 0 Then
       Response.Write("Found item: " & arr(foundItem))
   Else
       Response.Write("Item not found")
   End If
   

3. 使用Array.Find方法（僅適用于.NET Framework 3.5及更高版本）：

   <%@ Import Namespace="System.Linq" %>
   
   Dim arr(5)
   arr(0) = "Apple"
   arr(1) = "Banana"
   arr(2) = "Cherry"
   arr(3) = "Date"
   arr(4) = "Elderberry"
   arr(5) = "Fig"
   
   Dim foundItem = arr.Find(Function(x) x = "Cherry")
   
   If foundItem IsNot Nothing Then
       Response.Write("Found item: " & foundItem)
   Else
       Response.Write("Item not found")
   End If
   

4. 使用for…each循環和Array.Contains方法（僅適用于.NET Framework 3.5及更高版本）：

   <%@ Import Namespace="System.Linq" %>
   
   Dim arr(5)
   arr(0) = "Apple"
   arr(1) = "Banana"
   arr(2) = "Cherry"
   arr(3) = "Date"
   arr(4) = "Elderberry"
   arr(5) = "Fig"
   
   Dim foundItem = ""
   For Each item In arr
       If item = "Cherry" Then
           foundItem = item
           Exit For
       End If
   Next
   
   If foundItem <> "" Then
       Response.Write("Found item: " & foundItem)
   Else
       Response.Write("Item not found")
   End If
   

請注意，以上示例中的方法主要適用于.NET Framework 3.5及更高版本。如果您使用的是更早版本的.NET Framework，可能需要使用不同的方法或庫來實現數組查找功能。