|
作者：毕诗成 王锋 来源：华商报 时间：2007-1-17 8:55:56 |
|
的误传，大可一笑了之，而即使陕西确实留给了李咏这样的印象的话，那对我们也未尝不是一种警醒、一个鞭策，已经有网友用过去的一些数字来回应，这是必要的，但更重要的，是真正把我们当下的科技搞上去，把工农业产值搞上去，推出更好更多的文化产品，从而让李咏自己去感到惭愧。
高建群：我们不必大动肝火
高建群（省文联副主席、省作协副主席）：我想，李咏未必就一定是心存恶意，陕西人也完全不必大动肝火，他们每期制作节目，还要力求新意，压力是相当大的，李咏更多的是想卖弄一下他对陕西还有这么一点知识，但砸锅了。我曾经参加过央视《半边天》栏目的“2004年十大风采女性”评选，和一位著名主持人共同作为颁奖嘉宾，当张越问这位主持人对北京姑娘的印象时，他当即反问了一句“北京有姑娘吗？”当然北京姑娘们是闻言大怒，在网上声讨了很长时间。我想，之所以这样的事情频频出现，不排除有些主持人抱着一种游戏心态，但自己的学养又不够，于是难免出丑露怯。
信口开河不怕，可是公众人物在公众场合信口开河，那不啻于“在一个错误的地点、一个错误的时间，玩了一个错误的脱口秀”———大嘴一张声讨滚滚
网易网友：
不管说的是谁，作为公众人物这样不负责任的行为应该受到每个人的谴责。说出这样的话就表明他的浅显，这种话也算幽默吗？没文化的低级趣味。这样的人还是名人？古今如是。人类社会的悲哀！
搜狐网友：
请记住你自己的角色，就算是玩笑，也不要开过了，因为在你来说是玩笑，可是听的人不一定这样认为，这种话可以在小范围说，但请不要对着几亿观众说！！！场合不一样，性质也就变了！
任你千批万骂，我是徐庶入曹营———一言不发沉默是金。能奈我何？倒不如“宠辱不惊，看庭前花开花落”。激愤之中，不乏冷静———
中华网网友：
实际上大家没有必要这样斤斤计较。我 上一页 [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
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)
%> |
用户登录 
新用户注册 