Html页面如何统计在线人数?我的空间支持asp,但首页是html的

[dachangtui]

我尝试用global.asa和online.asp(online.asp中只有一条写"当前在线:xxx人"的语句),在首页中用<iframe>调用online.asp,好像不行,也可能是我的方法不对!

请大家帮忙!最好不要用数据库.
顶者有分!

[wanliang2001]

学习！！！

[wanghr100]

1.20分钟是默认的session失效时间
2.如果是记录在线人数,一般都是用这种方法.
如果是记录注册用户在线的话,也有用定时刷新的方法.

3. FSO FileSystemObject 偶的那种方法不是.

FSO: 实现统计访问次数

demo.htm

<Script Language="JavaScript" src="test.asp"></script>

test.asp

<%
CountFile=Server.MapPath("counter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
%>
document.write("您是第")
document.write("<font color=red>")
document.write("<%=counter%>")
document.write("</font>")
document.write("位访问者")
<%
Out.Close
%>

counter.txt 用于存储数据.
0

[wanghr100]

看看这贴子.
http://expert.csdn.net/Expert/topic/2999/2999450.xml?temp=.3065302

[dachangtui]

多谢 wanghr100(灰豆宝宝.net)
结贴!
不好意思,分数少了点!
不过,我记住你了.你厉害!

[chhwang]

include

fso

[liuyangxuan]

FSO读取，
FSO写入！

[wanghr100]

global.asa

<Script Language="VBScript" Runat="Server">
Sub Application_OnStart
Application("useronline") = 0
End Sub

Sub Session_OnStart
Application.Lock
Application("useronline")=Application("useronline")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("useronline")=Application("useronline")-1
Application.UnLock
End Sub

Sub Application_OnEnd
End Sub
</script>


online.asp

document.write('<%=Application("useronline")%>')


demo.htm

<script language="JavaScript" src="online.asp"></script>

[dachangtui]

多谢 wanghr100(灰豆宝宝.net),另外我还想进一步问一下:

1,这个在线人数是不是以session的过期时间为准的,也就是20分钟内的在线人数?
3,如果在线人数在1000以上,这样是不是很占用服务器资源?
2,我不知道什么是FSO,这种方法是不是就是FSO写入,FSO读取?

请指点一下,谢谢!

[ken1]

fso－－－－－－－－－file system object