学步园

<%

OutputJoin "", 1


'递归输出3个数字结合
Sub OutputJoin(s, count) 
    If count > 3 Then
        Exit Sub
    End If

    Dim i, t
    For i = 1 To 9
        t = s '将值保存
        
        s = s & i
        If count = 3 Then
            Response.Write s & "<br>"
        End If
        OutputJoin s, count+1

        s = t '还原值
    Next
End Sub

%>