数值的最大值和最小值

ASP求一个数组中数字或数值的最大值和最小值，自定义函数如下：
<%
function max(x)
dim arr,i
arr=split(x,",") '拆分数组
max=cdbl(arr(0)) 'cdbl函数：转换为双精度浮点型
for i=1 to ubound(arr)
if cdbl(arr(i))>max then max=cdbl(arr(i))
next 
end function 
function min(x)
dim arr,i
arr=split(x,",")
min=cdbl(arr(0))
for i=1 to ubound(arr)
if cdbl(arr(i))<min then min=cdbl(arr(i))
next
end function
'调用方式
dim arr : arr="15,2,433,10000,8888"
response.Write("<p>数组为：" & arr & "</p>")
response.Write("<p>数组中的最大值为：" & max(arr) & "</p>")
response.Write("<p>数组中的最小值为：" & min(arr) & "</p>")
%>