classic asp : 배열에 문자열이 존재하는지 여부

Function in_array(element, arr)

    dim nArrCnt

  in_array = False

  For nArrCnt=0 To Ubound(arr)

     If Trim(arr(nArrCnt)) = Trim(element) Then

        in_array = True

        Exit Function      

     End If

  Next

End Function

dim a_day

a_day = "1, 3"

dim arrDay

arrDay = Split(a_day, ",")

if in_array("3", arrDay) then

   response.write "exist"

else

   response.write "not found"

end if