asp写的日志处理方法

一、实现方法
        一个书写日志的函数，提供几个参数，用户程序调用这个函数就可以实现日志的记录。日志记录到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")
 
 ’如果日志文件不存在，就创建一个，并写入头信息和根信息

补充：asp教程,高级应用