落叶无痕 - 落の叶 - 和讯个人门户

主人：落の叶

统计信息

积　分：

等　级：

总访问量：

今日访问量：

分组|管理

所有好友[]

礼物盒

您还没有收到礼物，别着急
先去别人家转转

共收到[48]个礼物送礼物

最新访客

新家还没有客人来去别人家转转

相册

上传更多图片|

您还没有上传图片，请点击这里上传图片

博客

发表|管理

您还没有发表文章，请点击这里发表文章

伤心网恋[ 原创 2008-07-12 08:53:09 ]

伤心网恋念唠着你啊记挂着你我总停不下伤心的泪滴网海茫茫你到底在哪里愉快的聊天情景历历...
[阅读全文]

2008-07-12 01:12

2008-07-06 00:53

2008-06-03 12:52

2008-06-01 13:54

2008-05-31 11:51

2008-05-28 18:49

2008-05-26 22:59

2008-05-23 11:33

被埋女生仍为人着想：阿姨快出去,这里危险..

2008-05-23 11:28

2008-05-21 11:11

2008-04-20 22:06

2008-04-06 00:46

2008-04-01 11:05

2008-03-15 14:22

2008-03-14 20:04

2008-03-08 14:20

2008-03-07 18:28

2008-03-04 14:08

2008-02-25 00:21

2008-02-11 22:59

2008-02-04 20:20

2008-01-25 18:15

2008-01-16 15:59

2008-01-10 14:23

2008-01-04 22:05

2007-12-30 23:31

2007-12-28 23:45

2007-12-26 23:10

2007-12-26 21:47

2007-12-26 01:13

2007-12-25 01:21

2007-12-24 13:01

2007-12-23 23:53

2007-12-23 01:41

2007-12-22 16:14

2007-12-20 14:09

2007-12-19 20:29

2007-12-19 18:55

^.^

<% 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=8372931397" &_ "&client=ca-mb-pub-8508324596156081" &_ "&dt=" & googleDt &_ "&format=mobile_double" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=gb" &_ "&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) %>