<%@ LANGUAGE = VBScript.Encode %> <%'##以下处理滚动的校园新闻 Set RS = my_conn.Execute("SELECT * FROM news where bz1=true and Culture=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") & "——" & titleshow2%> <%else%> <%=rs("T_Subject")%> <%end if%>
<%=cstr(year(rs("T_date")))&"-"&cstr(month(rs("T_date")))&"-"&cstr(day(rs("T_date")))%>
 
   

     
 ◇ 文化艺术节  
 ◇ 国旗下讲话  
◇ 德育教育  
◇ 平安校园  
◇ 领导视察  
◇ 专家讲学  
◇ 开放气象  
◇ 示范辐射  
  ◇ 校庆专栏