<%sub titlen(i) tlen=rs_1("title") if len(tlen)>i then tlen=left(tlen,i)&"..." else tlen=tlen end if end sub%>
设为首页
|
|
联系我们
<% set rs=server.createobject("adodb.recordset") sql="select top 1 * from [jsconst] order by jsid desc" rs.open sql,conn,1,1 news_num = rs("headnum") if news_num = "" or isnull(news_num) then news_num = 0 set rs_1 = server.CreateObject ("adodb.recordset") sql_1 = "select top "&news_num&" id,boardid,title,fpath,fname,ifshow,addtime from article where cdflag=0 and boardid=3502 and ifshow=1 and netwebid=1 order by ifhead desc,seq desc" rs_1.Open sql_1,conn,1,1 if not rs_1.eof then set rs_2 = server.CreateObject ("adodb.recordset") sql_2 = "select * from board where netwebid=1 and boardid = 3502 order by boardid desc" rs_2.Open sql_2,conn,1,1 str = "" do while not rs_1.EOF temptime =month(rs_1("addtime")) & "月" & day(rs_1("addtime")) & "日" call titlen(rs_2("zishu")\2) 'response.write(tlen) if rs("headtime")=1 then str = str&rs("headsign")&"
"& rs_1("title")& "
("& temptime & ")
" else str = str&rs("headsign")&"
"& rs_1("title")&"
" end if rs_1.movenext loop response.write(str) rs_2.Close set rs_2=nothing end if rs_1.Close set rs_1=nothing rs.Close set rs=nothing %>
<% dim conn set conn=server.createobject("ADODB.connection") conn.ConnectionString ="Provider=SQLOLEDB.1;Password=ccedweb;Persist Security Info=True;User ID=sa;Initial Catalog=cced;Data Source=(Local)" conn.Open %> <% Const PAGESIZE=20 Const PARTSIZE=10 Const AboutSize=8 Const listlen=30 'list文件代码 Const syspath="News" %>
实验小学举行应急疏散逃生演练，提高学生自救能力
时间:
2008年10月6日9:23
9月25日8时40分，实验小学422名学生以一声长铃为令，在领导的指挥下1分23秒安全、快速、有秩序地全部撤出教学楼，进行了一次别开生面的逃生演练。连日来，学校开展了多种形式的抗震知识教育、地震逃生宣传等活动，如：在早自习的时候,班主任向学生宣讲《生命教育读本》，开展以“关爱生命，健康成长”为主题的班队会活动，学生还以宣传画、征文的形式表达了对健康的热爱、对生命的向往。在领导的指挥、班主任的重视，学生的努力配合下，本次演练非常成功，给学生上了生动的一课，提高学生对生命的珍爱以及抗灾自救的能力。
（区教育局）
【
关闭窗口
】
版本所有：长春市二道区人民政府 Copyright 2006
后台技术支持：倚天软件有限公司
