?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
设为主页
收藏本站
相关文章: