案例: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
sql="SELECT Companyname, Contactname FROM Customers WHERE CompanyName>'E'"
10
rs.Open sql, conn
11
%>
12
13
<table border="1" width="100%">
14
<tr>
15
<%for each x in rs.Fields
16
    response.write("<th>" & x.name & "</th>")
17
next%>
18
</tr>
19
<%do until rs.EOF%>
20
    <tr>
21
    <%for each x in rs.Fields%>
22
       <td><%Response.Write(x.value)%> </td>
23
    <%next
24
    rs.MoveNext%>

 运行结果 
 北美留学生论坛