<%
Set conobject=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("asp/business.mdb")
conobject.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs_news=Server.CreateObject("ADODB.Recordset")
Set rs_case=Server.CreateObject("ADODB.Recordset")
SQL_news="Select * from news order by id desc"
SQL_case="Select * from case order by id desc"
rs_news.Open SQL_news,conobject,1,3
rs_case.Open SQL_case,conobject,1,3
num_news=0
num_case=0
%>
赛迪监理
