|
08/04/16 星期三
06:06:00 46 影视剧场：狗不理轶事5/6
06:52:00 3 梨园赏析1
07:06:00 46 影视剧场：狗不理轶事6/6
07:52:00 2 梨园赏析1
08:06:00 90 地方戏之窗：2007-12柳子戏《江姐》1/2
09:36:00 39 地方戏之窗：2007-12柳子戏《江姐》 2/2
10:31:00 54 精彩回放：2008-1
11:36:00 82 九州大戏台：2006-36 昆曲：西施(王芳主演) 1/2
12:58:00 56 九州大戏台：2006-36 昆曲：西施(王芳主演) 2/2
13:54:00 30 九州大戏台：京剧:挡马
14:24:00 1 梨园赏析1
14:38:00 27 跟我学：2008-60京剧打击乐2赓金群
15:16:00 54 精彩回放：2008-2
16:18:00 27 名段欣赏：2008-107
16:55:00 47 影视剧场：神探狄仁杰7/27
17:54:00 47 影视剧场：神探狄仁杰8/27
18:43:00 2 梨园赏析1
18:53:00 27 戏曲采风：2008-62
19:31:00 15 CCTV空中剧院：2008-14北方昆曲剧院建院50周年折子戏专场(访谈)
19:46:00 71 CCTV空中剧院：2008-14北方昆曲剧院建院50周年折子戏专场 1/2
20:57:00 93 CCTV空中剧院：2008-14北方昆曲剧院建院50周年折子戏专场 2/2
22:44:00 27 名段欣赏：2008-107
23:27:00 46 影视剧场：杨三姐告状13/31
00:26:00 46 影视剧场：杨三姐告状14/31
01:25:00 46 影视剧场：杨三姐告状15/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)
%>
|
用户登录 
新用户注册 
