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