|
斋俚曲 山东省淄博市
54 Ⅱ—23靖州苗族歌鼟 湖南省靖州苗族侗族自治县
55 Ⅱ—24川江号子 重庆市 四川省
56 Ⅱ—25南溪号子 重庆市黔江区
57 Ⅱ—26木洞山歌 重庆市巴南区
58 Ⅱ—27川北薅草锣鼓 四川省青川县
59 Ⅱ—28侗族大歌 贵州省黎平县
广西壮族自治区柳州市、三江侗族自治县
60 Ⅱ—29侗族琵琶歌 贵州省榕江县、黎平县
61 Ⅱ—30 哈尼族多声部民歌 云南省红河哈尼族彝族自治州
62 Ⅱ—31 彝族海菜腔 云南省红河哈尼族彝族自治州
63 Ⅱ—32 那坡壮族民歌 广西壮族自治区那坡县
64 Ⅱ—33 澧水船工号子 湖南省澧县
65 Ⅱ—34 古琴艺术 中国艺术研究院
66 Ⅱ—35 蒙古族马头琴音乐 内蒙古自治区
67 Ⅱ—36 蒙古族四胡音乐 内蒙古自治区通辽市
68 Ⅱ—37 唢呐艺术 河南省沁阳市 甘肃省庆阳市
69 Ⅱ—38 羌笛演奏及制作技艺 四川省茂县
70 Ⅱ—39 辽宁鼓乐 辽宁省、辽阳市
71 Ⅱ—40 江南丝竹 江苏省太仓市 上海市
72 Ⅱ—41 海州五大宫调 江苏省连云港市
73 Ⅱ—42 嵊州吹打 浙江省嵊州市
74 Ⅱ—43 舟山锣鼓 浙江省舟山市
75 Ⅱ—44 十番音乐 福建省龙岩市、福州市
(闽西客家十番音乐、茶亭十番音乐)
76 Ⅱ—45 鲁西南鼓吹乐 山东省嘉祥县
77 Ⅱ—46 板头曲 河南省南阳市
上一页 [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)
%> |
用户登录 
新用户注册 