<% Set RS = my_conn.Execute("SELECT * FROM news where bz1=true and Afterschool=true order by T_date desc") '日期降序,BZ1为真 '###打开指定的校园新闻数据用于首页显示 %> 镇海中学校园网
   
 您现在的位置:学生风采>>课外天地

 课 外 天 地

  丰富多彩的兴趣小组活动给同学们的课余生活增添了色彩,是同学们发挥特长,展现个性的又一舞台。
 
     
     
<% i=1 '开始显示数据库滚动记录 Do While Not RS.EOF and i<=maxCount '仅仅显示前10条滚动新闻%> <%'''###处理下条记录 i=i+1 RS.MoveNext Loop RS.Close '关闭记录集 set rs=nothing '释放系统资源 %>
· <%'''#显示新闻标题 链接颜色和链接下划线需要调整 titleshow1=replace(rs("T_subject"),"","") titleshow1=replace(titleshow1,"","") titleshow1=replace(titleshow1,"","") titleshow1=replace(titleshow1,"","") titleshow1=replace(titleshow1,"","") titleshow1=replace(titleshow1,"
","") titleshow2=rs("T_subtitle") if titleshow2<>"" then %> <%=rs("T_Subject")%> <%else%> <%=rs("T_Subject")%> <%end if%>
<%=cstr(year(rs("T_date")))&"-"&cstr(month(rs("T_date")))&"-"&cstr(day(rs("T_date")))%>
    更多>>
 
   

     
◇ 行为准则  
◇ 学苑撷英  
◇ 缤纷社团  
◇ 课外天地  
◇ 阳光假日  
◇ 班级主页  
◇ 学生主页