倒叙循环。拿取第0个。遍历1后面的进行匹配，最大的放在数组最后。用交换位置的形式

第一个循环获取第0个值和0的这个位置和后面进行循环匹配

进行对比从1开始到最大数组总数

判断第1个数组 是否大于第0个数组 真的情况重新定义第0个数组。也就是让0数组是这组数据中最大的ascii

第一组匹配完毕。得到了arry这组数据中最大的 ks 也就是 minx 也就是说这组数据中 最大的ascii的位置

然后判断 现在这个数据是不是在最后。如果不在。把他放置最后。

最大的临时存放下，把当前最后一位的替换到最大的位置也就是交换下位置也就是 arry的最后一组数据。改变成上面循环的最大一组数据

位置替换下。用临时变量粗存下就行 交换完毕。之后进行第二次循环

也就是 取 第0个 和后面进行匹配。最大往后放。依此类推。

Function toAsciiStr(arry)
	dim zongshu,temp
	zongshu=ubound(arry)
	For k=zongshu to 0 step-1
			min=arry(0)
			minx=0
		for ks=1 to k
			if arry(ks)>min then 
				min=arry(ks)
				minx=ks
			end if
		next
		if minx <> k then
			temp=arry(minx)
			arry(minx)=arry(k)'
			arry(k)=temp
		end if
	next
	toAsciiStr=arry
End Function
'调用方式
sing=array("b=2","c=3","a=1","d=4","aa=2")
a=toAsciiStr()
response.Write(join(a,"&"))