<%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年9月23日14:19
东盛小学非常重视对学生的素质教育并致力于培养学生全面发展。9月8日，在长春市科协、长春市教育局、文体局举办的“迎奥运长春市中小学航空模型锦标赛”表彰大会中，东盛小学13名学生在橡筋、动力、手掷、弹射比赛中分别荣获一、二等奖，同时荣获集体一等奖的好成绩，为二道区争得了荣誉。
（区教育局）
【
关闭窗口
】
版本所有：长春市二道区人民政府 Copyright 2006
后台技术支持：倚天软件有限公司
