asp操作Access

connview_acc.asp内容

<%
option explicit
response.write("ASP连接查询access<hr size='1'>")
dim connstr,conn,db
db="db1.mdb"
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db)
conn.open connstr

dim rs,sql
sql="select table1.* from table1 , table2 where table1.id = table2.no and table2.no=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
response.write("姓名："&rs("name")&"　　年龄："&rs("age")&"<br>")
rs.movenext
loop

rs.close
set rs=nothing
conn.close
set conn=nothing
%>