把123456789写成一个四位数乘以一个个位数等于一个四位数,不重复

1738 * 4 = 6952
1963 * 4 = 7852
俺用ASP算出来了，方法有点笨，不知道有没有简单点的算法。
<%
for i=1 to 9 '乘数
all="123456789"
all0=replace(all,i,"")
j=""
for k=1 to 8
a1=mid(all0,k,1) '被乘数第一位
all1=replace(all0,a1,"") '3456789
for l=1 to 7
a2=mid(all1,l,1) '被乘数第二位
all2=replace(all1,a2,"") '456789
for m=1 to 6
a3=mid(all2,m,1) '被乘数第三位
all3=replace(all2,a3,"") '56789
for n=1 to 5
a4=mid(all3,n,1) '被乘数第四位
j=a1&a2&a3&a4
all4=replace(all3,a4,"") '6789
for x=1 to 4
c1=mid(all4,x,1) '积第一位
all5=replace(all4,c1,"") '789
for y=1 to 3
c2=mid(all5,y,1) '积第二位
all6=replace(all5,c2,"") '89
for z=1 to 2
c3=mid(all6,z,1) '积第三位
c4=replace(all6,c3,"") '积第四位
c=c1&c2&c3&c4
if j * i - c = 0