asp条件包含错误Microsoft VBScript编译错误'800a0400'

Question

我在这里遵循了Martha的建议： 如果页面是默认页面，则包含页面（如果不是默认页面） ，那么我就缺少了一些东西，因为无法显示滑块。

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

这是滑块（引导轮播）代码（与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编译错误'800a0400'

预期声明

/afz_includes/jumbotron.asp，第3行

如果我将滑块代码包装在'中，我会遇到相同的错误，但第4行如果我将滑块代码包装在“我也遇到了相同的错误（第3行）中，我也试图用”来包装滑块代码的每一行，并更改类和id的“到'，但不断出现错误。

这是我放在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 -ing它。

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