ASP源码.NET源码PHP源码JSP源码JAVA源码DELPHI源码PB源码VC源码VB源码Android源码

用ASP创建网站日志文件

来源:网络整理     时间:2014-09-18     关键词:

本篇文章主要介绍了"用ASP创建网站日志文件",对于ASPjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下:

创建网站日志文件可以让你知道什么人访问过你的站点,什么时间,ip地址等等信息。下面使用一个例子来向大家来阐述一下。

先创建一个log.asp文件,功能是让用户的信息写入到一个log.txt文本文件中,然后语句放在网站的正常asp页面的顶端或底端。log.asp中的代码如下:

File: LogFile.asp 


<%
Dim ValidPara ' 日志参数
' 设置参数为true 
ValidPara = True

'判断Session("LogIn")是否为空,如果不为空,日志参数设置为fals,表示已经写过日志
If not IsEmpty(Session("LogIn")) then ValidPara = False

'这里可以做一些限制,如果是同一个网站进来的,可以不写日志
If Left(Request.ServerVariables("HTTP_REFERER"), 17)="http://codes51.com" Then
ValidPara = False
End if
If Left(Request.ServerVariables("HTTP_REFERER"), 21)="http://www.codes51.com" Then
ValidPara = False
End If

' 如果ValidPara为true,则进入写日志
If ValidPara Then
Const ForAppending = 8
Const Create = true
Dim fso
DIM TS
DIM MyFileName
Dim strLog

MyFileName = Server.MapPath("LogFile.txt")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)

'保存相关值 
strLog = "

" & now & " "
strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & " "
strLog = strLog & Request.ServerVariables("HTTP_REFERER") & " "
strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & "
"
' 写入到日志文件
TS.write strLog
TS.Writeline ""
Session("LogIn") = "yes"
Set TS = Nothing
Set FSO = Nothing
End If
%> 

以上就介绍了用ASP创建网站日志文件,包括了方面的内容,希望对ASPjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接:http://www.codes51.com/article/detail_314.html

相关图片

相关文章