广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

你是否有时想知道什么人访问你的站点，什么时间，ip地址等。下面我就这个问题向大家来阐述一下。这个例子使用文本文件来写入用户的信息创建一个logfile.asp放在每一个asp的页面的顶端<!--#include file="logfile.asp"-->当有人来访问你的站点logfile.asp自动把他的信息写入logfile.txt,如果相关的url一样的话则不写入文件
file: logfile.asp

<%
dim validentry log variable
first set that this log is valid
validentry = true

if session variable "login" is not empty
that mean this person has already been logged
then set validlog to false
if not isempty(session("login")) then validentry = false

here you can add different restriction
if the refering url is from same site
dont write to log file
if left(request.servervariables("http_referer"), 17)="http://devasp.com" then
validentry = false
end if
if left(request.servervariables("http_referer"), 21)="http://www.devasp.com" then
validentry = false
end if

now if validentry is true then enter to log file
if validentry then
const forappending = 8
const create = true
dim fso
dim ts
dim myfilename
dim strlog

myfilename = server.mappath("mylogfile.txt")
set fso = server.createobject("scripting.filesystemobject")
set ts = fso.opentextfile(myfilename, forappending, create)

store all required values in strlog
strlog = "<br><p><b>" & now & "</b> "
strlog = strlog & request.servervariables("remote_addr") & " "
strlog = strlog & request.servervariables("http_referer") & " "
strlog = strlog & request.servervariables("http_user_agent") & "<br>"
write current information to log text file.
ts.write strlog
ts.writeline ""
create a session varialbe to check next time for validentry
session("login") = "yes"
set ts = nothing
set fso = nothing
end if
%>

（）