<%@ LANGUAGE = VBScript.Encode %> <%'##以下处理滚动的校园新闻 Set RS = my_conn.Execute("SELECT * FROM news where bz1=true and bfst=true order by T_date desc") '日期降序,BZ1为真 '###打开指定的校园新闻数据用于首页显示 %> 镇海中学校园网
   
 您现在的位置:学生风采>>缤纷社团

 缤 纷 社 团

  丰富的校园生活是青春灵动的旋律,多彩的社团活动是青春跳动的音符。在美丽的镇中校园里,学生社团像春天里竞相开放的百花,争奇斗艳,风光无限。学校已成立学生社团、兴趣小组近50个,分为学科类、文学类、实践类、体艺类、公益类等五大类,涌现出了梓荫文学社、海天艺术团、“爱的”慈善工作站、义工自主管理委员会等一大批明星社团和优秀社团。
 
  “爱的”(IDEAL)慈善工作站 兑门书社 风云体艺俱乐部
  广播站 海天艺术团 话剧社
  环保社和地震测报站 九章学社和加速度俱乐部 猎狐俱乐部和航模队
  模拟联合国 视觉艺术工作室和光阑摄影社 义工自主管理委员会
  英语社 梓荫文学社  
     
     
<% 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") & "——" & titleshow2%> <%else%> <%=rs("T_Subject")%> <%end if%>
<%=cstr(year(rs("T_date")))&"-"&cstr(month(rs("T_date")))&"-"&cstr(day(rs("T_date")))%>
更多>>
 
   

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