|
作者:佚名 来源:中国秦腔网 时间:2006-6-2 3:45:57 |
|
善县、哈密
(十二木卡姆、吐鲁番木卡姆、 地区、麦盖提县
哈密木卡姆、刀郎木卡姆)
102 Ⅱ—71 南音 福建省泉州市、厦门市
103 Ⅱ—72 泉州北管 福建省泉州市
三、民间舞蹈(共计41项)
序号编号 项目名称 申报地区或单位
104Ⅲ—1京西太平鼓 北京市门头沟区
105Ⅲ—2秧歌 河北省昌黎县
(昌黎地秧歌、鼓子秧歌、胶 州秧歌、海阳大秧歌、陕北秧 歌、抚顺地秧歌)
辽宁省抚顺市 陕西省绥德县 山东省商河县、胶州市、海阳市
106Ⅲ—3井陉拉花 河北省井陉县
107Ⅲ—4龙舞 重庆市
(铜梁龙舞、湛江人龙舞、汕广东省湛江市、汕尾市
尾滚地金龙、浦江板凳龙、长浙江省浦江县、长兴县奉化市
兴百叶龙、奉化布龙、泸州雨四川省泸县
坛彩龙)
108Ⅲ—5狮舞 河北省徐水县
(徐水舞狮、天塔狮舞、黄沙山西省襄汾县
狮子、广东醒狮)浙江省临海市
广东省佛山市、遂溪县、广州市
109Ⅲ—6花鼓灯 安徽省蚌埠市、凤台县、颍上县
(蚌埠花鼓灯、凤台花鼓灯、 颍上花鼓灯)
110Ⅲ—7 傩舞 江西省南丰县、婺源县、乐安县
(南丰跳傩、婺源傩舞、乐安傩舞)
111Ⅲ—8 英歌 广东省揭阳市、汕头市
(普宁英歌、潮阳英歌)
112Ⅲ—9 高跷 山西省稷山县
上一页 [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)
%> |