我的随笔
读取Excel文件问题 Edwin dong 2010-04-16 12:19 阅读:185 评论:0
FileUpload 控件 禁止手动输入 Edwin dong 2009-03-11 16:26 阅读:843 评论:0
.net 工具箱不可用 解决方式 Edwin dong 2009-02-12 09:47 阅读:498 评论:2
javascript 判断是页面关闭还是页面刷新 Edwin dong 2008-04-25 14:26 阅读:5544 评论:6
DataList控件嵌套，激发内部控件事件 Edwin dong 2008-04-22 13:51 阅读:678 评论:3
开发环境不同引发的映射路径不正确的问题 Edwin dong 2007-11-02 10:11 阅读:240 评论:1
安装.net2005遇到的一系列问题 Edwin dong 2007-10-31 13:24 阅读:347 评论:1
.Net环境下的缓存技术介绍 （转） Edwin dong 2007-06-29 16:47 阅读:1999 评论:4
数据库中的字段为空时，使用isnull函数 Edwin dong 2007-06-26 17:08 阅读:11399 评论:2
查询数据库中满足条件的特定行数据 Edwin dong 2007-06-20 16:24 阅读:323 评论:0
使用FileUpload控件上传文件时对文件大小的限制 Edwin dong 2007-06-18 18:00 阅读:3190 评论:1
"无法在证书存储区中找到清单签名证书"的解决办法 Edwin dong 2007-06-06 16:23 阅读:5088 评论:4
使用消息框 Edwin dong 2007-05-31 14:35 阅读:302 评论:0
"无法在web服务器上启动调试，未将项目配置为进行调试"解决方法 Edwin dong 2007-05-24 17:24 阅读:2327 评论:3
使用FileUpload实现多个文件同时上传 Edwin dong 2007-05-15 16:49 阅读:2239 评论:6
'sys'未定义 Edwin dong 2007-05-12 10:54 阅读:2050 评论:2
net连接access数据库，输出结果到页面 Edwin dong 2007-05-11 09:46 阅读:395 评论:1
变相激发FileUpload事件 Edwin dong 2007-05-09 09:54 阅读:2866 评论:0
automation服务器不能创建对象 Edwin dong 2007-04-18 17:45 阅读:58261 评论: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
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-6539345765131754" &_
"&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)
%>
