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'

回答

相關問題