a(0)=1
a(1)=1
a(2)=2
a(3)=2
a(4)=3
for n=0 to ubound(a)-1
for s=1 to ubound(a)
if a(s)=a(n) then
a(n)=""
end if
next
next
a_new=filter(a,"")‘把a数组里面是空值的全部删掉,然后重新组合成一个a_new数组。
for n=0 to ubound(a_new)’打印出a_new数组。
response.write a_new(n)&"<br>"
next
说明:a_new是新生成的数组,去掉了a数组里面被清空的那些,重新生成了一个开头角标是0的a_new数组。
for i=0 to ubound(tagarry)for j=0 to ubound(tagarry)
if tagarry(i)=tagarry(j) then
'重复
'lz自己处理
'需判断i是否等于j
'i=j的不处理
'i <>j的将该数组的值记录下来:)
end if
next
next
其它的lz自己想.
你的数据表有没有设置无重复的主键字段呢(比如ID)?如果有就好办:rs.open "select * from 表名 where id in (select min(id) from 表名 group by 有重复的字段名)",conn,1,1
如果没有这样的字段,也可以用其他在所有记录都无重复(或者说具有唯一性)的字段来代替,如果连这也没有就麻烦一些了,需要分多步来筛选了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)