网站总的访问统计 |
| 作者：佚名 来源：闪吧 作者: huayicai 更新：2007-1-13 21:00:55 错误报告 我要投稿 |
[flash+asp]
1.在第1帧中插入动态文本，并命名变量名为：count
2.新建一fla文件，在第2帧中插入关键帧，添加以下代码：
this.loadVariables("count.txt?num="+random(999));
这行代码是将count.txt文件load进flash里，待flash调用count.txt里的数据（就是访问的人数）
3.在第40帧中插入关键帧，添加以下代码：
4.在第1帧中插入关键帧，添加以下代码：
this.loadVariables("counter.asp?num="+random(99));
读取asp文件counter.asp,实现访问人数加1
5.asp文件代码如下：
<%
Option Explicit
dim path
’----读写文本文件内容函数
function counter(path)
dim fs,file_names,index_s,out
Set fs = CreateObject("Scripting.FileSystemObject")
Set file_names = fs.OpenTextFile(path)
index_s=file_names.readline
index_s=index_s+1
file_names.close
Set out=fs.CreateTextFile(path)
out.WriteLine(index_s)
out.close
set fs=nothing
end function
path=server.mappath("count.txt")
call counter(path)
%> 附源文件：
 点击浏览该文件
[flash+php]
1.在第1帧中插入动态文本，并命名变量名为：count
2.新建一fla文件，在第2帧中插入关键帧，添加以下代码：
this.loadVariables("count.txt?num="+random(999));
这行代码是将count.txt文件load进flash里，待flash调用count.txt里的数据（就是访问的人数）
3.在第40帧中插入关键帧，添加以下代码：
回放到第2帧
4.在第1帧中插入关键帧，添加以下代码：
this.loadVariables("counter.php?num="+random(99));
读取php文件counter.php,实现访问人数加1
5.php文件代码如下：
<?php
$count = file_get_contents("count.txt");
$count = explode("=", $count);
$count[1] = $count[1]+1;
$file = fopen("count.txt", "w+");
fwrite($file, "count=".$count[1]);
fclose($file);
print "count=".$count[1];
?>
附源文件：
 点击浏览该文件
|
|
| 文章录入：skyuu 责任编辑：skyuu |
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录
