请问高手，如何检查两个一维数组中的所有元素是否有相同的

用循环的方式元素遍历。

<%
'检查数组元素是否存在相同
Function IsHavaArray(TstAry())
   Dim TstVar,i,j
   TstVar=False
   For i=0 To UBound(TstAry)
       For j=0 To UBound(TstAry)
           IF i<>j Then
              IF TstAry(i)=TstAry(j) Then
                 TstVar=True  
              End IF
           End IF
       Next
   Next
   IsHavaArray=TstVar
End Function
Dim tAry(5)
tAry(0)="anc"
tAry(1)="sas"
tAry(2)="dasd"
tAry(3)="sas"
tAry(4)="ansc"
tAry(5)="aadsa"
IF IsHavaArray(tAry)=True Then  
   Response.Write "存在相同"
Else
   Response.Write "不存在相同"
End IF
%>
嵌套循环即可搞定。

两个
for in 循环搞定

<script language=VBScript>
Function ishavelike(arr1(),arr2())

dim i,j
for i=0 to UBound(arr1)
   for j=0 to UBound(arr2)
     if arr1(i)=arr2(j) then
        ishavelike=true
     end if
   next
next

end Function

</script>

考虑效率，如果两个数组都很大的话，先做两次O(nlogn)的排序再进行O(2n)的比较。