程式 '書寫日誌的程式
?'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
