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

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

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

相 临 文 章：

   相 关 文 章：

茅威涛代表建议把传统艺术纳入国民教育体系
“浙江的骄傲”：茅威涛[图]
集体当了回学生 杭州高中音乐老师学京剧[图]…
电视剧《舞台姐妹》BTV-4热播 导演遗憾茅威涛没露面…
百年越剧：沧桑历尽吐芬芳
要培养出章子怡也要培养出茅威涛
越剧：“三朵金花”聚首戏曲电视剧《李清照》
小百花越剧团新版“梁祝”今日广州上演
"小别重逢又是欢喜又是悲" 观茅威涛版梁祝的思恋…
名嘴四大质疑名角毫不领情 新《梁祝》"茅曹争"…
茅威涛且慢称“派”
越剧《梁祝》用新视角讲老故事
茅威涛：走进剧场就一定会喜欢越剧
茅威涛率小百花巡演来京共庆越剧百年
新编《梁祝》：越剧百年的大胆尝试
浙江给中国越剧百年的两份礼物
2006越剧新版《梁祝》 向经典的一次致敬或者冒险…
茅威涛赵志刚萧雅争奇斗艳　“百年越剧万里行”下周末在沪举行