'去除不显示的内容
a_id="1,2,3"
if trim(u_id)<>"" then
Dim MyArray_cj,i_cj
MyArray_cj=trim(u_id)
<br">

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

80酷酷网    80kuku.com

  <%
'原数组
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"
"
Response.Write(trim(MyArray_cj(i_cj)))
end if


Next
end if %>











分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: