<%
暗淡数据
aData = Array(3,2,4,1,6,0)
调用 ResponseArray(aData, "原来顺序")
调用 ResponseArray(SelectSort(aData), "选择排序")
调用 ResponseArray(QuickSort(aData), "快速排序")
调用 ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")
'选择排序
函数 SelectSort(a_Data)
调暗 i、j、k
暗淡界限，t
bound = UBound(a_Data)
对于 i = 0 到bound-1
k = 我
对于 j = i+1 为界
如果 a_Data(k) > a_Data(j) 那么
k = j
结束如果
下一个
t = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = t
下一个
选择排序 = a_Data
结束功能
'快速排序
函数快速排序（a_Data）
调暗我，j
暗淡界限，t
bound = UBound(a_Data)
对于 i = 0 到bound-1
对于 j = i+1 为界
如果 a_Data(i) > a_Data(j) 那么
t = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(j) = t
结束如果
下一个
下一个
快速排序 = a_Data
结束功能
'冒泡排序
函数冒泡排序(a_Data)
昏暗的界限
边界 = UBound(a_Data)
昏暗 b 排序，i，t
b 已排序 = False
当绑定 > 0 且 bSorted = False 时执行
b 已排序 = True
对于 i = 0 到bound-1
如果 a_Data(i) > a_Data(i+1) 那么
t = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
b 已排序 = False
结束如果
下一个
界限 = 界限 - 1
环形
冒泡排序 = a_Data
结束功能
' 插入排序
函数插入排序（a_Data）
昏暗的界限
边界 = UBound(a_Data)
调暗 i, j, t
对于 i = 1 约束
t = a_Data(i)
j = 我
当 t<a_Data(j-1) 且 j>0 时执行
a_Data(j) = a_Data(j-1)
j = j - 1
环形
a_Data(j) = t
下一个
插入排序 = a_Data
结束功能
'输出数据库
子响应数组（a_Data，str）
尺寸
s =“”
Response.Write "<b>" & str & "：</b>"
对于 i = 0 至 UBound(a_Data)
s = s & a_Data(i) & ","
下一个
s = 左(s, Len(s)-1)
响应.写入
响应.Write "<hr>"
结束子
%>