当前位置: 首页 > 网络学院 > 服务端脚本教程 > ADO > ADO显示记录

ADO
ADO DataTypes
ADO 摘要
ADO 实例

No. « 1 2 »

学院文章搜索

关键字

ADO 中的 ADO显示记录

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-03-01   浏览: 880 ::
收藏到网摘: n/a

The most common way to display data from a recordset, is to display the data in an HTML table. 
ADO显示记录中数据的最常用方法：在HTML表格中显示数据。

Examples
案例

Display records
显示记录
How to first create a database connection, then a recordset, and then display the data in HTML.
如果建立数据库连接以及记录集，并在HTML中显示数据。

Display records in an HTML table
在一张HTML表格中显示记录
How to display the data from the database table in an HTML table.
如何在一张HTML表格中显示来自数据库表中的数据。

Add headers to the HTML table
在HTML表格中加入标头[header]
How to add headers to the HTML table to make it more readable.
如何在HTML表格中加入标头[header]信息，使其可读性变得更强。

Add colors to the HTML table
在HTML表格中添加颜色
How to add colors to the HTML table to make it look nice.
如何在HTML表格中添加颜色使其更美观。

Display the Field Names and Field Values
显示字段名和字段值

We have a database named "Northwind" and we want to display the data from the "Customers" table (remember to save the file with an .asp extension):
我们现在已经拥有了一个名为“Northwind”的数据库。我们希望能够显示名为“Customers”表格中的数据信息（记住：使用“.asp”扩展名保存文件）：

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

Here is the result:
输出结果：

CustomerID = ALFKI
CompanyName = Alfreds Futterkiste
ContactName = Maria Anders
ContactTitle = Sales Representative
Address = Obere Str. 57
City = Berlin
PostalCode = 12209
Country = Germany

CustomerID = BERGS
CompanyName = Berglunds snabbköp
ContactName = Christina Berglund
ContactTitle = Order Administrator
Address = Berguvsvägen 8
City = Luleå
PostalCode = S-958 22
Country = Sweden

CustomerID = CENTC
CompanyName = Centro comercial Moctezuma
ContactName = Francisco Chang
ContactTitle = Marketing Manager
Address = Sierras de Granada 9993
City = México D.F.
PostalCode = 05022
Country = Mexico

....
....
....

Display the Field Names and Field Values in an HTML Table
显示一张HTML表格中的字段名和字段值：

We can also display the data from the "Customers" table inside an HTML table with the following lines (remember to save the file with an .asp extension):
我们同样可以通过使用下面的代码在一张HTML表格中显示“Customers”表中的数据信息（记住：使用“.asp”扩展名保存文件）：

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

Here is the result:
输出结果：

Alfreds Futterkiste Maria Anders
Berglunds snabbköp Christina Berglund
Centro comercial Moctezuma Francisco Chang
Ernst Handel Roland Mendel
FISSA Fabrica Inter. Salchichas S.A. Diego Roel
Galería del gastrónomo Eduardo Saavedra
Island Trading Helen Bennett
Königlich Essen Philip Cramer
Laughing Bacchus Wine Cellars Yoshi Tannamuri
Magazzini Alimentari Riuniti Giovanni Rovelli
North/South Simon Crowther
Paris spécialités Marie Bertrand
Rattlesnake Canyon Grocery Paula Wilson
Simons bistro Jytte Petersen
The Big Cheese Liz Nixon
Vaffeljernet Palle Ibsen
Wolski Zajazd Zbyszek Piestrzeniewicz

Add Headers to the HTML Table
向HTML表格中加入标头信息[header]

We want to add headers to the HTML table to make it more readable (remember to save the file with an .asp extension):
我们希望向HTML表中加入标头[header]信息以增强其可读性（记住：使用“.asp”扩展名保存文件）：

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

Here is the result:
输出结果：

Companyname Contactname
Alfreds Futterkiste Maria Anders
Berglunds snabbköp Christina Berglund
Centro comercial Moctezuma Francisco Chang
Ernst Handel Roland Mendel
FISSA Fabrica Inter. Salchichas S.A. Diego Roel
Galería del gastrónomo Eduardo Saavedra
Island Trading Helen Bennett
Königlich Essen Philip Cramer
Laughing Bacchus Wine Cellars Yoshi Tannamuri
Magazzini Alimentari Riuniti Giovanni Rovelli
North/South Simon Crowther
Paris spécialités Marie Bertrand
Rattlesnake Canyon Grocery Paula Wilson
Simons bistro Jytte Petersen
The Big Cheese Liz Nixon
Vaffeljernet Palle Ibsen
Wolski Zajazd Zbyszek Piestrzeniewicz

评论 (1) 1 All

登陆 | 还没注册？