<% '显示内容标题列表 Sub ShowList(menuID,num,moreurl) dim sql,rs,i,title,url,img 'on error resume next Err.Clear Set rs=Server.CreateObject("ADODB.Recordset") sql = "" sql = sql & "select * from tbl_content where mnCode='"&menuID&"' order by tbl_content.relativedate desc" rs.Open sql,conn_sql,1,1 if err.number<>0 then Response.Write "查询数据库时出错:"& err.Description Err.Clear Response.Write "查询数据库时出错" end if if rs.RecordCount>0 then Response.Write "" for i=1 to num if rs.EOF then exit for end if title = rs("title") img = rs("img") url = rs("url") if img="1" then img = "(图文)" else img = "" end if Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext next Response.Write "" Response.Write "
·" & title & "("&formatDateYYYYMMDD(rs("relativedate"))&")
更多... 
" else Response.Write "暂无数据" end if rs.Close set rs = nothing End Sub %> <% '显示子标题列表 Sub ShowTopicList(menuID) dim sql,rs,i,title,url,rowCount rowCount=2 i=0 Err.Clear Set rs=Server.CreateObject("ADODB.Recordset") sql = "" sql = sql & "select * from tbl_menu where parentcode='"&menuID&"' order by sortNo" rs.Open sql,conn_sql,1,1 if err.number<>0 then Response.Write "查询数据库时出错:"& err.Description Err.Clear Response.Write "查询数据库时出错" end if if rs.RecordCount>0 then Response.Write "" do until rs.EOF if i mod rowCount = 0 then i=0 Response.Write "" end if title = rs("cnname") url = rs("mncode") Response.Write "" Response.Write "" rs.MoveNext i=i+1 loop '内循环结束 i=i+1 '补齐td if i< rowCount then for j=0 to rowCount-i Response.Write "" next end if Response.Write "
·" & title & " 
" else Response.Write "暂无数据" end if rs.Close set rs = nothing End Sub %> <% '显示首页图片列表 Sub ShowImgList(menuID,num,moreurl) dim sql,rs,i,title,url,img 'on error resume next Err.Clear Set rs=Server.CreateObject("ADODB.Recordset") sql = "" sql = sql & "select top 6 * from tbl_content where mnCode='"&menuID&"' and img='1' order by tbl_content.relativedate desc" rs.Open sql,conn_sql,1,1 if err.number<>0 then Response.Write "查询数据库时出错:"& err.Description Err.Clear Response.Write "查询数据库时出错" end if if rs.RecordCount>0 then Response.Write "" Response.Write "" for i=1 to num if rs.EOF then exit for end if title = rs("title") img = rs("img") url = rs("url") contentID = rs("ID") if img="1" then strsql2="select * from tbl_img where contentID='" & contentID & "' and imgType='小图'" set rs_newBook1=conn_sql.execute(strsql2) if not rs_newBook1.eof then imgPath=rs_newBook1("path") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if else img = "没有图片" end if rs.MoveNext next Response.Write "" Response.Write "
 
 
更多... 
" else Response.Write "暂无数据" end if rs.Close set rs = nothing End Sub %>
 
首页
庆典大会
致贺单位
致贺礼品
代表发言
留言
 
 
在庆祝中国社会科学院
民族学与人类学研究所五十周年上的讲话
 

中央民族大学校长 陈理

(2008年12月20日)

 
 
尊敬的各位领导、各位来宾,
民族学与人类学研究所的各位老师、校友们:
今天,是一个难忘的日子,情同手足的中国社会科学院民族学与人类学研究所迎来五十周年华诞。在此,我谨代表中央民族大学的全体师生,向在五十年光辉历程中取得卓越成就的民族所致以最崇高的敬意,向民族所的各位职工和校友们表示最热烈的祝贺!
        五十年风雨兼程,五十载春华秋实。民族所在党的领导下,以民族振兴和社会进步为己任,在老一辈民族学家的带领下,经过几代民族学工作者辛勤努力和无私奉献,走过了不平凡的发展历程,逐步发展成为在国内外具有较大影响的民族学研究机构,培养了一批民族语言、民族学、人类学人才,为我国民族语言学、民族史学、民族地区的社会发展作出了卓越的贡献。
        中央民族大学和民族所有着相同的背景和历史使命。民族所自成立之日起,科研队伍的主要力量来自我校,筹备小组中的大部分成员是我校的毕业生,民族所的多名专家学者也在我校教书育人。同时,我们共同肩负着致力于中国民族问题研究,为国家的民族团结和发展提供高水平服务的重要历史使命。可以说,我们是好邻居,好同事,好伙伴。我们愿意与贵所进一步加强交流合作,一道为促进中国民族研究作出新的贡献。
        各位领导、老师,五十周年庆典既是对民族所辉煌历史的总结,也是民族所新跨越的开始。展望未来,我们坚信,以五十周年庆典为契机,民族所人定能励精图治,与时俱进,开拓创新,为民族团结和发展、国家繁荣和富强、社会文明和进步作出新的更大的贡献!
        最后,祝民族所事业蒸蒸日上!祝各位领导、来宾和校友们身体健康!
 
谢谢!
 
 
 
 
版权所有:中国社会科学院民族学与人类学研究所
技术支持:中国社会科学院民族学与人类学研究所 网络信息中心
地址:北京市中关村南大街27号 6号楼;邮编:100081
电话:68932388 传真:68421864