<% '显示内容标题列表 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 %>
 
首页
庆典大会
致贺单位
致贺礼品
代表发言
留言
 
 
在中国社会科学院民族学与人类学研究所
建所50周年座谈会上的讲话
 
 
同志们、朋友们:
 
今天,承邀参加中国社会科学院民族学与人类学研究所建所50周年庆祝活动,感到非常高兴。在此,我代表国家民委,向民族学与人类学研究所50华诞表示热烈的祝贺!向辛勤耕耘在民族研究园地上的同志们致以崇高的敬意!
        50年来,中国社会科学院民族学与人类学研究所始终坚持服务党和国家民族工作大局的正确方向,一代又一代的研究人员艰辛探索、不懈追求,为我国的民族研究,为推进我国民族团结进步事业做了大量工作。新中国成立初期,当时的民族研究所就全面参与了我国的民族识别、少数民族社会历史和语言调查等重大工作,为打开我国民族工作局面、奠定我国民族工作基础发挥了重要作用。改革开放以来,民族学与人类学研究所积极参与民族研究重大课题和扶持人口较少民族发展等重大项目,产生了一大批在国内外有广泛影响的研究成果,为党和国家的民族工作培养了一大批研究人才,为开创我国民族工作新局面、推动少数民族和民族地区经济社会发展提供了宝贵的智力支持。借此机会,我向中国社科院领导和各位专家学者长期以来给予民族工作、民委工作的大力支持,表示衷心的感谢!
        当前,我国民族工作已经站在了新的历史起点上,民族研究面临着新的光荣使命,任重道远,前程似锦。我期待并相信,在新的历史征程中,以庆祝建所50周年为契机,中国社科院民族学与人类学研究所一定能够发扬光荣传统,与时俱进,为不断提高我国的民族研究水平,为开创各民族共同团结奋斗、共同繁荣发展的新局面作出更大贡献。
 
谢谢大家!
 
 
 
 
版权所有:中国社会科学院民族学与人类学研究所
技术支持:中国社会科学院民族学与人类学研究所 网络信息中心
地址:北京市中关村南大街27号 6号楼;邮编:100081
电话:68932388 传真:68421864