% dim sql dim rs1 '公司新聞 Set rs1= Server.CreateObject("ADODB.Recordset") sql="select top 6 id,title,dateandtime from it where title order by id desc" rs1.open sql,conn,1,1 %>