ADO Ekranı
Bir kayıt kümesindeki verileri görüntülemenin en yaygın yolu, verileri bir HTML tablosunda görüntülemektir.
Alan Adlarını ve Alan Değerlerini Görüntüle
"Northwind" adında bir veritabanımız var ve "Müşteriler" tablosundaki verileri görüntülemek istiyoruz (dosyayı bir .asp uzantısıyla kaydetmeyi unutmayın):
Örnek
<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>
Bir HTML Tablosunda Alan Adlarını ve Alan Değerlerini Görüntüleme
Ayrıca "Müşteriler" tablosundaki verileri aşağıdaki satırlarla bir HTML tablosu içinde görüntüleyebiliriz (dosyayı bir .asp uzantısıyla kaydetmeyi unutmayın):
Örnek
<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 Tablosuna Başlık Ekle
HTML tablosunu daha okunabilir kılmak için başlıklar eklemek istiyoruz (dosyayı bir .asp uzantısıyla kaydetmeyi unutmayın):
Örnek
<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>
Daha fazla örnek
renkler ekleyin Güzel görünmesi için HTML tablosuna renkler nasıl eklenir.