|
>,流行于广东汕头、福建南部及台湾等地区。主要受外地传入在弋阳腔、昆腔及汉调的影响,形成于明代中叶,在剧目中保留了很多宋元作品,如《陈三五娘》、《扫窗会》、《芦林会》等。
40、桂剧,流行于广西东北部及湖南南部地区,明末清初时形成,唱腔以皮黄为主,兼唱昆腔、高腔、吹腔等腔调。剧目有《抢伞》、《拾玉镯》、《柜中缘》等。
41、彩调,原名“调子”或“采茶”,流行于广西地区。在当地民间歌舞基础上形成,已有近两百年的历史,1955年定名为“彩调”。其表演自由活泼,富于生活气息。最为著名的剧目是《刘三姐》。
42、壮剧,流行于广西、云南等壮族聚居区的戏曲剧种,分为南路和北路两派。前者源于当地的“板凳戏”,主要剧目有《文龙与肖尼》;后者源于“双簧戏”,主要剧目有《宝葫芦》。
43、川剧,四川省地方剧种,流行于四川及其周边地区。由昆腔、高腔、胡琴、弹戏、灯戏部分组成,各有其剧目。川剧唱腔高亢激越,表演诙谐幽默,富于生活气息。主要剧目有传统戏《玉簪记》、《柳荫记》、《活捉王魁》等,新编戏《死水微澜》、《变脸》、《金子》等。
44、黔剧,流行于贵州省的地方剧种,由曲艺“文琴”发展而成,主要以扬琴为伴奏乐器,地方特色浓郁。剧目有《珠娘郎美》、《奢香夫人》等。 上一页 [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)
%> |