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