Прерывание выполнения ф-ции или процедуры

[Fokin Max]

Доброе утро,

К сожелению не могу сам решить следующую проблемму:

Предусловие
есть скрипт на VBScript который вызывает sub(ы) и function(ы) из этого же скрипта. Эти ф-ции или процедуры состоят из 10-20 строчек кода.
В середине ф-ции или процедуры стоит проверка условия

Вопрос
Как сделать так что бы если условие не выполняется
то вызывалась-бы моя ф-ция FAIL и выполнение
передавалось бы в вызывающий скрипт.
То есть что бы ф-ция или процедура если вызвался FAIL дальше не выполнялись, а продолжил бы выполняться мой скрипт

[Vinechka]

Exit function, Exit sub.

[Fokin Max]

Уважаемый Vinechka
к моему глубочайшему сожелению я забыл написать
ЧТО КАК РАЗ EXIT SUB нельзя использовать
то есть что бы было так


sub max11
A= 34
B = -47
------------------------------
if A = B Then
FAIL "test error"
endif
A= B+A
B= A*2
end sub

то есть что бы инструкции A= B+A и B= A*2 не выполнялись
в случае если вызывается FAIL

[Vinechka]

А так нельзя?

Код: Выделить всё

sub max11
A= 34
B = -47
if A = B Then
FAIL "test error"
Exit sub
endif
A= B+A
B= A*2
end sub


Или вот так?

Код: Выделить всё

sub max11
A= 34
B = -47
if A = B Then
FAIL "test error"
else
A= B+A
B= A*2
end if
end sub


[Fokin Max]

Уважаемый Vinechka

Вопрос в том "Как прервать выполнение sub, не использую exit sub"
то есть

sub ms11
dim a
dim b

Первая куча операций

if a=b then
FAIL
else (или elseif)
a=b (Или что то подобное)
endiif

Вторая куча операций

end sub


Как сделать так что бы вторая куча операций НЕ ВЫПОЛНЯЛАСЬ
и при этом не использовать exit sub

[Konst_One]

goto exit_label

[Fokin Max]

Уважаемый Konst_One

Как прервать выполнение sub, не используя exit sub, не используя return, не используя вообще никаких дополнительных команд или инструкций
Можно дополнять и модифицировать тело ф-ции FAIL

[Konst_One]

не используя вообще никаких дополнительных команд или инструкций

Ты сам то понял, что написал? Кто окромя программиста этой функции может знать, что нужно из нее выйти

[Konst_One]

Response.End внутрь функции FAIL() засунь, но я думаю, что твою проблему кроме тебя никто не решит.

[smaharbA]

Konst_One - а давно в VBScript добавлена конструкция goto ?
Fokin Max - не мудри exit sub самое то тебе