|
作者:小豆子 来源:戏考的Blog 时间:2004-1-16 |
|
、方便各位网友,本站即日起发起梨园经典‘听得明白’工程,致力于为京剧录音添加同步歌词文件,让你的播放器能够同步显示相应的唱词。当然,这项工程繁琐而浩大,非一人之力可以完成,因此非常期待您的参与。”
七、国庆天津网聚举行
在经过将近半年时间的筹划运做后,天津网聚在10月2日如期举行。组织者戏迷知音将网聚安排在广东会馆,可谓用心良苦。虽然小豆子无缘参加,但是看了后来的报道,是非常热闹的,而且还有很多名家参加。按照戏迷知音的话说:“天津网聚结束了,虽然不很成功,但还算比较圆满”。不足之处在于因为很多人报名却未参加,致使在资金上损失了很多。戏迷知音的这种精神是非常可贵的:“虽然在金钱上损失了,但我一直认为我得到了比金钱还要珍贵的东西,老艺术家的信任与帮助,诸多网友的支持与信任,统统这些无法用金钱能买到,所以我还是在满怀信心地竭力把事情做好。”
八、时代国粹荣获“中国优秀文化网站”
2月份,中国联通杯第四届中国优秀文化网站调查评估活动给予时代国粹在内的15家网站“中国优秀文化网站”。这是继咚咚锵之后又一戏曲网站获此殊荣。而且,这两个网站都有谷雨姐姐在其中参与,可见谷雨姐姐的水平绝对一流,且在策划、运作方面有独到之处。
九、更多戏曲网站成立
2月,依托于上海天蟾舞台网站“麒学探微”网站正式开通,是由周信芳艺术研究会开设的一个集麒派学术探讨、麒派艺事和艺术信息于一体的专门网页;11月,苏州中国昆曲研究中心门户网站“中国昆曲”网站正式开通。应该说,越来越多的专业性很强的戏曲网站的开通,是一个好兆头,因为每个网站都有其独门独到的东西,远远强于很多个人网站,只局限在转帖东西上。上面提到的京剧方舟成立的消息之所以单独提出来说,是因为它代表着一群戏迷自发的行为,而这里列述的,都带有些组织、政府的性质。
十、戏考的 Blog 出炉
既然是小豆子总结的戏曲新 上一页 [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
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)
%> |