发信人: molcn(冰河)
整理人: snowypeng(2002-05-23 09:29:24), 站内信件
|
使用下面的代码你可以将访问你的站点或某个页面的用户信息记录在日志文件中以备查询。日志文件是以每天的日期作为文件名，例如10281999.log就是1999年10月28日的记录。你如果想要将所有的记录只保存在一个日志中，只要稍微对源代码做一些修改即可。这个工作由你们自己去完成吧。只要看懂了程序。
这个脚本记录3个内容：Refer Page（从哪个页面来到这里），访问者IP和访问时间。
Trackuser.asp
<%
LogFileDate = Date
LogFileName = ""
If Month(LogFileDate) < 10 Then
LogFileName = "0"
End If
LogFileName = LogFileName & Month(LogFileDate)
If Day(LogFileDate) < 10 Then
LogFileName = LogFileName & "0"
End If
'将记录文件放在当前目录下，以日期为文件名。
LogFileName = "./" & LogFileName & Day(LogFileDate) & Year(LogFileDate) & ".log"
Set fs = CreateObject("Scripting.FileSystemObject")
Set trackuser = fs.OpenTextFile(server.mappath(LogFileName), 8, True, False)
if Request.ServerVariables("HTTP_REFERER") <= "" then
Request.ServerVariables("HTTP_REFERER") = 0
else
trackuser.Write("Referer: " & Request.ServerVariables("HTTP_REFERER")) & VBcrlf
trackuser.Write("IP Address: " & Request.ServerVariables("REMOTE_ADDR")) & VBcrlf
trackuser.Write("Time: " & NOW()) & VBcrlf
end if
%>
日志文件内容大概如下：
Referer: http://192.168.10.11/
IP Address: 192.168.10.11
Time: 99-10-28 20:39:35
----
,%%%%%%%%,
,%%/\%%%%/\%%
,%%%\c "" J/%%%
%. %%%%/ o o \%%%
`%%. %%%% _ |%%%
`%% `%%%%(__Y__)%%'
// ;%%%%`\-/%%%'
(( / `%%%%%%%'
\\ .' |
\\ / \ | |
\\/ 冰河 ) | |
\ /_ | |__
(___________))))))) zjmol.126.com |
|