鱼常游而忘飞 » ASP http://www.oulan.com/w +++仿佛轻云应笑我--相携水岸弄朝霞--此生只为听天籁--坐拥书城看落花+++ Fri, 23 Jul 2010 02:41:49 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 用AJAX跟踪Google Adsense广告点击 http://www.oulan.com/w/2009/07/19/ajax-google-adsense/ http://www.oulan.com/w/2009/07/19/ajax-google-adsense/#comments Sun, 19 Jul 2009 12:58:07 +0000 Ou Lanhui http://www.oulan.com/w/?p=461 功能
  1. 可以完整详细地获得每一个用户点击广告的数据。包括点击时间，用户的IP，页面来源地址，被点击的广告网站地址，如果你的站点上保存了用户cookie的话，甚至可以查询到是哪位用户点了你的广告
  2. 用纯客户端javascript代码和AJAX技术实现点击监听和向服务端发送点击数据，服务端我用的是ASP脚本，只是用来保存点击数据和提供浏览器端的点击查询，可以更换为其他服务端脚本，如PHP，JSP等
  3. 数据保存方式为了简单，我用纯text文本保存，一行保存一条数据，数据字段用逗号分隔，这样方便用户将这个文本另存为csv格式，csv就能用excel打开了。
  4. 查看广告点击数据可设访问密码

http://www.duduwolf.com/post/google_adsense_click_logger.asp

]]> http://www.oulan.com/w/2009/07/19/ajax-google-adsense/feed/ 0 Godaddy主机ASP读写Cookie的方法 http://www.oulan.com/w/2009/06/17/godday-asp-cookie/ http://www.oulan.com/w/2009/06/17/godday-asp-cookie/#comments Wed, 17 Jun 2009 06:40:58 +0000 Ou Lanhui http://www.oulan.com/w/?p=116
Function BinaryToString(binData, CharSet)
Dim objStream
Dim strTmp
Const adTypeBinary = 1
Const adTypeText = 2
Const adModeReadWrite = 3
' init stream
Set objStream = Server.CreateObject("ADODB.Stream")
If CharSet<>"" Then
objStream.CharSet = CharSet
Else
Err.Raise vbObjectError + 1, "IllegalArgument", "Charset is required"
End If
objStream.Mode = adModeReadWrite
objStream.Type = adTypeBinary
objStream.Open
' write bytes into stream
objStream.Write binData
objStream.Flush
' rewind stream and read text
objStream.Position = 0
objStream.Type = adTypeText
strTmp = objStream.ReadText
' close up and return
objStream.Close
BinaryToString = strTmp

Set objStream = Nothing
End Function

Function convertCharSet(text, origCharset, newCharSet)
Dim binaryData
binaryData = StringToBinary(text, origCharset)
convertCharSet = BinaryToString(binaryData, newCharSet)
End Function

Function readCookies(cookie)
Dim cookieValue
cookieValue = Request.Cookies(cookie)
if "" = cookieValue then
readCookies = ""
else
readCookies = convertCharSet(cookieValue, "x-ansi", "utf-8")
end if
End Function

Function writeCookies(cookie, cookieValue)
dim asciiString
If cookieValue <> "" Then
asciiString = convertCharSet(cookieValue, "utf-8", "x-ansi")
Else
asciiString = ""
End If
Response.Cookies(cookie) = asciiString
If Request.ServerVariables("SERVER_NAME") = "你的主站" Then
Response.Cookies(cookie).Path = "/"
Else
Response.Cookies(cookie).Path = ""
End If
Response.Cookies(cookie).Expires=Date+60 '自己设置时长
writeCookies = asciiString
End Function

]]> http://www.oulan.com/w/2009/06/17/godday-asp-cookie/feed/ 0