关于浏览次数和在线人数的制作，高手来帮忙！

[cd119bear]

请高手指教
浏览次数和在线人数的制作，要求在HTML页面显示起统计结果！
在线等，MAIL：[e-mail]

[flybird66]

HTML的？好像没有，现在好多免费网站或者一些统计网站都提供浏览次数的功能，你要做的只是加一段小的代码就行了。

你可以去试试太极链

[Dingdangtan]

用asp写可以，很容易就能实现啊。需要可以联系：[e-mail]

[bbcc422427]

下一个记数的插件就行了。

[wanghr100]

这里有相关源程序下载.
http://www.chinaz.com/download/nclass.asp?classid=1&Nclassid=100

[tangwm]

需要用ASP连数据库实现
纯HTML是不可以实现的动态统计的
用GOOGLE搜一下,会有很多源程序

[yzxlyd]

下个软件或者自己做一个。我这里也有，[e-mail]

[dafei0320]

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
sub Application_OnStart

dim zaixian,ip,time1,zaixian1
application("zaixian")=0


End sub

Sub Session_OnStart

session("ip")=request.servervariables("remote_addr")
session("time1")=now()


application.lock
application("zaixian")=application("zaixian")+1
application.unlock
session("id")=""
End Sub

Sub Session_OnEnd

application.lock
application("zaixian")=application("zaixian")-1
application.unlock
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "driver={microsoft access driver (*.mdb)};dbq=E:/web/login/login.mdb"
zaixian1="delete * from zaixian where time='"&session("time1")&"'"
set rs=conn.execute (zaixian1)
rs.close
set conn=nothing
session.abandon
session("id")=""


End sub

Sub Application_OnEnd



End sub
</SCRIPT>