asp递归方法对字符串进行全排列问题，请高手指点

帮忙看一下这个代码，目的是将字符串中的各字符进行全排列，排列的结果要求没有重复的字符，可是总得不到想要的结果，我估计着应该是在递归那块出错，请高手指点。
<%
'将一个字符串进行拆分
Function ToStrs(Bnum)
  Dim searchkey()
  key=Trim(Bnum)
  keyLen=len(key) 
  redim searchkey(keyLen)  
  for i=0 to keyLen-1 
  searchkey(i)=mid(key,i+1,1)
  tempstr = tempstr & "|" & searchkey(i)
  next

  ToStrs = tempstr
End Function 

'用递归方法进行排列
Function PaiL(list,k,m)
   
  If (k=m) Then 
  str ="%"

  Else 
  For i=k To m 
If list(k)<>list(i) Then 
Call snawp(list(k),list(i))  
str = str & "%" & ForStr(list)  
str = str & PaiL(list,k+1,m)
Call snawp(list(k),list(i))
End If 

Next 
  End If 
  PaiL = str
End Function 

Function snawp(firstM,secondJ)
Dim thirdI
thirdI=firstM
firstM=secondJ

secondJ=thirdI
End Function 

'将字符数组变成字符串
Function ForStr(list) 
 For i=1 To UBound(list)  
  str1=str1 & list(i)
 Next 
 ForStr=str1
End Function  

'主排列程序
Function PLDeal(Bnum)
  list1 = ToStrs(Bnum)
  listT = Split(list1,"|")
  strL = Bnum & PaiL(listT,1,UBound(listT))
  PLDeal = strL
End Function 

%>

使用dictionary，然后再倒出来。