& lt; ! PUBLIC DOCTYPE HTML "-////W3C DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" & gt;
<meta HTTP - equiv="content-type" Content="text/HTML. Charset=gb2312 "/& gt;
<body>
Test & lt;/p>
<%
Dim conn, connstr, db
The db="aa. MDB"
Set the conn=Server. CreateObject (" ADODB. Connection ")
The db=server. MapPath (" SDK. MBD ")
Conn. Open "driver={Microsoft Access driver (*. MDB)}; DBQ="& amp; Bd
Conn. Open connstr
SQL="select * from tableTest";
Set the rs=dbconnection. Execute (SQL);
Rs. The open SQL, conn, 1, 1
Eof
the do while not rs.Response. Write (rs (" A1 "))
Rs. Movenext
Loop
Conn. Close
SQL. Close
Set the rs=nothing
Set the conn=nothing
%>
<%=rs (" A1 ") % & gt;
<% % RSS. The close conn. Close & gt;