<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("DATE.mdb")'获取数据库
set rst=server.createObject("adodb.recordset") '创建数据集
rst.open "select * from [table]",conn,1,1'SQL查询语句
%>