如何实现，在1-33之间取6个数为一组，6个数从小到大排列，且不能重复，然后把所有可能列表。

<%
Dim a,i,lp
lp = True
a = Array(1,2,3,4,5,6)
Do While lp
print a
If a(5) < 33 Then
a(5) = a(5) + 1
Else
If a(4) < 32 Then
a(4) = a(4) + 1
a(5) = a(4) + 1
Else
If a(3) < 31 Then
a(3) = a(3) + 1
a(4) = a(3) + 1
Else
If a(2) < 30 Then
a(2) = a(2) + 1
a(3) = a(2) + 1
Else
If a(1) < 29 Then
a(1) = a(1) + 1
a(2) = a(1) + 1
Else
If a(0) < 28 Then
a(0) = a(0) + 1
a(1) = a(0) + 1
Else
lp = False
End If
End If
End If
End If
End If
End If
Loop

Sub print(a)
For i = 0 To 5
response.write a(i) & ","
Next
response.write "<br>"
End Sub
%>

输出结果很长，

ASP能吗??应该用vbscript或javascript才行吧!