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
%>