| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 258 人关注过本帖
标题:[求助]请问这段统计代码如何修改
只看楼主 加入收藏
yinxun
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-10-28
收藏
 问题点数:0 回复次数:0 
[求助]请问这段统计代码如何修改

下面是一统计的asp的代码,记录访问次程序的ip地址与个数还有时间 在同一的目录下生成txt文件记录下来

效果是

今天总共访问[6]次.
0:17:29----219.132.XX
0:17:43----219.132.XX
0:22:46----60.191.52XX
0:22:46----60.191.52XX
0:22:46----60.191.52XX
0:22:46----60.191.52XX
0:50:32----58.46.XX



但是如果刷新的话便会重复写入文件,请问如何能记录cookies去重复。

主要的目的就是去重复,请教如何修改.万分感激 !


<%
strLogFile = date & "-ss.txt"

Name = request("Name")
Pass = request("Pass")

StrLogText = time & "----" & request.servervariables("REMOTE_HOST")

set f = Server.CreateObject("Scripting.FileSystemObject")

If f.FileExists(Server.mappath(strLogFile)) = True Then
Set ff = f.OpenTextFile(Server.mappath(strLogFile), 8, False, 0)
Else
Set ff = f.CreateTextFile(Server.mappath(strLogFile), true)
End If

ff.writeline(StrLogText)
ff.close

set ff = nothing
set f = nothing
%>


<%
dim text
files=server.mappath(date & "-ss.txt")
set txtfile=server.createobject("scripting.filesystemobject")
set txt=txtfile.opentextfile(files,1,true,false)
do while not txt.atendofstream
c=c+1
%>
<%text=text+txt.readline() & ("<br>")%>
<%
loop
%>
<% response.write "今天总共访问[<font color=#FD2828>" & c & "</font>]次.<br>"%>
<% response.write text %>


[此贴子已经被作者于2007-10-28 0:55:52编辑过]

搜索更多相关主题的帖子: 统计 代码 
2007-10-28 00:53
快速回复:[求助]请问这段统计代码如何修改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015462 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved