asp数组去重复和数组排序

数组去重复和数组排序

'数组名次
Function Sort(ary,stra)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For i = 0 to UBound(ary)
If i = UBound(ary) Then Exit For
If CDbl(ary(i))<CDbl(ary(i+1)) Then
FirstValue = CDbl(ary(i))
SecondValue = CDbl(ary(i+1))
ary(i) = SecondValue
ary(i+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
sort=0
For j=0 To UBound(ary)
If CDbl(ary(j))=CDbl(stra) Then 
Sort=j+1
End If 
Next 
End Function

将字符串数组去掉重复项

Function clearrepeat(arrstr)
For k=0 To UBound(arrstr)
If k=0 Then 
arr=arrstr(k)
Else
arr=arr&","&arrstr(k)
End If 
Next 
Dim tmp,tmp2,i,j 
tmp3="" 
tmp=Split(arr,",") 
For i=0 To Ubound(tmp)-1 
For j=i+1 To Ubound(tmp) 
If UCase(Trim(tmp(i)))=UCase(Trim(tmp(j))) Then 
tmp(j)="" 
End If 
Next 
Next 
tmp2="" 
For i=0 To Ubound(tmp) 
If tmp(i)<>"" Then tmp2=tmp2&tmp(i)&"," 
Next 
clearrepeat=Split(Left(tmp2,Len(tmp2)-1),",")
End Function

Function arrSort(ary,stra)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For i = 0 to UBound(ary)
If i = UBound(ary) Then Exit For
If CDbl(ary(i))<CDbl(ary(i+1)) Then
FirstValue = ary(i)
SecondValue = ary(i+1)
ary(i) = SecondValue
ary(i+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
arrsort=ary
End Function