ошибка условного включения asp Ошибка компиляции Microsoft VBScript '800a0400'

Я последовал предложению Марты здесь: если страница по умолчанию, включите если не по умолчанию, то И мне что-то не хватает, так как я не могу заставить его отображать ползунок.

Вот код слайдера и то, как я использую предложение Martha'e.

Это код слайдера (карусели начальной загрузки) (для интеграции с предложением Марты)

<div class="jumbotron">
    <div class="container">
        <div class="row fz-slider-wrap">
            <div class="col-md-4 fz-slider-caption">
                DFD Fioriere
            </div>
            <div class="col-md-8 fz-slider-image">
                <div id="fz-gallery-slider" class="carousel slide" data-ride="carousel">
                    <!-- Indicators -->
                    <ol class="carousel-indicators">
                    <li data-target="#fz-gallery-slider" data-slide-to="0" class="active"></li>
                    <li data-target="#fz-gallery-slider" data-slide-to="1"></li>
                    <li data-target="#fz-gallery-slider" data-slide-to="2"></li>

                    </ol>
                    <!-- Wrapper for slides -->
                    <div class="carousel-inner">
                        <div class="item active">
                        <img class="fz-img-box" src="images/slider/03.jpg" alt="slider 1" />
                        </div>
                        <div class="item">
                        <img class="fz-img-box" src="images/slider/01.jpg" alt="slider 2" />
                        </div>
                        <div class="item">
                        <img class="fz-img-box" src="images//slider/06.jpg" alt="slider 3" />
                        </div>
                    </div>
                </div>
            </div>
        </div>
    </div>
</div><!-- .jumbotron -->

Вот что происходит: если я помещу приведенный выше код внутрь

<%
Sub DisplaySlider()
slider code
    %>
<%
End Sub
%>

Я получаю эту ошибку при загрузке default.asp

Ошибка компиляции Microsoft VBScript '800a0400'

Ожидаемое заявление

/afz_includes/jumbotron.asp, строка 3

Если я заключу код ползунка в «Я получаю ту же ошибку, но строка 4» Если я заключу код ползунка в «Я получаю ту же ошибку (строка 3), я также попытался обернуть каждую строку кода ползунка с помощью» и изменил «классы и идентификаторы» to ', но продолжайте получать ошибку th.

Вот что я поставил на default.asp и на другие страницы

<!-- #include virtual="/afz_includes/slider.html" -->
<%
scriptname = Request.ServerVariables("Script_Name")
If InStr(scriptname, "default.asp") > 0 Then
    DisplaySlider
Else
    Response.Write "<div class='fz-v-spacer-top'></div>"
End If
%>

Я не уверен, была ли это опечатка, но я все равно пытался сохранить слайдер и как html, и как asp, но та же ошибка.


person keneso    schedule 25.02.2016    source источник
comment
Не могли бы вы подробнее рассказать о коде DisplaySlider? Правильно ли завершено ключевым словом End?   -  person Rubens Farias    schedule 25.02.2016
comment
Похоже, в вашей подпроцедуре отсутствует End Sub.   -  person user692942    schedule 25.02.2016
comment
Спасибо вам обоим. Да, конечный фрагмент есть (‹% End Sub%›). Я просто сконцентрировался там, где должен быть код слайдера в соответствии с моим пониманием предложения Марты. Обновил OP   -  person keneso    schedule 25.02.2016


Ответы (1)


Похоже, вы поместили код ползунка внутри разделителей кода ASP (<% и %>), поэтому компилятор пытается рассматривать его как VBScript, что, очевидно, не так.

В классическом ASP код VBScript на стороне сервера помещается в <% %> блоки. Код HTML не входит в эти блоки, если только вы Response.Write не используете его.

<%
Sub DisplaySlider()
%>
<div class="jumbotron">
    <div class="container">
        ...
    </div>
</div><!-- .jumbotron -->
<%
End Sub
%>
person Martha    schedule 25.02.2016
comment
Спасибо. Да, я подумал, что это не выход, но я попробовал его после того, как использовал его так, как вы предлагаете, в этом случае ползунок не отображается, но разделитель div работает нормально. - person keneso; 26.02.2016