asp寫的Tlog方法

一、實現方法
        一個書寫日誌的函數，提供幾個參數，使用者程式調用這個函數就可以實現日誌的記錄。日誌記錄到xml檔案中，記錄檔按日期產生，每天建立立一個記錄檔，檔案名稱為：yyyy_mm_dd.xml，分別用了年月日。而查看日誌也日常簡單，使用者想看哪天的日誌，只要直接調用該xml檔案即可。因為xml檔案已經預設了一個xsl檔案來格式化輸出。
二、書寫日誌的方法
’記錄日誌的程式
’作者：塞北的雪
’日期：2004.11.20
’username ：使用者資訊（標示進行該操作的人員）
’operate    ：操作（標示使用者進行了什麼操作）
’userip     ：使用者IP（標示使用者用於登入系統的電腦的IP地址）
’opdate     ：使用者操作發生的日期
’日誌寫入一個xml檔案，第一次寫入時如果xml檔案不存在，則建立。
’傳回值：1    表示開啟記錄檔時出錯
’傳回值：9    表示正確完成寫入記錄檔
 
 
function WriteSysLog(sys_userid,sys_username,operate)
    dim op_username
    if    trim(sys_userid)=""    and trim(sys_username)=""    then    
    op_username="匿名"
 else
     op_username = sys_userid & "/" & sys_username
 end if
 
 xmlPath="/" & getRoot() & "/log/SysLog/"
 xmlFile=replace(cstr(ConvertDate(date())),"-","_") & ".xml"
 RootNode="syslog"          ’記錄檔根節點名字
 LogFile=server.mappath(xmlPath & xmlFile)    ’記錄檔路徑
 set fso=server.CreateObject("scripting.filesystemobject")
 
 ’如果記錄檔不存在，就建立一個，並寫入頭資訊和根資訊