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")
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>

​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")
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
%>

W3xueDotComlthtmlW3xueDotComgt W3xueDotComltbodyW3xueDotComgt W3xueDotComlttable border="1" width="100%"W3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtNokia CorporationW3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtOlli-Pekka KallasvuoW3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtGoogle, Inc.W3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtLarry PageW3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtSony Corporation of AmericaW3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtKazuo HiraiW3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtApple Computer, Inc.W3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtSteven JobsW3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtBAIDU, IncW3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtLi YanHongW3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComlttdW3xueDotComgtCanon USA, Inc.W3xueDotComlt/tdW3xueDotComgt W3xueDotComlttdW3xueDotComgtTsuneji UchidaW3xueDotComlt/tdW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlt/tableW3xueDotComgt W3xueDotComlt/bodyW3xueDotComgt W3xueDotComlt/htmlW3xueDotComgt