<% dim strnew,age,temp1 age=7 strnew="" set rs=server.CreateObject("adodb.recordset") %>

homepage　　　 introduction　　　 items　　　certificate　　　contactway <% set rs=server.CreateObject("adodb.recordset") sql1="select top 6 * from wu_news where news_class=1 order by new_id desc" rs.open sql1,conn,1,1 Do While Not rs.eof if datediff("d",Rs("news_date"),now())< int(age) then temp=strNew else temp="" end if %> "><%=left(rs("news_title"),10)%> (<%=month(rs("news_date"))%>-<%=day(rs("news_date"))%>)　<%=temp%> <% rs.movenext loop rs.movefirst rs.close %>