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

我遵循玛莎的建议在这里： if page is default then include if not default then 而我错过了一些东西，因为我无法让它显示滑块。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行）我也尝试用“，并chnaged”的类和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和，但同样的错误。

来源

2016-02-25 keneso

您可否详细说明'DisplaySlider'代码？它是否正确地使用'End'关键字完成？ –

看起来你的子程序缺少'End Sub'。 – Lankymart

谢谢你们两位。是的，最后的剪辑是在那里（<％ End Sub ％>）我只是集中在滑块代码应该是根据我对马莎的建议的理解。更新了OP – keneso

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

在ASP经典中，您将服务器端VBScript代码放入<% %>块中。 HTML代码确实是而不是进入这些块，除非你是Response.Write -ing它。

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

来源

2016-02-25 18:23:09 Martha

谢谢。是的，我认为这不是要走的路，但我按照你所建议的方式使用它之后尝试过，在这种情况下，滑块不显示，但隔离区工作正常。 – keneso

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

回答

相关问题