最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

ADO 顯示

顯示來(lái)自記錄集中的數(shù)據(jù)的最常用的方法,就是把數(shù)據(jù)顯示在 HTML 表格中。

實(shí)例

顯示記錄
如何首先創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)連接,然后創(chuàng)建一個(gè)記錄集,然后把其中的數(shù)據(jù)顯示在HTML中。
在 HTML 表格中顯示記錄
如何把數(shù)據(jù)表中的數(shù)據(jù)顯示在HTML表格中。
向 HTML 表格添加標(biāo)題
如何向HTML表格添加標(biāo)題,以使其可讀性更強(qiáng)。
向 HTML 表格添加顏色
如何向HTML表格添加顏色,以使其更加美觀。

顯示字段名稱和字段值

我們有一個(gè)名為 "Northwind" 的數(shù)據(jù)庫(kù),并且我們希望顯示出 "Customers" 表中的數(shù)據(jù)(記得以 .asp 為擴(kuò)展名來(lái)保存這個(gè)文件):

<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>

在一個(gè) HTML 表格中顯示字段名稱和字段的值

我們也可以通過(guò)下面的代碼把表 "Customers" 中的數(shù)據(jù)顯示在一個(gè) 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 表格添加標(biāo)題

我們希望為這個(gè) HTML 表格添加標(biāo)題,這樣它就更易讀了:

<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>
宣汉县| 黄骅市| 炎陵县| 大邑县| 连州市| 阿坝| 德钦县| 金坛市| 同仁县| 运城市| 太湖县| 娄底市| 吉首市| 惠州市| 麻城市| 博白县| 广东省| 乐至县| 桑日县| 台东市| 定襄县| 留坝县| 鲁甸县| 古蔺县| 枣庄市| 慈利县| 铁力市| 门源| 旬邑县| 兰州市| 汨罗市| 五原县| 海口市| 上蔡县| 永兴县| 襄汾县| 古蔺县| 东城区| 万年县| 卢湾区| 鹿邑县|