<%
newsid=request("newsid")
set con=server.createobject("adodb.connection")
set rec=server.createobject("adodb.recordset")
set rc=server.createobject("adodb.recordset")
set area=server.createobject("adodb.recordset")
vpath=server.mappath("news.mdb")
constr="driver={Microsoft Access Driver (*.mdb)};dbq="&vpath
con.open constr
rec.open "select * from news where news_id="&newsid,con,1,1
dim news_t
news_t=rec("news_type")
rc.open "select top 5 * from news where news_id<" & newsid & " and news_type=" & news_t & " order by news_id desc",con,1,1
area.open "select top 5 * from focus_t order by id desc",con,1,1
%>
中国宋庆龄基金会
