<% dim db,trs Set db=new Connections set trs=server.CreateObject("ADODB.recordset") strsql="select * from news order by id desc" set trs=db.Query (strsql,1) %>
 
  大会进展
<% do while not trs.eof %> <% trs.movenext loop %>
  		• <%=trs("news")%>
    [<%=replace(trs("up_date"),"/","-")%>]