asp数字或字符排序功能代码

复制代码代码如下所示：
分类
功能sort1（元）
昏暗的keepchecking，我，存在性和唯一性，secondvalue
keepchecking =真
直到keepchecking =假
keepchecking = false
我= 0，UBound（元）
如果我= UBound（元）然后退出
如果（i）的话（i + 1）
存在性和唯一性=元（我）
secondvalue =元（i + 1）
（我）= secondvalue元
元（i + 1）=存在性和唯一性
keepchecking =真
最后如果
下一个
环
sort1 =元
端功能

昏暗的ARR
ARR =阵列（
ARR = sort1（ARR）
我= 0，UBound（ARR）
响应。写（ARR（我））
下一个