艺术迷（fansart.com） 首页 收藏本站 RSS频道
艺术迷首页 -> 网页设计 -> asp统计图片的点击率--asp 编程技术

asp统计图片的点击率--asp 编程技术

2006-4-4　　　作者：　　　来源：互联网
页面功能： 【评论】 【有错就点】 【字体：大 中 小】 【打印】 【关闭】 【收藏本页】
asp 编程技术，asp统计图片的点击率

统计图片的点击率

如果你跟我一样，自己的主页是提供各种图片服务的，那么知道哪些图片受欢迎，哪些不受欢迎是相当有必要的。在这里，向大家介绍一下我用ASP如何解决这个问题的。

　　我们首先来分析一下。一般作为图片站点，首先显示出来的是一些小尺寸的缩略图，点击后才显示出大图。因此，我们可以在小图与大图之间的链接上做文章，让小图的链接指向一个ASP文件，由这个ASP文件将点击记录下来，然后再显示出大图，原理是相当简单的。

　　首先，我们要建立一个用来记录点击的数据库文件，我用的是ACCESS97，其它的数据库也可以。在这个库中，只需要一个表，取名就叫1吧。数据库字段有三个：picturename（字符型），clicktimes（数字型），starttime（日期型），第一个是图片的名字，第二个是点击的总次数，第三个是第一次点击的时间。注意，字段名不能用汉字。

　　建好库后，接下来是界面和程序的编制。在FrontPage2000中新建一个HTML文件，插入几张图片，并用缩略图功能把它缩成小图，保存。再新建一个ASP文件，它的源代码如下：

　　<％ Server.ScriptTimeOut = 60 //设置超时时间
　　 Response.Expires =0％> //设置网页的过期时间为0
　　<!－－＃include file =″adovbs.inc″ －－> //调入VB常量说明文件
　　<％
　　Dim picturename1‚clicktimes1‚starttime1 //申明用来保存数据的变量。
　　Dim connection‚record　//申明用来打开数据库的变量。
　　Picturename1= Request.QueryString(″picturename″)//取得图片的名字。
　　Set connection = Server.CreateObject(″ADODB.Connection″)
　　 Set record= Server.CreateObject(″ADODB.Recordset″)
　　 Record.locktype=3 //设置record对象的锁定方式
　　 Record.cursortype=adopenforwardonly //设置游标的方向只能向前
　　 dsn =server.MapPath(″access.dsn″) //取得access.dsn在服务器的路径
　　mdb=server.mappath(″click.mdb″) 　　//取得click.mdb的路径
　　mydsn=″filedsn=″＋dsn＋″;dbq=″＋mdb＋″;″
　　connection.Open mydsn
　　//以上这些是打开数据库的操作。其中access.dsn是一个ACCESS数据库的配置文件。

　　下面，我们要取得在数据库中图片名字对应的点击次数。首先在库中查找有没有这个名字。
　　sql=″SElect ＊ from 1 where picturename=′″＆picturename1＆″′″ //构建SQL语句。
　　Record.open sql‚ connection //执行SQL查询
　　查询后，我们要判断一下库中有没有对应的记录。如果没有就要新建一个：
　　if record.EOF=true then
　　thistime=1
　　currenttime=date
　　Record.close() //关闭record这个对象‚下面要重新以另一种方式打开
　　sql=″insert into 1(picname‚clicktimes‚starttime) values(′″＆picturename1＆″′‚′″＆thistime＆″′‚′″＆currenttime＆″′)″　′构建SQL插入语句
　　set record=connection.Execute(sql)
　　else
　　totaltimes=cint(record(″clicktimes″)) //从数据库中取得以前存入的点击次数
　　totaltimes=totaltimes＋1 //加上这一次
　　record(″clicktimes″)=totoletimes //重新赋值
　　record.updata() //更新数据库中的记录
　　endif
　　％>

　　以上，点击记录的工作就基本上完成了，千万别忘了，还要把图显示出来。这也很简单，只需在<body>与</body>间加入一句 <img border =″0″ src=″<％=picturename1％> >就可以了。如果需要的话，还可以写上总的点击次数：<％ Response.Write picturename1＆″这幅图片总共被点击″＆totaltimes＆″次″ ％>

　　到此为止，ASP部分就完成了。在前一个HTML文件中还要作些小改动。把所有的
　　<a href=″文件名″><img border=″0″ src=″文件名_small.jpg″ alt=″文件名.jpg (48344 字节)″ width=″120″ height=″98″></a>

　　通通都改成<a href=″jilu.asp?picturename=文件名><img border=″0″ src=″文件名_small.jpg″ alt=″文件名.jpg (48344 字节)″ width=″120″ height=″98″></a>其中jilu.asp是刚才的那个ASP文件名。

　　如果就记录点击情况而言，上面这些基本上就足够了。但是这样记录下的的结果需要下载下来才知道，这似乎有点太原始了。所以下面还要加入在线统计的功能。

　　用来统计的程序，应该能够按升序或降序排列记录，显示每天的点击率，如果条目太多，还有必要加入翻页功能。

　　查看统计只是让站长做的工作，所以设置一个密码是很有必要的。因此，新建一个HTML文件，插入一个表单：

　　<form method=″POST″ action=″tongji.asp″>
　　<p><input type=″radio″ value=″升″ checked name=″R1″>升序排列
　　<input type=″radio″ name=″R1″ value=″降″>降序排列</p>
　　<p><input type=″text″ name=″T1″ size=″20″><input type=″submit″ value=″提交″ name=″B1″><input type=″reset″ value=″全部重写″ name=″B2″></p>
　　<p>　</p>
　　</form>

