用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
' don't write to log file
if left(request.servervariables("http_referer"), 17)
="http://jb51.net" then
validentry = false
end if
if left(request.servervariables("http_referer"), 21)
="http://www.jb51.net" 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
%>