一个排列问题

一个排列问题：

给定集合 {a,b,c}，其全排列为：

abc

acb

bac

bca

cab

cba

如何写一个程序，打印一个给定集合，如：

{'1','2','3','4','5','6','7'}

的全排列？

程序作者：y0h

<%

Dim Max,Str1

Dim sArray

Str1=","

sArray=Split("a,b,c,d,e,f,g,h",",")

Max=Ubound(sArray)

Test Max,Max,Str1

Function Test(Max,x,Str1)

If x>=0 Then

For I=0 to Max

If Instr(Str1,","&sArray(i)&",")=0 Then

Test Max,x-1,Str1&sArray(i)&","

End IF

Next

Else

Response.Write(Str1&"<BR>")

End IF

End Function

%>