VB(ASP,VBScript) 获取数组长度函数

来源:互联网 发布:白金数据电影解读 编辑:程序博客网 时间:2024/05/22 13:54
'获取数组长度
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 
原创粉丝点击