IDC资讯中心
<%
company: sabra inc
author: dave hoffenberg
function: finds a value within a delimited list
freeware
function listfind(value,list,delim)
if list <> "" then
arr = split(list,delim)
for i=0 to ubound(arr)
if arr(i) = value then
match = 1
exit for
else
match = 0
end if
next
listfind = match
else
listfind = 0
end if
end function
strlist = "1,2,3"
response.write listfind("1",strlist,",")
response.write "<br>"
strlist = "a-b-c"
response.write listfind("a",strlist,"-")
%>
