dim con
dim sql
sql="select * from 表名"
set con=server.createobject("adodb.connection")
con.connectionstring="provider=sqloledb;data source=127.0.0.1;uid=sa;pwd=;database=你的数据库名"
con.open
set rs=server.createobject("adodb.recordset")
rs.open sql,con,2,3