<%@ LANGUAGE = VBScript.Encode %> <% Set RS = my_conn.Execute("SELECT * FROM news where bz1=true and kjjl=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")))%> <%=rs("HITNUM")%> <%=rs("T_Auth")%>

 
   

     
◇ 教育规章  
◇ 课程改革  
◇ 高考专栏  
◇ 论文选登  
◇ 优秀教案  
◇ 课件交流  
◇ 作息时间