|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。假如你跟我一样，本人的主页是供应各类图片服务的，那末晓得哪些图片受接待，哪些不受接待是相称有需要的。在这里，向人人先容一下我用ASP怎样办理这个成绩的。 我们起首来剖析一下。一样平常作为图片站点，起首显现出来的是一些小尺寸的缩略图，点击后才显现出年夜图。因而，我们能够在小图与年夜图之间的链接上做文章，让小图的链接指向一个ASP文件，由这个ASP文件将点击纪录上去，然后再显现出年夜图，道理是相称复杂的。
起首，我们要创建一个用来纪录点击的数据库文件，我用的是ACCESS97，别的的数据库也能够。在这个库中，只必要一个表，取名就叫1吧。数据库字段有三个：picturename（字符型），clicktimes（数字型），starttime（日期型），第一个是图片的名字，第二个是点击的总次数，第三个是第一次点击的工夫。注重，字段名不克不及用汉字。
建好库后，接上去是界面和程序的体例。在FrontPage2000中新建一个HTML文件，拔出几张图片，并用缩略图功效把它缩成小图，保留。再新建一个ASP文件，它的源代码以下：
<％Server.ScriptTimeOut=60//设置超不时间
Response.Expires=0％>//设置网页的过时工夫为0
<!－－＃includefile=″adovbs.inc″－－>//调进VB常量申明文件
<％
Dimpicturename1,clicktimes1,starttime1//声名用来保留数据的变量。
Dimconnection,record //声名用来翻开数据库的变量。
Picturename1=Request.QueryString(″picturename″)//获得图片的名字。
Setconnection=Server.CreateObject(″ADODB.Connection″)
Setrecord=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.Openmydsn
//以上这些是翻开数据库的操纵。个中access.dsn是一个ACCESS数据库的设置文件。
上面，我们要获得在数据库中图片名字对应的点击次数。起首在库中查找有无这个名字。
sql=″SElect＊from1wherepicturename=′″＆picturename1＆″′″//构建SQL语句。
Record.opensql,connection//实行SQL查询
查询后，我们要判别一下库中有无对应的纪录。假如没有就要新建一个：
ifrecord.EOF=truethen
thistime=1
currenttime=date
Record.close()//封闭record这个工具,上面要从头以另外一种体例翻开
sql=″insertinto1(picname,clicktimes,starttime)values(′″＆picturename1＆″′,′″＆thistime＆″′,′″＆currenttime＆″′)″ ′构建SQL拔出语句
setrecord=connection.Execute(sql)
else
totaltimes=cint(record(″clicktimes″))//从数据库中获得之前存进的点击次数
totaltimes=totaltimes＋1//加上这一次
record(″clicktimes″)=totoletimes//从头赋值
record.updata()//更新数据库中的纪录
endif
％>
以上，点击纪录的事情就基础上完成了，万万别忘了，还要把图显现出来。这也很复杂，只需在<body>与</body>间到场一句>就能够了。假如必要的话，还能够写上总的点击次数：<％Response.Writepicturename1＆″这幅图片统共被点击″＆totaltimes＆″次″％>
到此为止，ASP部分就完成了。在前一个HTML文件中还要作些小修改。把一切的
<ahref=″文件名″></a>
统统都改成<ahref=″jilu.asp?picturename=文件名></a>个中jilu.asp是方才的谁人ASP文件名。
假如就纪录点击情形而言，下面这些基础上就充足了。可是如许纪录下的的了局必要下载上去才晓得，这仿佛有点太原始了。以是上面还要到场在线统计的功效。
用来统计的程序，应当可以按升序或降序分列纪录，显现天天的点击率，假如条目太多，另有需要到场翻页功效。
检察统计只是让站长做的事情，以是设置一个暗码是很有需要的。因而，新建一个HTML文件，拔出一个表单：
<formmethod=″POST″action=″tongji.asp″>
<p><inputtype=″radio″value=″升″checkedname=″R1″>升序分列
<inputtype=″radio″name=″R1″value=″降″>降序分列</p>
<p><inputtype=″text″name=″T1″size=″20″><inputtype=″submit″value=″提交″name=″B1″><inputtype=″reset″value=″全体重写″name=″B2″></p>
<p> </p>
</form>
上面是tongji.asp的内容：
<％
if(request.From(T1)″1234″)then
response.write″你不克不及进进！！！″
response.end
endif
Setconnection=Server.CreateObject(″ADODB.Connection″)
Setrecord=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.Openmydsn
ifrequest.Form(R1)=″升″ then
sql=″select＊from1orderbyclicktimes″
Else
Sql=″select＊from1orderbyclicktimesDESC″
Endif
Record.opensql,connection//实行SQL
cuttenttime=date
％>
上面是显现的部分,这里用一个表格来分开各类数据：
<tableborder=″1″width=″100％″>
<％whilerecord.eof=false
ifrecord(″clicktimes″)=0thenrecord.MoveNext％>//在数据库中有一些数据其实不一般,要扫除它们。
<tr>
<tdwidth=″33％″><％=record(″picname″)％> </td>
<tdwidth=″33％″><％=record(″clicktimes″)％> </td>
<tdwidth=″34％″><％=csng(record(″clicktimes″)/(datediff(″d″,record(″starttime″),currenttime,0,0)＋1))％> </td>
</tr>
<％
record.MoveNext//游标向下移
wend％>
</table>
到这里，一个复杂的图片点击纪录、统计的ASP程序就完成了，但愿人人在这个基本上添油加醋.
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。 |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 22:40:58
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
窥视卡
雷达卡
发表于 2015-2-8 01:14:55