|
上期讲到《中国戏剧场》网站的创办者梧桐，为自己“自找苦吃”为什么而困惑，平安夜一个人在故宫城根下彷徨、苦思。本期我们继续讲述他办《中国戏剧场》网站的一些故事。
没钱是万万不能的
为写戏曲剧本萌发了办戏剧网站，现在写的却是电视剧剧本，梧桐坦率地说：“这是为了钱。我从来没有感觉到钱对我这般重要过。以往的日子，也许是没有太多要花钱的嗜好，那种平凡的——当然也可能是平庸的闲适和安逸生活，其实更适合我的个性。就说这《中国戏剧场》，当初所有的朋友都认为这不是一件值得做的事。的确，花了两年多的时间，积蓄所剩无几，不要说再请人维护网站，自己的生活也要节衣缩食了，这才意识到‘坍塌’的危机终于来了。好在有家人的支持，也就有了撑下去的劲头！当然，我必须想办法去挣钱，人活着，养家糊口才是第一位的。”梧桐又说，主要是写点东西的愿望现在特别强烈，“我也说不清自己是什么时候混成文人的，军人、商人、国家干部、无业游民，这些经历好像都是上辈子的事，现在只觉得‘戏’和‘文’才是自己最终的归宿。”
停了几天网站差点被骂死
生活上的拮据让梧桐已不止一次想放弃这个网站，甚至因此而停止更新了十几天。“当时，因为我无力支付工资，编辑人员不再兼职了，我又脱不开身。许多网友戏迷已经习惯每天来‘戏剧场’逛逛，看看新闻，听听唱段，交流议论，忽然这一切都‘静止’了、‘停顿’了，我还断掉了所有的联系方式，朋友们当然不适应，我的信箱近乎被撑破了，夹杂着问候和指责……好在我妹妹‘飞雨’终于飞回来解了我的燃眉之急。不夸张地说，我也由此体会到了一种使命感，当然还有一种成就感，这让我欲退不能。其实近一年来，‘飞雨’一直打的是义工。就目前而言，除了义工，‘戏剧场’谁也用不起。所以我虽然不时接到应聘函，可也只能不作回应了。”
略显伤感了一番后，梧桐又现出了他那种达观敢闯的性格：“做什么事都不可能一帆风顺，我是把现在的困难理解成，为迎接可期的未来所必须承受的磨砺。这么想我也就很快乐了，享受艰难其实也是一种快乐。这种快乐还能成为我受用一生的精神财富。”
办得越好亏得越多
梧桐认为，这年头这帮子有“魔怔”的家伙坚持办的这些网站，为戏剧“鼓吹”做的这些事，对未来的影响和产生的无形价值是任何回报都无法等价的。“目前的问题是，我们大都没有精力、也没有能力，解决、实现这些网站未来的可持续发展问题。《中国戏剧场》的点击率是非常高的，但回报却极少。这和棒球比赛正相反，球击得越远越高、越是‘本垒打’，我们的损失越大——上网下载的人越多、网上收听收视的人越多，我们向电信公司交的钱就越多；可相应的广告收入却如凤毛麟角。所以，我们在尽全力做好公益服务的同时，迫切地需要与社会各界的有识之士携起手来，以求获得产业化的整合。”
<%
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)
%> |
用户登录 
新用户注册 
