所属类别：Asp

文章作者：佚名

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

<%' Company: Sabra Inc' Author: Dave Hoffenberg' Function: Finds a value within a delimited list' FreewareFunction ListFind(value,list,delim)If list <> "" Thenarr = split(list,delim)For i=0 to ubound(arr)If arr(i) = value ThenMatch = 1Exit ForElseMatch = 0End IfNextListFind = MatchElseListFind = 0End IfEnd FunctionstrList = "1,2,3"response.write ListFind("1",strList,",")response.write ""strList = "a-b-c"response.write ListFind("a",strList,"-")%>关闭本页

....