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

我在这里遵循了玛莎的建议： 我遗漏了一些东西，因为我无法让它显示滑块

下面是滑动代码，以及我如何使用Martha'e建议

这是滑块（引导转盘）代码（将与Martha的建议集成）

DFD菲奥里尔酒店

情况就是这样： 如果我把上面的代码放进去

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

加载default.asp时出现此错误

Microsoft VBScript编译错误“800a0400”

预期报表

/afz_包括/jumbotron.asp，第3行

如果我将滑块代码换行，我会得到相同的错误，但第4行 如果我将滑块代码换行为“I get same error”（第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
%>

0那么
显示滑块
其他的
响应。写入“”
如果结束
%>

---

我不确定这是否是一个输入错误，无论如何，我试图将滑块同时保存为html和asp，但出现了相同的错误。

看起来您已经将滑块的代码放在asp代码分隔符（the

）中，因此编译器试图将其视为VBScript，而事实显然并非如此

在ASP classic中，您将服务器端VBScript代码放入

块中。HTML代码不会进入这些块中，除非您是

响应。编写
-ing它

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


...
能否详细说明
显示滑块
代码？是否使用
结束
关键字正确完成？看起来您的子过程缺少
结束子
。谢谢。是的，结束剪报在那里（）根据我对Martha建议的理解，我只是将注意力集中在滑块代码应该在哪里。更新了OPS谢谢。是的，我认为这不是正确的方法，但我在按照您建议的方式使用它后尝试了它，在这种情况下，滑块不会显示，但间隔div工作正常。
<%
Sub DisplaySlider()
%>
<div class="jumbotron">
    <div class="container">
        ...
    </div>
</div><!-- .jumbotron -->
<%
End Sub
%>