关于计数器的问题！在线等待！！

Question

<script language=vbscript runat=server>
sub application_onstart
session.Timeout=3
application.Lock
application("whosOn")=0
application.UnLock
end subsub session_onstart
application.Lock
application("whoson")=application("whoson")+1
application.UnLock
end subsub session_onend
application.Lock
application("whoson")=application("whoson")-1
application.UnLock
end sub
</script>
存成global.asa

Answer 1

楼上的,这里是php版,使用文本设计,将访问数写道文本里

Answer 2

<?php
$file="count.dat";
if(@file_exists($file)){
    $fp=@file($file);
    $num=$fp[0];
    $f=fopen($file,"w+");
    $number=$num+1;
    fputs($f,$number);
}else{
    $f=fopen($file,"a+");
    fputs($fp,"0");
}
@fclose($f);
?>
您好<?=$_SERVER["REMOTE_ADDR"]?>，您是本站的第[<?=$number?>]位客人

Answer 3

<?php$counterFile = "counter.txt";
if (file_exists($counterFile)) //检查文件是否存在
{
$fp = fopen($counterFile,"r+");
$count = fgets($fp,6); //读取指定长度的字符
$count += 1;
rewind($fp); //使指针回到文件开始部分
fputs($fp,$count,6);
fclose($fp);
print "<table width=\"76\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"#00CC33\">
<tr bgcolor=\"#330033\">
<td>
<div style=\"font-family: 'Arial','Helvetica','sans-serif'; font-size: 9pt; font-weight: bold; color: #FFFFFF; letter-spacing: 2pt; text-align: center\">";
printf("%06d",$count);
print "</div></td></tr></table>";
}
else
{
$fp = fopen($counterFile,"w"); //建立文件
$count = "1";
fputs($fp,$count,5);
fclose($fp);
print "$count";
}
?>

Answer 4

修改唠叨代码：
------------
<?php
$file="count.dat";
if(@file_exists($file)){
    $fp=@file($file);
    $num=$fp[0]+1;
    $f=fopen($file,"w+");
    fputs($f,$num);
}else{
    $f=fopen($file,"a+");
    fputs($fp,"1");
    $num=1;
}
@fclose($f);
?>
您好<?=$_SERVER["REMOTE_ADDR"]?>，您是本站的第[<?=$num?>]位客人

Answer 5

弱弱的问，php好像没有application的，如果要显示在线人数怎么办？我是新手，请指教！

Answer 6

统计会话记录就行了 比如说  你的php.ini中设置的 session.save_path =/tmp/phpsession 你只需要
   浏览一下/tmp/phpsession内存在多少会话文件就知道有多少人同时在线了..
  如果纯粹的靠程序时间的话，就是将会话存放到数据仓库里进行处理统计就行了  数据仓库可以为文本文件可以为数据库系统~