求教如何统计网站某项目的点击率

[LW1981]

各位高手!!
求教如何统计网站某项目的点击率
!!!!!!!!!!

[thatday2008]

建立一个数据库
把要统计的项目名称分别存入

如新建Count.mdb:
Item Value
BBS 0
Meeting 0
... ...


在meet.asp页面加入
<%
Conn.execute("Update Set Value=Value+1 Where Item='Meeting'")
%>

[zyddamon]

楼上正解

[hbhbhbhbhb1021]

楼上是常用的方法，还可以用FSO存在其他文件上，每次访问再更新下，不过没上面那个好

[dingjin_dj]

如果是单一项目，完全可以存在其它的文件上，比如txt文件。
每当点击时，都让这个数加一。也很方便的。

[ggandww]

把下列代码放在一个文件中，在每个项目的初始进入页面，包含这个文件：
<table cellspacing="0" cellpadding="0" border=0 align="center">
<tr >
<td align="center">
<%
'变量元素
Dim fsoObject '文件系统对象
Dim tsObject '文字系统对象
Dim filObject '文件对象
Dim lngVisitorNumber '保存来访者数量
Dim intDisplayDigitsLoopCount '循环计数显示


On Error Resume Next

lngVisitorNumber = 0

Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

Set filObject = fsoObject.GetFile(Server.MapPath("visitor_counter.txt"))

Set tsObject = filObject.OpenAsTextStream

lngVisitorNumber = CLng(tsObject.ReadAll)


If Session("lngSessionVisitorNum") = "" Then

'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1

'Place the Visitor number in the session visitor number
Session("lngSessionVisitorNum") = lngVisitorNumber

Else

'Place the Visitor number in the session visitor number
Session("lngSessionVisitorNum") = lngVisitorNumber
End if


Set tsObject = fsoObject.CreateTextFile((Server.MapPath("visitor_counter.txt")), True)

tsObject.Write CStr(lngVisitorNumber)

Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing

'************你可以自由修改下面一行中的计数器文字说明************
Response.Write "<font color=#000000>::您是第</font>"
%>
<font color="#000000"><%=lngVisitorNumber%>位访客::</font>

</td>
</tr>
</table>


还有就是建立一个文本文件visitor_counter.txt，放置访问数的。

[好记忆不如烂笔头abc]

http://www.adjyc.com/about.htm
用户可以自己定义防刷新时间，根据独立IP、机器名和真实IP三者作限制，记录访问者停留时间，不受cookie的影响！
引入浏览量和访问量的概念。您可以自己看。
可以试用7天的，如果你觉得符合自己要求，建议看看！

[LW1981]

大家给出的办法都可行，我不知道该给谁加分啊