|
作者:佚名 来源:中国秦腔网 时间:2006-6-2 3:45:57 |
|
78 Ⅱ—47 宜昌丝竹 湖北省宜昌市夷陵区
79 Ⅱ—48 枝江民间吹打乐 湖北省枝江市
80 Ⅱ—49 广东音乐 广东省广州市、台山市
81 Ⅱ—50 潮州音乐 广东省潮州市、汕头市
82 Ⅱ—51 广东汉乐 广东省大埔县
83 Ⅱ—52 吹打 重庆市巴南区、万盛区
(接龙吹打、金桥吹打)
84 Ⅱ—53 梁平癞子锣鼓 重庆市梁平县
85 Ⅱ—54 土家族打溜子 湖南省湘西土家族苗族自治州
86 Ⅱ—55 河北鼓吹乐 河北省永年县、抚宁县
87 Ⅱ—56 晋南威风锣鼓 山西省临汾市
88 Ⅱ—57 绛州鼓乐 山西省新绛县
89 Ⅱ—58 上党八音会 山西省晋城市
90 Ⅱ—59 冀中笙管乐 河北省固安县、涞水县、霸州市
(屈家营音乐会、高洛音乐会、
高桥音乐会、胜芳音乐会)
91 Ⅱ—60 铜鼓十二调 贵州省镇宁布依族苗族自治县、贞丰县
92 Ⅱ—61 西安鼓乐 陕西省
93 Ⅱ—62 蓝田普化水会音乐 陕西省蓝田县
94 Ⅱ—63 回族民间器乐 宁夏回族自治区
95 Ⅱ—64 文水鈲子 山西省文水县
96 Ⅱ—65 智化寺京音乐 北京市
97 Ⅱ—66 五台山佛乐 山西省五台县
98 Ⅱ—67 千山寺庙音乐 辽宁省鞍山市
99 Ⅱ—68 苏州玄妙观道教音乐 江苏省苏州市
100 Ⅱ—69 武当山宫观道乐 湖北省十堰市
101 Ⅱ—70 新疆维吾尔木卡姆艺术 新疆维吾尔自治区、鄯 上一页 [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)
%> |