<SCRIPT LANGUAGE="vbScript">
dim myarray,myarray1,myarray2,i
myarray="免费|活动|优惠|请进|活动|详情|电话"
myarray1=split(myarray,"|")
do while i < ubound(myarray1)
    myarray2=split(myarray,myarray1(i))
    if ubound(myarray2)>1 then
        document.write(myarray1(i)&"有重复<BR>")
    end if
    i=i+1
loop
</SCRIPT>