<% 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 %>