<%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" %>
82中学获得长春市首届校园集体舞大赛金奖
时间:
2008年9月23日14:13
主题为“我参与、我快乐、我精彩、我骄傲”的长春市首届校园集体舞大赛9月20日在省实验中学举行。来自长春市35所中小学的3000名学生进行了比赛。
82中学代表二道区初中组参加比赛，经过激烈的角逐，最终夺得了首届校园集体舞大赛金奖。
（区教育局）
【
关闭窗口
】
版本所有：长春市二道区人民政府 Copyright 2006
后台技术支持：倚天软件有限公司
