ADO 教程
ADO 顯示
顯示來(lái)自記錄集中的數(shù)據(jù)的最常用的方法，就是把數(shù)據(jù)顯示在 HTML 表格中。
顯示字段名稱和字段值
我們有一個(gè)名為 "Northwind" 的數(shù)據(jù)庫(kù)，并且我們希望顯示出 "Customers" 表中的數(shù)據(jù)（記得以 .asp 為擴(kuò)展名來(lái)保存這個(gè)文件）：
實(shí)例
<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>
<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>
實(shí)例展示 ?
在一個(gè) HTML 表格中顯示字段名稱和字段的值
我們也可以通過(guò)下面的代碼把表 "Customers" 中的數(shù)據(jù)顯示在一個(gè) HTML 表格中：
實(shí)例
<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>
<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>
實(shí)例展示 ?
向 HTML 表格添加標(biāo)題
向HTML表格添加標(biāo)題，以使其可讀性更強(qiáng)。 (保持的文件后綴為 .html ):
實(shí)例
<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>
<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>
實(shí)例展示 ?
更多實(shí)例
向 HTML 表格添加顏色
如何向HTML表格添加顏色，以使其更加美觀。