<%
set rs =server.CreateObject("adodb.recordset")
rs.open "select top 10 * from News_Info where type='特别关注' order by id desc",conn,1,1
if rs.eof then
response.Write("
<%
db="/xzl/! db/# qy_xzl !#/#qy_xzldb #.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from links order by linkorder asc",conn,1,1
dim i
i=0
response.Write("