asp获取有数据的数组长度

<%
Dim arrway(5)
arrway(0)=1
arrway(1)=2
arrway(2)=3
arrway(3)=4
s=0
for i=0 to ubound(arrway)
if arrway(i)<>"" then
s=s+1
end if
next
%>
<%="实际长度"&s%>
<%="数组长度"&ubound(arrway)%>