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

Question

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

这是滑块代码，以及我如何使用 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 行） 我还尝试用 " 包装每一行滑块代码，并将类和 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 经典中，您将服务器端 VBScript 代码放在 <% %> 块中。 HTML 代码不会进入这些块中，除非你 Response.Write-ing 它。

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