عرض ADO
الطريقة الأكثر شيوعًا لعرض البيانات من مجموعة سجلات هي عرض البيانات في جدول HTML.
اعرض أسماء الحقول وقيم الحقول
لدينا قاعدة بيانات باسم "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>
اعرض أسماء الحقول وقيم الحقول في جدول HTML
يمكننا أيضًا عرض البيانات من جدول "العملاء" داخل جدول HTML مع الأسطر التالية (تذكر حفظ الملف بامتداد .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>
أضف الرؤوس إلى جدول HTML
نريد إضافة رؤوس إلى جدول HTML لجعله أكثر قابلية للقراءة (تذكر حفظ الملف بملحق .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>
مزيد من الأمثلة
كيفية إضافة ألوان إلى جدول HTML لجعلها تبدو جميلة.