案例: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 Companyname, Contactname FROM Customers", conn
10
str=rs.GetString(,,"</td><td>","</td></tr><tr><td>"," ")
11
%>
12
13
<table border="1" width="100%">
14
   <tr>
15
     <td><%Response.Write(str)%></td>
16
   </tr>
17
</table>
18
19
<%
20
rs.close
21
conn.close
22
set rs = Nothing
23
set conn = Nothing
24
%>
25
26
</body>
27
</html>