| 2006年1月2日-8日中央电视台戏曲频道节目单 |
|
|
|
作者：未知 来源：中央电视台 时间：2006-1-1 16:49:02 |
|
2006/01/03 星期二
06:00:00 十一套广告15'45
06:06:00 影视剧场：中国公主杜兰朵1/3
06:52:00 梨园赏析1
06:54:00 十一套广告：28'20
07:02:00 跟我学：2006—2
07:29:00 十一套广告38'30
07:37:00 名段欣赏：2006—2
08:04:00 十一套广告48'15
08:12:00 戏曲采风2006-1
08:39:00 十一套广告510'45
08:50:00 九州大戏台：九州大戏台特别节目：《京剧经典剧目回放》1/2
10:23:00 九州大戏台：九州大戏台特别节目：《京剧经典剧目回放》2/2
11:55:00 十一套广告68'05
12:05:00 十一套广告73'20
12:08:00 跟我学：2006—2
12:35:00 十一套广告88'30
12:43:00 名段欣赏：2006—2
13:10:00 十一套广告98'15
13:18:00 戏曲采风2006-1
13:45:00 十一套广告1010'35
13:56:00 CCTV空中剧院：2005-43豫剧:朝阳沟1/2
15:04:00 CCTV空中剧院：2005-43豫剧:朝阳沟2/2
16:13:00 CCTV空中剧院：2004-22京剧:借扇（董文华主演）
16:46:00 九州大戏台：京剧旦角联唱（袁慧琴、刘桂娟等演唱）
16:56:00 梨园赏析1
17:00:00 十一套广告118'05
17:10:00 十一套广告125'45
17:16:00 电视剧：佘赛花4/8
18:03:00 梨园赏析1
18:05:00 十一套广告138'20
18:13:00 跟我学：2006—2
18:40:00 十一套广告14
18:45:00 十一套广告153'30
18:48:00 名段欣赏：2006—3
19:15:00 十一套广告16
19:20:00 CCTV空中剧院：2006—3京剧:望江亭1/2
20:25:00 CCTV空中剧院：2006—3京剧:望江亭：2/2
21:30:00 CCTV空中剧院：2003-36京剧：三岔口
21:59:00 CCTV空中剧院：2004-36京剧:金翅大鹏(张幼麟主演)
22:21:00 十一套广告178'20
22:29:00 戏曲采风2006-1
22:56:00 十一套广告188'20
23:04:00 戏苑百家2006-1
23:31:00 十一套广告1910'45
23:42:00 影视剧场：毛泽东和杨开慧4/8
上一页 [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
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)
%> |
|
文章录入：长安小生 责任编辑：长安小生 |
|
【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|
相 临 文 章： |
上一篇文章： 甘肃百通影视发展有限公司简介
下一篇文章： 秦腔入选第一批国家非物质文化遗产名录 |
|
相 关 文 章： |
|
2006年1月16日-22日中央电视台戏曲频道节目单
2006年1月9日-15日中央电视台戏曲频道节目单
|
| 论坛精华 (全国会员最多的戏曲论坛[中国戏曲论坛]) |
|
|
用户登录 
新用户注册 