dim odb,rsTemp,szSql
set odb=server.CreateObject("ADODB.Connection")
set rsTemp=server.CreateObject("ADODB.Recordset")
odb.ConnectionString="provider=sqloledb.1;persist security info =false;user id=as ;initial catalog=datebasename;date source=.;password=123"
odb.CursorLocation=adUseClient
odb.Open
szsql="select * from tablename" '查询
set rsTemp=odb.Execute (szsql)