就是上次 a d o w u e

asp代码：

<%
dim numarr,str
function p(tmp,str)
if len(str)=1 then
response.write tmp&str&vbcrlf
else
dim arr
if right(str,1)="," then str=left(str,len(str)-1)
arr=split(str,",")
for i=0 to ubound(arr)
p tmp&arr(i),replace(replace(str,Cstr(arr(i))&",",""),","&Cstr(arr(i)),"")
next
end if
end function
p "","a,d,o,w,u,e"

%>

执行结果：

adowue
adoweu
adouwe
adouew
adoewu
adoeuw
adwoue
adwoeu
adwuoe
adwueo
adweou
adweuo
aduowe
aduoew
aduwoe
aduweo
adueow
aduewo
adeowu
adeouw
adewou
adewuo
adeuow
adeuwo
aodwue
aodweu
aoduwe
aoduew
aodewu
aodeuw
aowdue
aowdeu
aowude
aowued
aowedu
aoweud
aoudwe
aoudew