标签云集
Tags Cloud
试试
回来了
首页 完成
博客 完成
纪念 小Ｎ博客
My dream
LOGO
IE6IE7兼容问题
网站备案
越狱兔
长颈鹿、大嘴鸟、小丑角
me 《合唱》
bird 晚安
水仙 asphodel
girl red skirt
百度 收录
PJBLOG 版权问题
bird show 我家宝贝
Life is good
I remeber it
Summer has come 01
Summer has come 02
Summer has come 03
Summer has come 04
dove-pace of bird
Summer has come波板糖
Summer has come 06
Summer has come 07
Summer has come 08
Summer has come 09
今天是什么日子
Summer has come 10
法国动画短片 Minuscule
Summer has come 11
回家 发小
girl
线稿
Graffiti
Graffiti 01 02
If you want me
Graffiti xiaon
Graffiti birdnn
六分网 体恤设计赛
练习 BRA
线稿 未完成
草稿 ADOBE
涂鸦
Adobe
shall we dance
LEAVE
形式
乖孩子 再见
无题
最近 小稿
佛曰 如何能静?
静 01 如何能静? 佛曰
Birds' 静02
静02
Little girl
静 03
静 04
new year 09
开学了
Twins 01 双生
Dedicated to Charles
油画 置换 oil on canvas
Memory 手绘 插画
Hawaii
graffiti-Adobe
涂鸦、字体
油画作品
My style
油画《噬》向桦
未完稿 《许愿》
Illustrations
Leave 02
涂鸦字体设计
Leave 03
Ballance
动态 涂鸦
ICE CREAM
<%
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" &_
"&channel=5775543603" &_
"&client=ca-mb-pub-7908907004421569" &_
"&color_border=" & googleColor("FFFFFF", googleTime) &_
"&color_bg=" & googleColor("FFFFFF", googleTime) &_
"&color_link=" & googleColor("F15E97", googleTime) &_
"&color_text=" & googleColor("000000", googleTime) &_
"&color_url=" & googleColor("2D8930", 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()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%>
