#22001/7/2 19:00:51
dim con
dim sql
dim rs
con="dbq="+server.mappath("faq.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};" '定义数据源
sql="select * from good" '选择表名及字段sql语名
Set rs= Server.CreateObject("ADODB.Recordset") '创建rs对象
rs.open sql,con,1,1 '以只读方式打开数据库