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 & "〉" 
set mmm=nothing 
set fff=nothing 
else 
Response.Write("文件名冲突！") 
Response.End 
end if 
set fso=nothing 
Set xd = Server.CreateObject("msxml2.domdocument") 
xd.async = false xd.load(LogFile) 
if xd.parseError.errorcode<>0 then 
WriteLog=1 '打开日志文件出错 
exit function 
end if 
'创建新节点信息 
set et=xd.documentElement 
set cnode=xd.createElement("log") 
et.appendchild(cnode) 
set node2=xd.createElement("username") 
node2.text=username 
cnode.appendchild(node2) 
set node2=xd.createElement("operate") 
node2.text=operate 
cnode.appendchild(node2) 
set node2=xd.createElement("userip") 
node2.text=userip 
cnode.appendchild(node2) 
set node2=xd.createElement("opdate") 
node2.text=opdate 
cnode.appendchild(node2) 
xd.save LogFile '写入日志文件 
set cnode=nothing 
set node2=nothing 
set xd=nothing 
writeLog=9 '说明正常写入了日志信息 
end function