阿西河

所有教程

公众号
🌙
阿西河前端的公众号

我的收藏

    最近访问  (文章)

      教程列表

      抓包专区
      测试专区

      ADO 显示

      ADO 显示

      显示来自记录集中的数据的最常用的方法,就是把数据显示在 HTML 表格中。

      显示字段名称和字段值

      我们有一个名为 “Northwind” 的数据库,并且我们希望显示出 “Customers” 表中的数据(记得以 .asp 为扩展名来保存这个文件):

      <html>
      <body>
      
      <%
      set conn=Server.CreateObject("ADODB.Connection")
      conn.Provider="Microsoft.Jet.OLEDB.4.0"
      conn.Open "c:/webdata/northwind.mdb"
      
      set rs = Server.CreateObject("ADODB.recordset")
      rs.Open "SELECT * FROM Customers", conn
      
      do until rs.EOF
        for each x in rs.Fields
          Response.Write(x.name)
          Response.Write(" = ")
          Response.Write(x.value & "<br>")
        next
        Response.Write("<br>")
        rs.MoveNext
      loop
      
      rs.close
      conn.close
      %>
      
      </body>
      </html>
      

      在一个 HTML 表格中显示字段名称和字段的值

      我们也可以通过下面的代码把表 “Customers” 中的数据显示在一个 HTML 表格中:

      <html>
      <body>
      
      <%
      set conn=Server.CreateObject("ADODB.Connection")
      conn.Provider="Microsoft.Jet.OLEDB.4.0"
      conn.Open "c:/webdata/northwind.mdb"
      
      set rs = Server.CreateObject("ADODB.recordset")
      rs.Open "SELECT Companyname, Contactname FROM Customers", conn
      %>
      
      <table border="1" width="100%">
      <%do until rs.EOF%>
        <tr>
        <%for each x in rs.Fields%>
          <td><%Response.Write(x.value)%></td>
        <%next
        rs.MoveNext%>
        </tr>
      <%loop
      rs.close
      conn.close
      %>
      </table>
      
      </body>
      </html>
      

      向 HTML 表格添加标题

      向 HTML 表格添加标题,以使其可读性更强。 (保持的文件后缀为 .html ):

      <html>
      <body>
      
      <%
      set conn=Server.CreateObject("ADODB.Connection")
      conn.Provider="Microsoft.Jet.OLEDB.4.0"
      conn.Open "c:/webdata/northwind.mdb"
      
      set rs = Server.CreateObject("ADODB.recordset")
      sql="SELECT Companyname, Contactname FROM Customers"
      rs.Open sql, conn
      %>
      
      <table border="1" width="100%">
        <tr>
        <%for each x in rs.Fields
          response.write("<th>" & x.name & "</th>")
        next%>
        </tr>
        <%do until rs.EOF%>
          <tr>
          <%for each x in rs.Fields%>
            <td><%Response.Write(x.value)%></td>
          <%next
          rs.MoveNext%>
          </tr>
        <%loop
        rs.close
        conn.close
        %>
      </table>
      
      </body>
      </html>
      

      向 HTML 表格添加颜色

      
      <html>
      <body>
      
      <%
      set conn=Server.CreateObject("ADODB.Connection")
      conn.Provider="Microsoft.Jet.OLEDB.4.0"
      conn.Open(Server.Mappath("/db/northwind.mdb"))
      set rs = Server.CreateObject("ADODB.recordset")
      sql="SELECT Companyname, Contactname FROM Customers"
      rs.Open sql, conn
      %>
      
      <table border="1" width="100%" bgcolor="#fff5ee">
      <tr>
      <%for each x in rs.Fields
          response.write("<th align='left' bgcolor='#b0c4de'>" & x.name & "</th>")
      next%>
      </tr>
      <%do until rs.EOF%>
          <tr>
          <%for each x in rs.Fields%>
             <td><%Response.Write(x.value)%></td>
          <%next
          rs.MoveNext%>
          </tr>
      <%loop
      rs.close
      conn.close
      %>
      </table>
      
      </body>
      </html>
      
      目录
      目录