菜鳥學ADO執行個體教程之ADO 顯示資料

來源:互聯網
上載者:User
ado|教程|資料|顯示

  本站原創內容,轉載請註明出處網頁教學網

  從資料表中讀出資料通常是顯示在 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主機所以沒法測試了。



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。