Question

我遵循玛莎的建议： if page is default then include if not default then 我错过了一些东西，因为我无法显示滑块。

这是滑块代码，以及我如何使用Martha的建议。

这是滑块（bootstrap carousel）代码（与Martha的建议集成）

<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编译错误＆＃39; 800a0400＆＃39;

预期声明

/afz_includes/jumbotron.asp，第3行

如果我将滑块代码包装在＆＃39;我得到相同的错误，但第4行如果我将滑块代码包装在＆＃34;我得到同样的错误（第3行）我还尝试用＆＃34;包装每一行滑块代码，然后使用＆＃34;类和ids对＆＃39;，但不断出错。

以下是我在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，但同样的错误。

Answer 1

看起来您已将滑块的代码放在ASP代码分隔符（<%和%>）中，因此编译器会尝试将其视为VBScript，这显然不是。

在ASP classic中，您将服务器端VBScript代码放在<% %>块中。 HTML代码不进入这些区块，除非您Response.Write进行此操作。

<%
Sub DisplaySlider()
%>
<div class="jumbotron">
    <div class="container">
        ...
    </div>
</div><!-- .jumbotron -->
<%
End Sub
%>

asp条件包含错误Microsoft VBScript编译错误＆＃39; 800a0400＆＃39;

1 个答案: