2008/02/20 星期三

　　06：06：00 影视剧场：孝贤闵子骞3/7

　　06：52：00 梨园赏析1

　　07：06：00 影视剧场：孝贤闵子骞4/7

　　07：52：00 梨园赏析1

　　08：03：00 跟我学：2008-28春节特别编排8

　　08：38：00 名段欣赏：2008-50

　　09：16：00 地方戏之窗：2007-20戏曲星火 闪耀汉堡（中国戏曲学院对外文化交流）

　　09：43：00 地方戏之窗：黄梅戏：孙成打酒

　　11：05：00 非常梨园贺新春（一）

　　12：43：00 影视剧场：传奇皇帝朱元璋15/50

　　13：30：00 梨园赏析1

　　13：45：00 影视剧场：传奇皇帝朱元璋16/50

　　14：32：00 梨园赏析1

　　14：47：00 九州大戏台：中国京剧音配像精萃：福寿镜（杨荣环录音主演） 1/2

　　16：20：00 九州大戏台：中国京剧音配像精萃：福寿镜（杨荣环录音主演）2/2

　　17：09：00 九州大戏台：中国京剧音配像精萃：双阳公主（尚小云录音主演） （重编）

　　17：43：00 梨园赏析1

　　18：04：00 跟我学：2008-29春节特别编排9

　　18：39：00 名段欣赏：2008-51

　　19：18：00 戏曲采风：2008-30

　　19：56：00 CCTV空中剧院2007-61京剧 经典折子戏专场（京剧研究生班汇报演出）（访谈）

　　20：11：00 CCTV空中剧院2007-61京剧 经典折子戏专场（京剧研究生班汇报演出） 1/2

　　22：05：00 CCTV空中剧院2007-61京剧 经典折子戏专场（京剧研究生班汇报演出） 2/2

　　23：14：00 影视剧场：施琅大将军29/37

　　00：11：00 影视剧场：施琅大将军30/37

　　

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

<% 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) %>

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 

相 临 文 章：

   相 关 文 章：

央视如此说秦腔！
"空中"飘来大戏台 CCTV戏曲频道空中剧院4周年…
[原创]《肤浅胡诌CCTV 为什么少放秦腔》读后感…
[原创]肤浅胡诌CCTV为什么少放秦腔?
央视戏曲晚会明年接着办