<% set conn=server.Createobject("ADODB.Connection") conn.Open Application("strConn") Set rs=Server.CreateObject("ADODB.RecordSet") sql="select top 1 * from news where isok='是' and isfocus='是'" rs.open sql,conn,1,1 Set rs1=Server.CreateObject("ADODB.RecordSet") sql1="select top 6 * from news where isok='是' and isfocus=''" rs1.open sql1,conn,1,1 %>







 

 

 

 



 

 

 

 

 

 

 

 


<% rs.colse() set rs=nothing conn.close() set conn=nothing %>