弹弓犯法:asp点击次数统计,高分求教!!!!!!

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 23:56:54
我要实现如下效果:
点击链接,通过hit字段存储点击次数,注:链接为外部的链接,不是站内的链接.
请给出代码,万分感激!!!
高分给你!

先假定你只有一个连接指向www.baidu.com,数据库表名save,字段名hit。

放连接的页面加入一个iframe定义如下:

<iframe name=save style="display: none"></iframe>

你的连接定义如下:

<a href="www.baidu.com" target="_blank" onclick="save.src='save.asp';">www.baidu.com</a>

建立一个save.asp内容如下:

<%
'你的数据库连接代码放在这里
conn.execute("update save set hit=hit+1")
%>

这样就可完成最基本的功能。

如果是多个连接,建议在数据库save中新加字段link,每个链接一条记录分别存储点击次数。在显示链接的时候这样:

<%

'链接数据库的代码放在这里

set rs = Server.CreateObject("ADODB.RECORDSET")
rs.open "select * from save",conn,1,3

do while not rs.eof
response.write("<a href="""&rs("link")&""" target=""_blank"" onclick=""save.src='save.asp?link="&rs("link")&"';"">"&rs("link")&"</a>")
rs.movenext
loop

%>

save.asp内容如下:

<%
'数据库连接代码放在这里
conn.execute("update save set hit=hit+1 where link='"&request("link")&"'")
%>

试试看!

<%
dim getUrl,newhit
getUrl = request.servervariables("HTTP_REFER")

getUrls = split(getUrl,"/")

if getUrls(2)<>"你的域名(不包含'http://')" and getUrl<>"" then
dim conn,rs
'连接数据库

rs.open "select hit from myTable",conn,1,3
newhit = rs("hit") + 1
rs.update "hit",newhit
rs.close

end if
%>
思路是, 通过判断到达你的网页的链接页地址是否是本站的地址以及不是新开窗口,然后执行相关操作.

你可以先试试, 不行说下错误, 可以再改改.

不太清楚,占一下位,同样期待答案