%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("../zcfb.mdb")
objConn.Open
set objRS=server.createobject("ADODB.recordset")
strSQL="select top 6 名称,时间,pic,id from [政策法规] where 栏目 like '%资源调查%' and 位置='同意' ORDER BY 时间 DESC"
objRS.open strSQL,objConn,1,1
'读取数据表的所有记录并依照时间递减顺序排列
' strSQL = "SELECT*FROM 政策法规 Where 栏目 like '%资源调查%' and 位置='同意' ORDER BY 时间 DESC"
' Set objRS = GetSQLRecordset(strSQL, "zcfb.mdb", "政策法规")
%>