- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
創建日誌文件
創建日誌文件
--------------------------------------------------------------------------------
你是否有對誰訪問你的站點感到興趣?並在什麼時候和訪問你的哪個URL?這埵酗@個創建日誌文件例子,用於跟蹤用戶訪問你的站點。

這個例子把用戶的一些信息寫進文本文件堶情A想要知識怎樣創建文本文件,請看以前的例子。

創建一個LogFile.asp的文件名,其ASP代碼如下所示,並把這個文件以Include的形式放在你每個頁面就可以了,即:

<!--#Include File="LogFile.asp"-- >

當用戶訪問到你有加上LogFile.asp的頁面時,用戶的信息將會寫進LogFile.txt堶情C

文件名: LogFile.asp


<%
Dim ValidLog ' 日誌變量
' 首先設置這個日誌是有效的。
ValidEntry = True

'如果Session變量“LogIn”不為空
' 則表名用戶的信息已經寫進去

If not IsEmpty(Session("LogIn")) then ValidEntry = False

' 這塈A可以加上不同的限制
' 如果訪問同一個URL
' 則不要寫進日誌文件堶
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

' 如果ValidEntry為真,則寫到日誌文件堶
If ValidEntry Then
Const ForAppending = 8
Const Create = true
Dim FSO
DIM TS
DIM MyFileName
Dim strLog

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

' 保存必須的信息
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>"
' 把當前的信息寫進文本文件堶
TS.write strLog
TS.Writeline ""
' 創建一個session變量,用於檢查下次ValidEntry的值
Session("LogIn") = "yes"
Set TS = Nothing
Set FSO = Nothing
End If
%>



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2020 COOLASP All Rights Reserved