| [原创]《肤浅胡诌CCTV 为什么少放秦腔》读后感 |
|
|
|
作者:慷慨悲歌 来源:中国秦腔网 时间:2006-4-9 3:21:28 |
|
《肤浅胡诌CCTV为什么少放秦腔?》详细内容>>>
[本文由网友[慷慨悲歌]在2006-4-9 20:48发表于中国秦腔网-中国戏曲论坛,个人观点不代表本站立场!]
《肤浅胡诌CCTV为什么少放秦腔?》读后感 相关评论>>>
上一页 [1] [2] [3] [4] [5] [6] [7] [8]
<%
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)
%> |
|
文章录入:中国秦腔网 责任编辑:中国秦腔网 |
|
【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|
相 临 文 章: |
上一篇文章: [原创]秦腔源于甘肃还是陕西? 下一篇文章: 关注传统艺术:少名家缺资金 川剧闹“本”荒… |
|
相 关 文 章: |
|
中央电视台戏曲频道一周节目表(2008.02.18--02.24) 央视如此说秦腔! "空中"飘来大戏台 CCTV戏曲频道空中剧院4周年… [原创]肤浅胡诌CCTV为什么少放秦腔? 央视戏曲晚会明年接着办
|
| 论坛精华 (全国会员最多的戏曲论坛[中国戏曲论坛]) |
|
|