asp写的日志处理方法

原创 2005年04月28日 14:41:00

一、实现方法

      一个书写日志的函数,提供几个参数,用户程序调用这个函数就可以实现日志的记录。日志记录到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")
 
 '如果日志文件不存在,就创建一个,并写入头信息和根信息
 if not fso.FileExists(LogFile) then
       fso.CreateTextFile LogFile
       set fff=fso.GetFile(LogFile)
       set mmm=fff.openastextstream(2)
       mmm.write "<?xml version=""1.0"" encoding=""gb2312"" ?>" & vbcrlf & "<?xml-stylesheet type='text/xsl' href='../logInfo.xsl'?>" & vbcrlf &  "<" & rootnode & "></" & rootnode & ">"
       set mmm=nothing
       set fff=nothing
 end if
 set fso=nothing
 
 Set xd = Server.CreateObject("msxml2.domdocument") 
 xd.async = false 
 xd.load(LogFile)
 if xd.parseError.errorcode<>0 then
      WriteSysLog=1   '打开日志文件出错
         exit function
 end if
 
 '创建新节点信息
 
 set et=xd.documentElement 
 
 
   
    set cnode=xd.createElement("log")
    et.appendchild(cnode)
  
    set node2=xd.createElement("username")
    node2.text=op_username
    cnode.appendchild(node2)
    set node2=xd.createElement("operate")
    node2.text=operate
    cnode.appendchild(node2)
    set node2=xd.createElement("userip")
    node2.text=Request.ServerVariables("Remote_Addr")
    cnode.appendchild(node2)
    set node2=xd.createElement("opdate")
    node2.text=cstr(now())
    cnode.appendchild(node2)
    xd.save LogFile   '写入日志文件
   
    set cnode=nothing
    set node2=nothing
    set xd=nothing
    writeSysLog=9  '说明正常写入了日志信息
end function 


 '获得当前虚拟目录的名字
 function getRoot()
    url=Request.ServerVariables("URL")
    url=right(url,len(url)-1)
    getRoot= mid(url,1,instr(url,"/")-1)
 end function
 
'将一个一位的数字前面加零
function FillZero(str)
   ttt=str
   if len(str)=1 then
      ttt="0" & str
   end if
   FillZero=ttt
end function

'转化日期,将 一位补上零  2003-1-2  -->  2003-01-02
function ConvertDate(tDate)
   ttt=tDate
   if isdate(tDate) then
      ttt=year(tDate) & "-" & FillZero(month(tDate)) & "-" & FillZero(day(tDate))
   end if
   ConvertDate=ttt
end function

三、用户格式化的xsl文件:

<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"  xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="http://www.cccar.com.cn/"
exclude-result-prefixes="msxsl user">

<!-- localized strings -->
<xsl:variable name='ColumnHeader_UserName'>用户</xsl:variable>
<xsl:variable name='ColumnHeader_Time'>时间</xsl:variable>
<xsl:variable name='ColumnHeader_Operate'>操作</xsl:variable>
<xsl:variable name='ColumnHeader_Address'>IP地址</xsl:variable>

<!-- variables -->
<xsl:variable name='TableStyle'>background-color:#DAE6D8;font-family:Simsun, Verdana; font-size:75%; text-align:left; vertical-align:top</xsl:variable>
<xsl:variable name='HeaderStyle'>background:a0b0a8;color:#000000;border-bottom:1 solid black;border-top:1 solid black</xsl:variable>
<msxsl:script language="javascript" implements-prefix="user">
   function xmlDateTime(nodelist) {
           return Date.parse(nodelist.replace(/-/g,"/"));
        }
 </msxsl:script>
<xsl:output omit-xml-declaration="yes"/>
<xsl:template match="syslog">

    <html>
    <head>
        <title>
            日志查看
        </title>
    </head>

    <body style='margin:10;background-color:#DAE6D8'>
        <div align="center">
        <table    style="{$TableStyle}" width="100%" align="center" cellspacing='0'>
         
            <thead>
                <tr height="23">
                   
                    <th width="15%" style="{$HeaderStyle}">
                        <xsl:value-of select="$ColumnHeader_UserName"/>
                    </th>
                    <th width="20%" style="{$HeaderStyle}">
                        <xsl:value-of select="$ColumnHeader_Time"/>
                    </th>
                    <th width="50%" style="{$HeaderStyle}">
                        <xsl:value-of select="$ColumnHeader_Operate"/>
                    </th>
                    <th width="15%" style="{$HeaderStyle}">
                        <xsl:value-of select="$ColumnHeader_Address"/>
                    </th>
                </tr>
            </thead>
           
            <tbody style='vertical-align:top'>
                 <tr ><td colspan="4" height="5"></td></tr> 
                 <xsl:for-each select="log">
                    <xsl:sort order='ascending'  select="user:xmlDateTime(string(opdate))" data-type="number"/>
                    
                   <tr height="23">
                   
                     <td valign="bottom"><xsl:value-of select="username"/></td>
                     <td valign="bottom" ><xsl:value-of select="opdate"/></td>
                     <td valign="bottom" ><xsl:value-of select="operate"/></td>
                     <td valign="bottom" ><xsl:value-of select="userip"/></td> 
                  </tr>
                  <tr bgcolor="#999999"><td colspan="4" height="1"></td></tr> 
                </xsl:for-each>
               
                <tr><td colspan="4" align="right">合计:<xsl:value-of select="count(log)"/> 条 </td></tr>   
            </tbody>
        </table>
</div>
    </body>
    </html>

</xsl:template>
</xsl:stylesheet>

ASP后台操作日志记录代码(搜集整理)

对一个上规模的管理系统,由于参与管理的人非常多,操作者的权限分配和操作日志记录都是十分重要的。 权限分配要根据各个系统的事务逻辑而定,我这里谈一下如果构建一个良好的操作日志记录的方案。 我这里以操...
  • websph
  • websph
  • 2010年06月08日 08:29
  • 4924

asp记录日志程序

'书写日志的程序  ?'username :用户信息(标示进行该操作的人员)  'operate :操作(标示用户进行了什么操作)  'userip :用户IP(标示用户用于登录系统的计算机的I...

在ASP.NET中如何输出日志

在ASP.NET中,如何输出日志呢有一个NLog的库可以很方便的实现。只需要三步就可以完成:     1.引入Nlog相关的dll;     2.在项目的配置文件中,进行如下配置: ...

asp.net写入日志到文本文件

using System; using System.Collections.Generic; using System.Web; using System.IO; using System.Text...
  • lz00728
  • lz00728
  • 2012年04月19日 15:58
  • 13813

dataguard丢失日志处理方法

  • 2016年03月25日 11:14
  • 1KB
  • 下载

ASP.NET Core 开发-Logging 使用NLog 写日志文件

ASP.NET Core 开发-Logging 使用NLog 写日志文件。 NLog 可以适用于 .NET Core 和 ASP.NET Core 。 ASP.NET Core已经内置了日...

dataguard丢失日志处理方法 2

  • 2016年03月25日 11:47
  • 2KB
  • 下载

在ASP.Net中写系统日志

在ASP.Net中写系统日志 ASP.Net默认情况下,是没有写系统日志的权限的。要在ASP.Net中写系统日志,首先我们要先有其权限。我们可以通过设置或修改注册表的权限来解决。 ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp写的日志处理方法
举报原因:
原因补充:

(最多只允许输入30个字)