ASP数组排除重复内容的函数

作者:网络 来源:佚名 更新时间:2009-02-24 19:06:47 点击:

<%
'原数组
u_id="0,1,2,3,4,5"
'去除不显示的内容
a_id="1,2,3"
if trim(u_id)<>"" then
dim myarray_cj,i_cj
myarray_cj=trim(u_id)

myarray_cj=split(myarray_cj,",")

'myarray = array(myarray)
for i_cj = 0 to ubound(myarray_cj)
b=0
a=split(a_id,",")
for ii=0 to ubound(a)
if trim(myarray_cj(i_cj))=a(ii) then
b=1
end if
next
if not b=1 then
response.write"<br>"
response.write(trim(myarray_cj(i_cj)))
end if


next
end if %>