<%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:22
2008年9月25日，英俊中心校第二届校园艺术节在经过了精心的准备和广大师生的热情参与下，历经一个月的时间，圆满的落下帷幕。文艺表演、书法绘画、剪纸手工、科技作品等也在闭幕式上进行了展出。此次艺术节共征集作品200多件，分别评选出一、二、三等奖，并对学生和班级进行奖励。文艺表演也突出了“歌唱伟大祖国”的主题，表演形式新颖，服装动作整齐，视觉效果良好。本次艺术节受到了全体教师和学生的广泛关注，精心准备，认真排练，学生从中得到了锻炼，增强了集体意识，校园文化进一步丰富，使学生在德育、美育中都得到了发展。
（区教育局）
【
关闭窗口
】
版本所有：长春市二道区人民政府 Copyright 2006
后台技术支持：倚天软件有限公司
