一个全排列的解法[原创]

死鱼的命题!!
简单写一下!

<%
Function Test(Max,x,Str1)
If x>0 Then
For I=1 to Max
If Instr(Str1,","&i&",")=0 Then
Test Max,x-1,Str1&i&","
End IF
Next
Else
Response.Write(Str1&"
")
End IF
'Response.Write(Str1&"
")
End Function

Max=3
Str1=","
Test Max,Max,Str1
%>