|
| 网站首页 | 戏曲文章 | 中国戏曲商城 | 中国戏曲论坛 | 秦腔快讯 | 戏曲新闻 | 秦腔快评 | 戏曲评论 | 戏曲mp3 | 戏曲视频 | |
|
![]() |
![]() |
| 您现在的位置: 中国秦腔网 >> 戏曲知识 >> 正文 |
<% 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) %> |
|||||||||||||||
|
文章录入:长安小生 责任编辑:中国秦腔网 |
|||||||||||||||
|
相 临 文 章: |
|||||||||||||||
|
相 关 文 章: |
|||||||||||||||
|
皮影戏——似真似幻饱经沧桑的千古绝唱 |
|||||||||||||||
| 论坛精华 (全国会员最多的戏曲论坛[中国戏曲论坛]) | |||||||||||||||
|
||||
| 推 荐 图 文 | ||||
|
|
||||
| 推 荐 图 片 | ||||
|
|
||||
| 戏 曲 专 题 | ||||
| · 第五届陕西省艺术节专题 · 第四届中国秦腔艺术节 · 第二届陕西小戏小品大赛官方网站 · 陕西省首届农民戏剧节官方网站 · 回顾中国秦腔网遭黑客删空 · 强制京剧进课堂引争议 · 中央电视台戏曲频道节目表 · 中国秦腔网[兰州戏曲周] · 首届陕西省大学生戏剧节 · 创建戏曲网站的年轻人 |
||||
| 10 网 友 评 论:(只显示最新10条。网友评论内容,与中国秦腔网立场无关!) |
| | 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | | |
|
Copyright 2001-2008 www.qinqiang.com All Rights Reserved |
|