|
作者：佚名 来源：人民网 时间：2006-1-27 16:35:09 |
|
，前些年城里已经没有演出了，但这几年又慢慢恢复了。当经济发展到一定程度后，需要文化的时候，还是有一部分人要看戏的。艺术欣赏有个规律，不同年龄段--少年时代、青壮年时代、老年时代是有变化的。人到中年以后，喜欢看一些高雅的、文雅的、抒情的艺术形式，戏曲能适应这种需要。另外随着改革开放，中国一些传统民俗在回归。现在的庙会，人们过生日、给老人做寿，一些重要活动，过年过节，还需要戏曲这种艺术形式，因唱大戏更能体现节日气氛。虽然戏曲不可能像过去那样成为一种娱乐的主流艺术形式，但它还是能传承下去。只要中国文化在世界上能保持独立地位，我觉得戏曲就不会灭亡。
中国戏曲与西方不同，它经历几次大的变革，每次变革都是继承了前面的传统而发展下来，而不是像古希腊戏剧、印度戏剧那样传统一下中断。中华民族的文化代代相传，戏曲会吸取新的艺术养料，会有新的形式出现，会传承下去，但不会恢复到以前那种统领娱乐的盟主地位。
记者：在市场经济条件下，文化产品的生命力与其市场需求是密切相关的。目前，地方戏的市场需求究竟有多大？
刘文峰：地方戏从娱乐、教化功能看是大大萎缩了，但从其传承文化的角度看相对还有较大市场。特别是农村，包括东南沿海经济发达地区，由于中国传统的民俗活动较多，一年四季每个月都有节，还有各种庙会。中国是多种信仰的国家，虽以佛教为主，但各地的民间信仰很多，如东南沿海的妈祖信仰，内地的关公信仰。还有奶奶庙、东岳庙等，庙会非常多。庙会都有演戏的习惯。还有商贸活动，为制造气氛，吸引商家，也搭台演戏。另外百姓有钱了，儿女结婚、老人做寿、孩子过满月等，都会请人演戏。从这个角度看，农村演出市场相当可观。问题是，因成本高，国营大剧团很难走下去，老百姓更多地是请民间剧团，因其戏价低，演出也较灵活。结果形成这样一种现象：国营剧团生存困难，民间业余剧团却非常红火。民间剧团基本上把民俗活动的演出市场占了。但国营剧团也逐渐在转变，如山西、河南的省级、市级剧团，也经常下到矿区、农村演出。
近几年在城市兴起一种现象：正规剧场的戏曲演出很少，但茶社清唱、折子戏非常盛行，像陕西、河南的这种演出，非常红火，大部分都是专业演员演出，观众也比较固定。戏曲不同于外来的话剧，它的民间根基很深，所以还是有一定市场的。
记者：在快餐文化盛行的今天，地方戏曲显然已经不太符合大多数人的欣赏趣味，人们对其生存窘境的态度也不一样。有人认为要扶持拯救，有人认为应该任其自生自灭。您以为呢？
刘文峰：从总体上看，中国的戏曲是中华民族非常珍贵的文化遗产，地方戏反映了一个地区的文化发展历史，反映了当地群众的审美，每种地方戏都有一定的当地文化特点。从这个角度讲，应该让我们的民族文化传承下去。对于具体剧种，还是应依其具体情况而定。最近文化部公布了非物质文化遗产国家名录，共500多种，其中戏曲有近100种。列入国家名录的剧种都是比较重要的，它们的历史比较悠久，历史遗产比较丰富，艺术特色、地域特色比较鲜明。这类的剧种毫无疑问地应该保护下去。有一些剧种形成时间较短，群众基础较差，也没有多少演出剧目，没太大文化价值，消失也正常。
从艺术规律讲，中国戏曲的发展是个新陈代谢的过程。对剧种价值的衡量主要还是要看其文化价值、艺术价值和群众基础（接受 上一页 [1] [2] [3] [4] [5] 下一页
<%
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
Function googleDcmguid()
Dim dcmguid
dcmguid = Request.ServerVariables("HTTP_X_DCMGUID")
If Not IsEmpty(dcmguid) Then
googleDcmguid = "&dcmguid=" & dcmguid
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=" &_
"&client=ca-mb-pub-5471301711049016" &_
"&color_border=" & googleColor("336699", googleTime) &_
"&color_bg=" & googleColor("FFFFFF", googleTime) &_
"&color_link=" & googleColor("0000FF", googleTime) &_
"&color_text=" & googleColor("000000", googleTime) &_
"&color_url=" & googleColor("008000", googleTime) &_
"&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() &_
googleDcmguid()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%><%
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)
%> |
用户登录 
新用户注册 