最新国产好看的视频,伊人天堂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表格添加顏色,以使其更加美觀。

顯示字段名稱(chēng)和字段值

我們有一個(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 表格中顯示字段名稱(chēng)和字段的值

我們也可以通過(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>
忻城县| 虎林市| 永川市| 读书| 秦安县| 增城市| 曲沃县| 宜君县| 尤溪县| 城固县| 浦东新区| 略阳县| 永年县| 嵊泗县| 揭阳市| 武安市| 高安市| 康定县| 军事| 朝阳县| 保靖县| 通江县| 合水县| 凉山| 辉县市| 耒阳市| 乃东县| 马关县| 九龙城区| 介休市| 澎湖县| 麻阳| 且末县| 镇坪县| 赤水市| 祁东县| 修武县| 永丰县| 静安区| 赞皇县| 紫阳县|