案例:ASP/ADO/VBScript案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
<html>
2
<body>
3
4
<%
5
set conn=Server.CreateObject("ADODB.Connection")
6
conn.Provider="Microsoft.Jet.OLEDB.4.0"
7
conn.Open(Server.Mappath("/db/northwind.mdb"))
8
set rs = Server.CreateObject("ADODB.recordset")
9
rs.Open "Select * from Customers", conn
10
11
do until rs.EOF
12
    for each x in rs.Fields
13
       Response.Write(x.name)
14
       Response.Write(" = ")
15
       Response.Write(x.value & "<br />") 
16
    next
17
    Response.Write("<br />")
18
    rs.MoveNext
19
loop
20
21
rs.close
22
conn.close
23
%>
24
25
</body>
26
</html>