mysql - ASP : Either EOF or BOF is True, 但我有记录并且它们正在显示

Question

我有一个包含大约 40 条记录的数据库，我试图以 3 列的表格方式显示它们，但扩展到记录的范围。

显示所有记录，但当它到达记录列表的最后时，我得到看起来像另一个带有消息的单元格:

ADODB.Field error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /products/index1.asp, line 668

在，我将在下面发布代码，任何人都可以帮忙，我已经在网上搜索过但找不到任何东西。这是我能找到的在 3 宽表中显示记录的唯一方法，如果有更好的方法，甚至使用 CSS，我将不胜感激。

<table border="0">
<tr><td class="product_title">Our Products</td></tr>
<tr><td colspan="5" height="7"></td></tr>
  <% While ((Repeat1__numRows <> 3) AND (NOT products_page.EOF)) %>
    <tr>

      <td align="center" valign="middle">
          <div class="thumbgrey" align="center">
              <a href="/products/<%=(products_page.Fields.Item("" & lang & "_URL").Value)%>" title="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>">
                <img src="/images/product_page/<%=(products_page.Fields.Item("" & lang & "_image").Value)%>" alt="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>" width="230" height="97" border="0" />
              </a>
          </div>
      </td>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  products_page.MoveNext()

%>

<td align="center" valign="middle">
          <div class="thumbgrey" align="center">
              <a href="/products/<%=(products_page.Fields.Item("" & lang & "_URL").Value)%>" title="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>">
                <img src="/images/product_page/<%=(products_page.Fields.Item("" & lang & "_image").Value)%>" alt="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>" width="230" height="97" border="0" />
              </a>
          </div>
      </td>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  products_page.MoveNext()

%>

<td align="center" valign="middle">
          <div class="thumbgrey" align="center">
              <a href="/products/<%=(products_page.Fields.Item("" & lang & "_URL").Value)%>" title="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>">
                <img src="/images/product_page/<%=(products_page.Fields.Item("" & lang & "_image").Value)%>" alt="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>" width="230" height="97" border="0" />
              </a>
          </div>
      </td>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  products_page.MoveNext()
  Wend
%>
    </tr>

</table>

Answer 1

您好，您应该将其添加到一个循环中，该循环在每第三个条目后创建一个新行，这样您就不会重写相同的代码 3 次，并且在更新代码时会节省工作量。

<table border="0">
    <tr><td class="product_title">Our Products</td></tr>
    <tr><td colspan="3" height="7"></td></tr>
    <tr>
        <% 
        Repeat1__index = 1
        Do While (NOT products_page.EOF) 
            %>
            <td align="center" valign="middle">
                <div class="thumbgrey" align="center">
                    <a href="/products/<%=(products_page.Fields.Item("" & lang & "_URL").Value)%>" title="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>">
                        <img src="/images/product_page/<%=(products_page.Fields.Item("" & lang & "_image").Value)%>" alt="<%=(products_page.Fields.Item("" & lang & "_title").Value)%>" width="230" height="97" border="0" />
                    </a>
                </div>
            </td>
            <% 
            Repeat1__index = Repeat1__index+1
            If Repeat1__index = 4 Then
                Response.Write("</tr><tr>")
                Repeat1__index = 1
            End If
            products_page.MoveNext()
        Loop
        If Repeat1__index > 1 Then 
            Response.Write("<td colspan='" & 4-Repeat1__index & "'></td>")
        End If
        %>
    </tr>

</table>

最后一个 if 语句 (If Repeat1__index > 1 Then) 将在需要时整理剩余的列，因此如果返回 4 个条目，它将创建 1 个完整行，每行 3 个，最后一行将只有 1 个条目，因此添加最后一个表格单元格以使该行均匀。

注意。不要忘记关闭 products_page 并将其设置为 Nothing 最后

products_page.Close()
Set products_page = Nothing