<%
db1="/! _spdb/# qy_sp !#/#qy_spdb.mdb"
Set conn1 = Server.CreateObject("ADODB.Connection")
connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db1&"")
conn1.Open connstr1
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 [id],title,filepath from News_Info where [type]='特别关注' order by id desc",conn1,1,1
if rs.eof then
response.Write("
<%
db="/! _spdb/# qy_sp !#/#qy_spdb.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("