<%
set conn=Server.CreateObject("adodb.connection")
conn.open "driver={SQL Server};server=rickyserver;uid=sa;pwd=101302;database=DataConnection"
'conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("database\DataConnection.mdb")
set rs=Server.CreateObject("adodb.recordset")
sql="select * from 小区广播"
rs.open sql,conn,3,3
set rs2=Server.CreateObject("adodb.recordset")
sql2="select top 8 * from news order by date desc"
rs2.open sql2,conn,3,3
set rs3=Server.CreateObject("adodb.recordset")
sql3="select top 8 * from 信息发布表 order by 时间 desc"
rs3.open sql3,conn,3,3
%>深房小区
