ASP/ADO/VBScript案例 - W3xue在线HTML/CSS/JS运行工具

<html>
<body>

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers WHERE CompanyName>'E'"
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>

​x
 
<html>
<body>
​
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers WHERE CompanyName>'E'"
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%>

W3xueDotComlthtmlW3xueDotComgt W3xueDotComltbodyW3xueDotComgt W3xueDotComlttable border="1" width="100%"W3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComltthW3xueDotComgtCompanynameW3xueDotComlt/thW3xueDotComgtW3xueDotComltthW3xueDotComgtContactnameW3xueDotComlt/thW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtNokia Corporation W3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtOlli-Pekka Kallasvuo W3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtGoogle, Inc. W3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtLarry Page W3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtSony Corporation of America W3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtKazuo Hirai W3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlt/tableW3xueDotComgt W3xueDotComlt/bodyW3xueDotComgt W3xueDotComlt/htmlW3xueDotComgt