asp记录日志程序

´书写日志的程序

?´username ：用户信息（标示进行该操作的人员）

´operate ：操作（标示用户进行了什么操作）

´userip ：用户IP（标示用户用于登录系统的计算机的IP地址）

´opdate ：用户操作发生的日期

´日志写入一个xml文件，第一次写入时如果xml文件不存在，则创建。 ´返回值：0 表示输入的参数无效 ´返回值：1 表示打开日志文件时出错 ´返回值：9 表示正确完成写入日志文件

?function WriteLog(username,operate,userip,opdate)

if username="" or operate="" or userip="" or opdate="" then

WriteLog=0 ´参数无效

exit function

end if

RootNode="syslog"

´日志文件根节点名字

LogFile=server.mappath("uuu.xml") ´日志文件路径

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 & "《" & rootnode & "〉《/" & rootnode & "〉"