How to obtain the maximum value in an array by ASP-application techniques

How to get the maximum value in an array (provided by the 71PORT_80 port)
The function is to obtain a set of the largest array of values, very practical and fine code, worthy of collection!

Copy Code code as follows:

Snum= "345,231,56,786,1100,356,1200,300,685,111,134,765"

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

Response. Write "Array" &snum& "<br/> Maximum value:" &getmax (Snum)