|
作者:文化部 来源:文化部 时间:2005-4-26 11:59:30 |
|
(1)具有展现中华民族文化创造力的杰出价值;
(2)扎根于相关社区的文化传统,世代相传,具有鲜明的地方特色;
(3)具有促进中华民族文化认同、增强社会凝聚力、增进民族团结和社会稳定的作用,是文化交流的重要纽带;
(4)出色地运用传统工艺和技能,体现出高超的水平;
(5)具有见证中华民族活的文化传统的独特价值;
(6)对维系中华民族的文化传承具有重要意义,同时因社会变革或缺乏保护措施而面临消失的危险。
同时,申报项目须提出切实可行的十年保护计划,并承诺采取相应的具体措施,进行切实保护。
国家级非物质文化遗产代表作项目的申报程序如下:
(1)公民、企事业单位、社会组织等,可向所在行政区域文化行政部门提出非物质文化遗产代表作项目的申请,由受理的文化行政部门逐级上报;
(2)省级文化行政部门对本行政区域内的非物质文化遗产代表作申报项目进行汇总,经专家筛选、认定,经同级人民政府核定后,向部际联席会议办公室提出申报;中央直属单位可直接向部际联席会议办公室提出申报;
(3)联席会议办公室将经审核合格的申报项目材料提交评审委员会;评审委员会根据评审标准与要求进行评审认定,提出推荐项目名单;
(4)推荐项目名单经社会公示后,拟定入选国家级非物质文化遗产代表作名录名单,上报国务院批准颁布。
向联合国教科文组织申报“人类口头和非物质遗产代表作”的项目,将从国家级非物质文化遗产代表作中产生。
上一页 [1] [2] [3]
<%
Function googleColor(value, random)
Dim colorArray
colorArray = Split(value, ",")
googleColor = colorArray(random Mod (UBound(colorArray) + 1))
End Function
Function googleScreenRes()
Dim screenRes, delimiter, resArray
screenRes = Request.ServerVariables("HTTP_UA_PIXELS")
delimiter = "x"
if IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS")
delimiter = ","
end If
resArray = Split(screenRes, delimiter, 2)
if (UBound(resArray) + 1) = 2 Then
googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1)
end If
End Function
Dim googleTime, googleDt, googleScheme, googleHost
googleTime = DateDiff("s", "01/01/1970 00:00:00", Now())
googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer)))
googleScheme = "http://"
if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://"
googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST"))
Dim googleAdUrl, googleAdOutput
googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_
"ad_type=text_image" &_
"&channel=6495040935" &_
"&client=ca-mb-pub-9595218071455095" &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=xhtml" &_
"&oe=utf8" &_
"&output=xhtml" &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
"&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_
googleScreenRes()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%> |