|
(高跷走兽、海城高跷、辽西高 辽宁省海城市、锦州市
跷、苦水高高跷) 甘肃省永登县
113Ⅲ—10 永新盾牌舞 江西省永新县
114Ⅲ—11 翼城花鼓 山西省翼城县
115Ⅲ—12 泉州拍胸舞 福建省泉州市
116Ⅲ—13 安塞腰鼓 陕西省安塞县
117Ⅲ—14 洛川蹩鼓 陕西省洛川县
118Ⅲ—15 兰州太平鼓 甘肃省兰州市
119Ⅲ—16 余杭滚灯 浙江省杭州市余杭区
120Ⅲ—17 土家族摆手舞 湖南省湘西土家族苗族自治州
121Ⅲ—18 土家族撒叶儿嗬 湖北省长阳土家族自治县
122Ⅲ—19 弦子舞 西藏自治区
(芒康弦子舞、巴塘弦子舞)四川省巴塘县
123Ⅲ—20 锅庄舞 云南省迪庆藏族自治州
(迪庆锅庄舞、昌都锅庄舞、玉 西藏自治区
树卓舞) 青海省玉树藏族自治州
124Ⅲ—21 热巴舞 西藏自治区
(丁青热巴、那曲比如丁嘎热巴)
125Ⅲ—22 日喀则扎什伦布寺羌姆 西藏自治区
126Ⅲ—23 苗族芦笙舞 贵州省丹寨县、贵定县、纳雍县
(锦鸡舞、鼓龙鼓虎-长衫龙、滚山珠)
127Ⅲ—24 朝鲜族农乐舞 吉林省延边朝鲜族自治州
(象帽舞、乞粒舞) 辽宁省本溪市
128Ⅲ—25 木鼓舞 贵州省台江县
(反排苗族木鼓舞、沧源佤族木鼓舞) 云南省沧源佤族自治县
129Ⅲ—26 铜鼓舞 云南省文山壮族苗族自治州
(文山壮族、彝族铜鼓舞)
上一页 [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)
%> |