|
作者：武静 王立成 来源：精品购物指南 时间：2006-9-11 13:39:29 |
|
。”对于网站的未来，孙觉非很坦然。
我是网虫，我爱京剧
网络时代的年轻人与古老京剧的缘分实在令人不解，孙觉非却说自己对于京剧的热爱是与生俱来的。大部分家庭都是孩子受父母影响喜欢京剧，而他家却是父母受孩子影响喜欢上京剧。“第一次看戏应该是五六岁的时候，我还记得那出戏是《战金山》，梁红玉老师打鼓的样子现在还刻在我脑海里。而且，京剧的念白我一开始就能听懂。”上初中的时候，他收藏了第一盘京剧磁带。“我记得很清楚，是一盘《失空斩》而且只是上集，因为那个小书店里没有下集。”1996年，走上工作岗位的孙觉非终于可以用自己的钱买磁带和书了。而当网络开始在我们的生活里崭露头角的时候，孙觉非的爱好除了京剧又多了一项。
京剧爱好者根据地
1999年，他在网上发现了一个戏曲论坛，兴高采烈地去和论坛里的人打招呼，没想到没聊多久就被轰了出来。“那个戏曲文化论坛的层次比较高，而且他们形成一个比较小的固定圈子，所以一般像我这样的年轻人在里边发言是比较困难的，经常会被他们骂出来。有没有适合我们这样的人，或者是初级爱好者的网站呢？于是我想，如果没有这样合适的地方，我能不能自己也创办一个场所。”于是他开办了一个属于自己这样人的京剧论坛，“很多京剧爱好者都来到这里，大家都不是专家，说话很随便也很轻松。”论坛就这样吸引了很多爱京剧的网民。
“一年后，我越来越感到论坛的局限，首先是只能说、不能听，另外，上传图片也很困难，于是，我就有了做网站的想法。但是，当初我对做网站并不精通，所以雇了个在校大学生，我买了一台二手电脑给他当作劳务费。”就这样，咚咚锵网站粉墨登场了。不过，很快孙觉非就自己接手这个网站了。这个别具特色的京剧网站不仅能把演员、编剧、伴奏员的资料展示出来，在线收听可以欣赏到许多精彩的老曲目，而且网站还收录了上千张照片，还有京剧演出的介绍。不久，点击量就迅速升到了每天5000人次，如今，总点击率早就超过了百万。几年来，他在网络戏曲上投入了很多精力和财力，“我看见很多人从对京剧一窍不通到成为京剧艺术的传播者，我家里这些书画、扇面、脸谱就都是圈内外朋友送的，我想这就是我的收获，是没法用钱计算的。”
本报记者 刘岩
相关文章：
京剧百年大事记 << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]
<%
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)
%> |
用户登录 
新用户注册 