Dữ liệu hiển thị ADO
Một cách phổ biến để hiển thị dữ liệu từ tập bản ghi là hiển thị dữ liệu trong bảng HTML.
Hiển thị tên trường và giá trị trường
Chúng tôi có cơ sở dữ liệu có tên "Northwind" và chúng tôi muốn hiển thị dữ liệu từ bảng "Khách hàng" (hãy nhớ lưu tệp có phần mở rộng .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>
Hiển thị dữ liệu trong bảng HTML
Chúng tôi cũng có thể hiển thị dữ liệu từ bảng "Khách hàng" bên trong bảng HTML với các dòng sau (hãy nhớ lưu tệp có phần mở rộng .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>
Thêm tiêu đề vào bảng HTML
Chúng tôi muốn thêm các tiêu đề vào bảng HTML để dễ đọc hơn (hãy nhớ lưu tệp có phần mở rộng .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>
Thêm màu vào bảng HTML
Chúng tôi muốn thêm màu sắc vào bảng HTML để nó trông đẹp mắt (hãy nhớ lưu tệp có phần mở rộng .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"
style="width:100%;background-color:#fff5ee;">
<tr>
<%for each x in rs.Fields
response.write("<th
style='text-align:left;background-color:#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>