　　下面是tongji.asp的内容：
　　<％
　　if (request.From(T1)<>″1234″) then
　　response.write ″你不能进入！！！″
　　response.end
　　end if
　　Set connection = Server.CreateObject(″ADODB.Connection″)
　　Set record= Server.CreateObject(″ADODB.Recordset″)
　　Record.locktype=3 　
　　Record.cursortype=adopenforwardonly
　　dsn =server.MapPath(″access.dsn″)
　　mdb=server.mappath(″click.mdb″) 　　
　　mydsn=″filedsn=″＋dsn＋″;dbq=″＋mdb＋″;″
　　connection.Open mydsn
　　if request.Form(R1)=″升″　then
　　 sql=″select ＊ from 1 order by clicktimes″
　　Else
　　 Sql= ″select ＊ from 1 order by clicktimes DESC″
　　End if
　　 Record.open sql‚connection //执行SQL
　　cuttenttime=date
　　％>

　　下面是显示的部分‚这里用一个表格来分隔各种数据：
　　<table border=″1″ width=″100％″>
　　<％while record.eof =false
　　if record(″clicktimes″)=0 then record.MoveNext ％> //在数据库中有一些数据并不正常‚要排除它们。
　　<tr>
　　<td width=″33％″><％=record(″picname″)％> 　</td>
　　<td width=″33％″><％=record(″clicktimes″)％>　</td>
<td width=″34％″><％=csng( record(″clicktimes″)/(datediff(″d″‚record(″starttime″)‚currenttime‚0‚0)＋1))％>　</td>
　　</tr>
　　<％
　　record.MoveNext //游标向下移
　　wend％>　　
　　</table>

　　到这里，一个简单的图片点击记录、统计的ASP程序就完成了，希望大家在这个基础上添枝加叶.

页面功能： 【评论】 【有错就点】 【字体：大 中 小】 【打印】 【关闭】 【收藏本页】
在百度中搜索更多相关主题
用javascript连接access数据库2006-4-4
asp教你做小偷程序 容易学 2006-4-4
用ASP实现邮箱登陆的代码.源代码公开2006-4-4
多域名同一空间转向不同目录2006-4-4
多域名同一空间转向不同目录2006-4-4
asp统计图片的点击率2006-4-4
asp数组使用2006-4-4
asp中判断字符串的长度和取得指定长度字符串的两个方法（字符串包含双字节汉字）2006-4-4
ASP智能搜索的实现 2006-4-4
用asp生成PDF文件2006-4-4
网友评论
发表评论
您的姓名： 匿名发送
电子邮件：
评论内容：
不能超过100个字符

所有留言只代表网友个人观点，不代表本站观点。
请各位遵纪守法并注意语言文明。
新闻搜索
关 键 词：
搜索范围：
全站精华
图文精彩
清风楼书（一）[图]--平面广告
【2006-3-29 10:52:08】
清风楼书（一）
painter超级可爱的上色过程（韩国）[图]--CG插画
【2006-4-5 8:52:28】
painter超级可爱的上色过程（韩国）
古典楼书(精品欣赏)（1）[图]--平面广告
【2006-4-5 15:03:08】
古典楼书(精品欣赏)（1）
美国插画师kevindart作品(1)[图]--CG插画
【2006-4-11 15:34:43】
美国插画师kevindart作品(1)
美国插画师kevindart作品[图]--CG插画
【2006-4-11 15:37:32】
美国插画师kevindart作品
荷兰著名画家Anton
【2006-4-11 15:49:41】
荷兰著名画家Anton Pieck插画
非常可爱的儿童插画（1）[图]--CG插画
【2006-4-11 15:59:16】
非常可爱的儿童插画（1）
回忆紫禁城里那些逝去的[图]--中国艺术
【2006-4-11 16:34:31】
回忆紫禁城里那些逝去的
国粹京剧脸谱表情[图]--界面设计
【2006-4-11 17:51:33】
国粹京剧脸谱表情
高傲的玫瑰-温碧霞[图]--摄影艺术
【2006-4-12 8:58:34】
高傲的玫瑰-温碧霞
北邦插画欣赏（1）[图]--CG插画
【2006-4-13 9:49:02】
北邦插画欣赏（1）
yashasi插画作品欣赏[图]--CG插画
【2006-4-13 18:32:29】
yashasi插画作品欣赏
cg插画欣赏[图]--CG插画
【2006-4-14 9:21:18】
cg插画欣赏
溯源居广告欣赏--小红人[图]--平面广告
【2006-4-14 14:45:57】
溯源居广告欣赏--小红人
房地产广告设计-之水墨风格1[图]--平面广告
【2006-4-14 15:56:06】
房地产广告设计-之水墨风格1
泊林花园推广故事绘本（1）[图]--CG插画
【2006-4-20 11:34:33】
泊林花园推广故事绘本（1）
泊林花园推广故事绘本（2）[图]--CG插画
【2006-4-20 11:43:23】
泊林花园推广故事绘本（2）
万科西山庭院.格.沉.尊[图]--平面广告
【2006-4-21 9:08:35】
万科西山庭院.格.沉.尊
2006夏日流行时尚，创意无限街头华丽[图]--时装魅影
【2006-4-22 16:46:51】
2006夏日流行时尚，创意无限街头华丽
水木清华地产广告欣赏[图]--平面广告
【2006-4-26 9:31:54】
水木清华地产广告欣赏