。

上一页  [1] [2] [3] 

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

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

相 临 文 章：

   相 关 文 章：

河南戏曲名家携手贺新春
梅花绽放宝岛 观众如醉如狂…
河南卫视《梨园春》： 十二年收视神话…
河南电视台艺术团南美演出获成功 大使官发来感谢信…
河南农民自筹百万元 抢救地方戏曲…
台民众痛别布袋戏宗师 万众怀念举行公祭…
台湾小戏剧种介绍（上）
探寻河南戏曲“活化石”见证原汁原味“靠山簧”
50名戏迷抢先观看《鸡犬不宁》 情节感动戏迷当场落泪…
稀有戏曲剧种四平调焕发生机
厦门歌仔戏剧团今天赴台交流
汝方来罢吾即往 河南艺术家频频赴台交流…
茂澳两地情 粤剧一线牵…
戏弄经典城市对望：华人歌仔戏九月将聚会台北
“宏艺杯”晋剧票友大赛开赛喽
“梁祝”故事立于舞台　剧种不同风格各异
昆剧名家岳美缇台北推介新剧《司马相如》
两岸传统艺术名家将合作推出越剧《李清照》
河南许昌教育电视台:搭起农村戏曲大舞台