'==========用户访问登记=========
Function FormatDate()
    Dim iYear,iMonth,iDay
    iYear = year(now())
    iMonth = month(now())
    iDay = day(now())
    iMonth = Right("0" & iMonth,2)
    iDay = Right("0" & iDay,2)
    FormatDate = iYear & "-" & iMonth & "-" & iDay
End Function

Function WriteLogin(user)
    Dim xmlPath
    Dim objDom,objRoot,objAtt,objTemp,objTemp2,objTemp3,objTemp4
    
    xmlPath = Server.MapPath("inc/info.xml")
    '判断文件是否存在
    Set objDom = Server.CreateObject("Microsoft.XMLDom")
    objDom.async = false
    If not objDom.load(xmlPath) Then
        Set objRoot = objDom.CreateElement("xml")
        objDom.appendChild objRoot
        objRoot.SelectSingleNode("//xml").appendChild objDom.CreateElement("login")
        objRoot.SelectSingleNode("//xml/login").SetAttributeNode objDom.CreateNode("attribute","date","")
        objRoot.SelectSingleNode("//xml/login/@date").text = FormatDate
    Else
        Set objRoot = objDom.documentElement
    End if
    '判断是否有当天的登录节点,没有就添加
    Set objTemp = objRoot.SelectSingleNode("//xml").childNodes.item(objDom.SelectSingleNode("//xml").childNodes.length-1).GetAttributeNode("date")
    If objTemp.nodevalue <> FormatDate Then
        Set objTemp2 = objDom.CreateElement("login")
        Set objAtt = objDom.CreateNode("attribute","date","")
        objAtt.Text = FormatDate
        objTemp2.SetAttributeNode objAtt
        objRoot.appendChild objTemp2
    End If
    '添加用户登录信息
    Set objTemp3 = objRoot.SelectSingleNode("//xml/login[@date='" & FormatDate & "']")
    Set objTemp4 = objDom.CreateElement("user")
    objTemp4.text = user
    objTemp4.SetAttributeNode objDom.CreateNode("attribute","time","")
    objTemp4.GetAttributeNode("time").NodeValue = hour(now()) & ":" & minute(now()) & ":" & second(now())
    objTemp3.appendChild objTemp4
    objDom.save xmlPath
End Function
'==========登记结束  访问：inc/info.xml==========