预期声明

Question

您好我正在测试网站上工作，我希望用户能够查看数据库中的条目，用户可以选择是否需要来自客户，地址或订单的数据。 当我打开它时，ist在wend第82行说明预期声明。

这是我的代码：

     <form action="DB_HTML_Styled.asp" method="get">
  <%
  response.flush
%>
<table border = "1" width = "500" heigth = "500" align = "Center">
  <tr>
        <td align = "left" width =  "100">
          <select name = "f_operator" onchange"">
            <option value = "1" <% if l_operator = "1" then response.write("selected") end if %>>Kunde</option>
            <option value = "2" <% if l_operator = "2" then response.write("selected") end if %>>Auftrag</option>
            <option value = "3" <% if l_operator = "3" then response.write("selected") end if %>>Ort</option>
        </td>
  </tr> 
<%  Set l_DBCon = Server.CreateObject("ADODB.Connection")
    l_DBCon.Open "db_amill136_test"
    Dim l_rs
    Set l_rs = Server.CreateObject("ADODB.Recordset")
select case l_operator
case "1"
    l_query = "select * from t_kunde"
case "2"
    l_query = "select * from t_auftrag"
case "3"
    l_query = "select * from t_ort"
case "4"

%>
  <tr><td><%=l_query%></td></td>
  <%
    l_rs.Open l_query, l_dbcon
    while not l_rs.EOF  %>

<%if l_operator =  "1" then %>
  <tr>
    <td>
      <%=l_rs("f_vorname")%>
    </td>
    <td>
      <%=l_rs("f_name")%>
    </td>
    <td>
      <%=l_rs("f_kundennr")%>
    </td>
    <td>
      <%=l_rs("f_ortnr")%>
    </td>
    <%else if l_operator =  "2" then%>
        <td>
      <%=l_rs("f_auftragsnr")%>
    </td>
    <td>
      <%=l_rs("f_menge")%>
    </td>
    <td>
      <%=l_rs("f_rabatsatz")%>
    </td>
    <td>
      <%=l_rs("f_datum")%>
    </td>
    <td>
      <%=l_rs("f_kundennr")%>
    </td>
    <%else if l_operator =  "3" then%>
      <%=l_rs("f_ortnr")%>
    </td>
    <td>
      <%=l_rs("f_ort")%>
    </td>
    <td>
      <%=l_rs("f_plz")%>
    </td>
  </tr>
<%end if
        l_rs.MoveNext
      wend

    l_rs.Close
    Set l_rs = Nothing

    l_DBCon.Close
    set l_DBCon = Nothing
%>

  </table>
    </form>

Answer 1

按照目前的情况，你需要三个＆＃34;如果＆＃34;因为你有三个单独的＆＃34; if＆＃34; ＆＃34; while＆＃34;。

中的陈述

而不是使用＆＃34; Else If＆＃34; （有空格）使用＆＃34; ElseIf＆＃34; （没有空格）所以你只需要一个＆＃34;结束如果＆＃34;。

或者，您可能希望通过使用Case来整理那些嵌套的if。