asp实现取得数组中的最大值的代码

<%
'******************************
'函数：GetMax(str)
'参数：str，待处理的数字数组，以,分隔多了数字
'作者：阿里西西
'日期：2007/7/12
'描述：取得数组中的最大值
'示例：<%=GetMax("360,120,5,600,32")%>
'******************************
function GetMax(str)
num=split(str,",")
max=num(0)
for ii=0 to ubound(num)
if cint(num(ii))>cint(max) then max=num(ii)
response.write "num="&num(ii)&",max="&max&"<br />"
next
getmax=max
end function
%>