'获取数组长度
Function ArrayLength(ByVal Arr)
On Error Resume Next
ArrayLength = UBound(Arr) - LBound(Arr)
If Err.Number > 0 Then
Err.Clear
ArrayLength = ArrayLength Xor ArrayLength
Response.Write Err.Number
End If
End Function
Function ArrayLength(ByVal Arr)
On Error Resume Next
ArrayLength = UBound(Arr) - LBound(Arr)
If Err.Number > 0 Then
Err.Clear
ArrayLength = ArrayLength Xor ArrayLength
Response.Write Err.Number
End If
End Function