程序代码：

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("数据库.mdb")
%>
<%
exec="select * from DB_order"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1

%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("SystemReply")%></td>
</tr><%
rs.movenext
loop
%>
</table>