日期:2010-04-24  浏览次数:20963 次

  本站原创内容,转载请注明出处网页教学网

  从数据表中读出数据通常是显示在 HTML 的表格中的。下面介绍四种常用的显示数据的方法:

  首先给大家介绍一点有关数据库表Customers的内容,数据库表中有如下字段:CustomerID(客户号)、 CompanyName(公司名) 、ContactName(联系人)、ContactTitle(联系方式)、Address(地址)、City(城市)、 PostalCode(邮编) 、Country(国家)

  并且我们可以事先随便输入一些值,使用下面代码时要注意数据库的路径。

  1.显示字段名和字段值:

  <html>

  <body>

  <%

  set conn=Server.CreateObject("ADODB.Connection")

  conn.Provider="Microsoft.Jet.OLEDB.4.0"

  conn.Open "e:/webjx/webjx.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>

  2.把结果显示到表格中:

  <html>

  <body>

  <%

  set conn=Server.CreateObject("ADODB.Connection")

  conn.Provider="Microsoft.Jet.OLEDB.4.0"

  conn.Open "e:/webjx/webjx.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>

  <body>

  <%

  set conn=Server.CreateObject("ADODB.Connection")

  conn.Provider="Microsoft.Jet.OLEDB.4.0"

  conn.Open "e:/webjx/webjx.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>

  4.给表格加点背景的显示方法:

  <html>

  <body>

  <%

  set conn=Server.CreateObject("ADODB.Connection")

  conn.Provider="Microsoft.Jet.OLEDB.4.0"

  conn.Open(Server.Mappath("e:/webjx/webjx.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>

  你可以试试上面的方法,因为本站没提供使用的是PHP主机所以没法测试了。