<%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月1日11:0
8月22日，长春大学生物学院师生到劝农中心校开展“三下乡”联谊活动。
欢迎仪式过后，长大师生深入班级，给各班带去了图书、羽毛球拍等礼物，同时就心理健康、法制常识等向学生做了生动的讲解，并和学生们谈心交流，孩子们深受教育。接着长大师生在孩子们的带领下到附近农户调研。
长大生物学院和劝农中心校的联谊活动不仅锻炼了在校大学生的社会实践能力，使他们增强了社会责任感，同时，这种大朋友与小朋友的沟通也拓宽了学校心理教育的渠道，有利于学生的健康成长。
（区教育局）
【
关闭窗口
】
版本所有：长春市二道区人民政府 Copyright 2006
后台技术支持：倚天软件有限公司
