08/04/15 星期二		

06:06:00	47	影视剧场：狗不理轶事3/6
06:53:00	2	梨园赏析1
07:06:00	46	影视剧场：狗不理轶事4/6
07:52:00	2	梨园赏析1
08:06:00	71	九州大戏台：京剧：碧波仙子 (刘山丽、包飞主演)1/2
09:17:00	54	九州大戏台：京剧：碧波仙子 (刘山丽、包飞主演)2/2
10:11:00	4	梨园赏析1
10:31:00	54	精彩回放：2008-1
11:36:00	100	九州大戏台：中国京剧音配像精萃:梁红玉(尚派)(重编)1/2
13:16:00	56	九州大戏台：中国京剧音配像精萃:梁红玉(尚派)(重编)2/2
14:12:00	12	九州大戏台：京剧:赵氏孤儿(张克选场)
14:24:00	1	梨园赏析1
14:38:00	27	戏曲采风：2008-61
15:16:00	54	精彩回放：2008-1
16:18:00	27	名段欣赏：2008-106
16:55:00	47	影视剧场：神探狄仁杰5/27
17:54:00	47	影视剧场：神探狄仁杰6/27
18:43:00	2	梨园赏析1
18:53:00	27	跟我学：2008-60京剧打击乐2赓金群
19:28:00	57	戏苑百家：2008-16
20:36:00	90	九州大戏台：2008-22《香飘四海》--第十八届上海白玉兰戏剧表演奖颁奖晚会
22:06:00	36	九州大戏台：京剧:十八罗汉斗悟空
22:56:00	27	名段欣赏：2008-106
23:39:00	46	影视剧场：杨三姐告状10/31
00:38:00	46	影视剧场：杨三姐告状11/31
01:37:00	46	影视剧场：杨三姐告状12/31

上一页  [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)
                                                                        %>

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

相 临 文 章：

   相 关 文 章：

中央电视台戏曲频道一周节目表(2008.03.24--03.30)
中央电视台戏曲频道一周节目表(2008.03.24--03.30)
中央电视台戏曲频道一周节目表(2008.03.17--03.23)
中央电视台戏曲频道一周节目表(2008.03.017--03.23)
中央电视台戏曲频道一周节目表(2008.03.03--03.09)
中央电视台戏曲频道一周节目表(2008.02.25--03.02)