|
作者:李颖 来源:郑州日报 时间:2005-12-28 22:09:47 |
|
经过近半年的紧张筹备,由河南省文联主办的首届河南省民间戏剧节昨晚在河南省人民会堂开幕,3台大戏和11个小戏将连续3天陆续登台亮相。
昨晚首场演出是平煤集团豫剧团的大型历史剧《大唐遗事》,该剧以盛唐时期一场政治斗争为主线,讲述了当时的政治风云人物长孙无忌与未来的一代女皇武则天之间的明争暗斗。
我省民间戏剧节是与全国映山红民间戏剧节接轨、每两年举办一届的民间戏剧盛会,今年为第一届。从报名伊始,本次戏剧节就吸引了众多戏剧演员和戏迷的眼球。据省戏剧家协会韩尔德介绍,本届戏剧节共有29个单位申报参加,除了昨晚演出的《大唐遗事》,还有陕县辛店蒲剧团的现代戏《黄河弯弯》、漯河银鸽艺术团的现代豫剧《母女恩怨》2台大戏,禹州市大涧工贸集团豫剧团的《分家》、信阳市光山县文化馆艺术团的花鼓戏《顶椅》、河南明星艺术团的二夹弦《婚前协议》、周口雪樱花药业集团公司道情剧团的《恋歌》、范县四平调剧团的《母亲》等11个小戏入选本届民间戏剧节的正式演出。
据介绍,这些入选剧目,题材丰富,剧种多样,虽然来自民间、来自基层,但无论新创作的剧目还是整理改编的老剧目,在主题开掘、人物塑造、舞台整体呈现等方面都达到了较高的艺术标准,体现了当前我省民间戏剧创作的新水平。
<%
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)
%> |