鱼常游而忘飞

功能

可以完整详细地获得每一个用户点击广告的数据。包括点击时间，用户的IP，页面来源地址，被点击的广告网站地址，如果你的站点上保存了用户cookie的话，甚至可以查询到是哪位用户点了你的广告
用纯客户端javascript代码和AJAX技术实现点击监听和向服务端发送点击数据，服务端我用的是ASP脚本，只是用来保存点击数据和提供浏览器端的点击查询，可以更换为其他服务端脚本，如PHP，JSP等
数据保存方式为了简单，我用纯text文本保存，一行保存一条数据，数据字段用逗号分隔，这样方便用户将这个文本另存为csv格式，csv就能用excel打开了。
查看广告点击数据可设访问密码

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

Share and Enjoy:

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 [...]