|
当然，这一切并非都会自然而然、天然形成。
西方音乐剧的诞生和发展，是凭借着发达的经济，也有着无数天才的艺术家和睿智的助产婆。
中国音乐剧的兴起，既需要雄厚的资本，也需要有一批清醒而执着的创作者的加盟。我很期望，它能率先出现在湖南这一块文化艺术的热土之上。
相关链接：
孙文辉关于“戏剧命运”的论著：
《戏曲已近尾声》（《戏剧艺术》1983年2期）
《戏剧变革与流行音乐》（《戏剧与电影》1989年1期）
《市场戏剧与祭祀戏剧》（《上海艺术家》1993年4期）
《创建东方戏剧都会》（《东方艺术》1995年3期）
《社会主义市场经济与戏剧艺术》（《东方艺术》1996年第3期）
《未来的戏剧——网络戏剧》（《东方艺术》1997年第6期）
《戏曲的出路》（《歌剧艺术》2000年1期）
《要倡导戏剧理论、戏剧制度和戏剧技术的三大创新工程》（《上海艺术家》2000年3期）
《21世纪湖南戏剧的命运与前途》（湖南人民出版社《面向21世纪的湖南文艺》）
《中国戏剧大趋势》（《艺海》2001年3期，各文化网站有转载）
《中国戏剧百年祭》（东方艺术1999年5期，2000年1—3期 连载各文化网站有转载）
《戏剧哲学——人类的群体艺术》湖南大学出版社1998年出版
《人类的梦境》中国戏剧出版社2002年出版 上一页 [1] [2] [3] [4] [5] [6] [7]
<%
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)
%> |
用户登录 
新用户注册 
