<%
'原数组
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 %>