|
作者：小尧 来源：华商报 时间：2003-7-24 |
|
报道后，社会各界对秦腔网表示了极大关注。日前，该网站的负责人刘彭涛兴奋地告诉记者，渭南的马莉马战医院的负责人看到报道后，已给网站汇来1万元，要求在秦腔网上打一年的广告。这第一笔“广告费”将被秦腔网用于购买技术设备。刘彭涛告诉记者，这第一笔收入的花法是几个版主共同决定的，“秦腔网以前一直是‘负产出’，上网人数越来越多，资料信息越来越庞大，对服务器及网站的硬件要求也就随之提升，但却没有收入。现在光我一个人已经为这个网欠下了几万元的债务，所以这一次秦腔网开始有收入了，我们都没想着把这钱分了，而要为以后的发展做打算。毕竟一个网站生存下去并不能靠‘救助’，而是要靠市场。”
各方承诺决不让秦腔网再次“死亡”
昨日，记者在陕西电视台目睹了《秦之声》栏目与秦腔网签订合作意向书的过程，《秦之声》制片人王锐告诉记者，合作以后，秦腔网作为秦腔的门户网站，再也不会出现“突然死亡”的尴尬局面，“我们是电视媒体，他们是网络媒体，两种先进的媒体强强联合、资源共享。加上电视台的支持，秦腔网一定能为秦腔的发展、传播起到更多的作用。”同时，在本报的牵线搭桥下，西安易得等13家网络通信公司都做出免费为秦腔网提供网络空间和技术支持的承诺，文化厅下属的陕西文化信息网也将免费为秦腔网提供设备、宽带等。
据悉，秦腔网重新开通后，将陆续邀请李梅等秦腔名演员作客网站，和网友网上聊天。
上一页 [1] [2]
<%
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)
%> |
用户登录 
新用户注册 
