<%
暗淡數據
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>"
結束子
%>