如何得到数组中重复值的所在位置
比如
sTrArr = "1,2,4,6,1,1,4"

我想知道 重复数 1 所在位置  0 4 5 
4所在位置 2 6



------解决方案--------------------
遍历一次就出来了吧
------解决方案--------------------

<%

Dim sTrArr,arr,i,l,temp,str

sTrArr="1,2,4,6,1,1,4"

temp=","

arr = Split(sTrArr,",")

For i=0 To UBound(arr)

	str = arr(i)

	If InStr(temp,","&str&",")=0 Then

		If UBound(Split(","&sTrArr&",",","&str&","))>1 Then

			Response.write "重复"&str&"的位置："

			For l=0 To UBound(arr)

				If str=arr(l) Then Response.write l&","

			Next

			Response.write "<br/>"

		End If

		temp = temp&str&","

	End If

Next

%>

有待改进，先实现功能先。