|
>130Ⅲ—27 傣族孔雀舞 云南省瑞丽市
131Ⅲ—28 达斡尔族鲁日格勒舞 内蒙古莫力达瓦达斡尔族自治旗
黑龙江省哈尔滨市
132Ⅲ—29 蒙古族安代舞 内蒙古自治区库伦旗
133Ⅲ—30 湘西苗族鼓舞 湖南省湘西土家族苗族自治州
134Ⅲ—31 湘西土家族毛古斯舞 湖南省湘西土家族苗族自治州
135Ⅲ—32 黎族打柴舞 海南省三亚市
136Ⅲ—33 卡斯达温舞 四川省黑水县
137Ⅲ—34 㑇舞 四川省九寨沟县
138Ⅲ—35 傈僳族阿尺木刮 云南省维西傈僳族自治县
139Ⅲ—36 彝族葫芦笙舞 云南省文山壮族苗族自治州
140Ⅲ—37 彝族烟盒舞 云南省红河哈尼族彝族自治州
141Ⅲ—38 基诺大鼓舞 云南省景洪市
142Ⅲ—39 山南昌果卓舞 西藏自治区
143Ⅲ—40 土族於菟 青海省同仁县
144Ⅲ—41 塔吉克族鹰舞 新疆维吾尔自治区塔什库尔干塔吉克自治县
四、传统戏剧(共计92项)
序号编号 项目名称 申报地区或单位
145Ⅳ—1昆曲 中国艺术研究院
江苏省 浙江省 上海市 北京市 湖南省
146Ⅳ—2梨园戏 福建省泉州市
147Ⅳ—3莆仙戏 福建省莆田市
148Ⅳ—4潮剧 广东省汕头市、潮州市
149Ⅳ—5弋阳腔 江西省弋阳县
150Ⅳ—6青阳腔 安徽省青阳县 江西省湖口县
151Ⅳ—7高腔 浙江省衢州市、松阳县
(西安高腔、松阳高腔、岳西高腔、辰河高腔、常德高腔)
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
<%
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)
%> |