案例: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
9
set rs = Server.CreateObject("ADODB.recordset")
10
rs.Open "SELECT Companyname, Contactname FROM Customers", conn
11
%>
12
13
<table border="1" width="100%">
14
<%do until rs.EOF%>
15
    <tr>
16
    <%for each x in rs.Fields%>
17
       <td><%Response.Write(x.value)%></td>
18
    <%next
19
    rs.MoveNext%>
20
    </tr>
21
<%loop
22
rs.close
23
conn.close
24
%>

 运行结果 
 北美留学生论坛