Asp classic 检索ADO记录集字段名（经典ASP）

我想知道是否有人能帮忙：

长话短说，我正在使用MSSQL2005构建一个数据透视表。正在检查的数据受日期范围的限制（从最近的星期一开始到选定日期的1周内的所有数据）

当我运行存储过程并向其传递日期时，我会返回正确的表，例如：

时间 2009年1月1日 2009年1月2日 2009年1月3日 … 09:00 0 9 25 ... 09:30 8. 27 65 ... 10:00 20 44 112 ...

---

给定ado记录集，您可以大致执行以下操作（这是在psuedo代码中）：

---

这将为您提供字段的名称，请检查此字段

像这样的事情应该可以做到：-

 <table>
   <thead>
      <tr>
         <%For Each fld in rst.Fields%>
           <th><span><%=Server.HTMLEncode(fld.Name)%></span></th>
         <%Next %>
      </tr>
   </thead>
   <tbody>
 <%
   Do Until rst.EOF
      OutputRow rst.Fields
      rst.MoveNext
   Loop
 %>
   </tbody>
 </table>

 Sub OutputRow(fields)
 %>
      <tr>
         <%For Each fld in fields%>
           <td><span><%=Server.HTMLEncode(fld.Name)%></span></td>
         <%Next %>
      </tr>
 <%
 End Sub
 %>

子输出流（字段）
%>

这非常简单-使用.Name属性。不用说，它工作得很好。谢谢。考虑到

.Name

没有文档记录（例如），我不会太尴尬。@iconoclast这里有文档记录，您查看的是记录集而不是字段。我将此用于代码，但列标题显示在每一行上？@BenHamilton晚了一点，但将子项编辑为HTMLEncode fld.Value而不是fld.Name

 <table>
   <thead>
      <tr>
         <%For Each fld in rst.Fields%>
           <th><span><%=Server.HTMLEncode(fld.Name)%></span></th>
         <%Next %>
      </tr>
   </thead>
   <tbody>
 <%
   Do Until rst.EOF
      OutputRow rst.Fields
      rst.MoveNext
   Loop
 %>
   </tbody>
 </table>

 Sub OutputRow(fields)
 %>
      <tr>
         <%For Each fld in fields%>
           <td><span><%=Server.HTMLEncode(fld.Name)%></span></td>
         <%Next %>
      </tr>
 <%
 End Sub
 %>