<%
'**************************************************************************************************
' 程序名称: 七禧舞曲管理系统
' 程序作者: 花心萝卜
' 官方网站: http://www.cmsdj.com http://www.7xiwl.com
' 编写日期: 2009年8月27日
' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途
'**************************************************************************************************

Class Syc_Xml
    Private Xml
	Private Sub Class_initialize()
        Set Xml = XmlCreateObj()
        Xml.async = False
    End Sub
	
	Private Function XmlCreateObj()
		Dim I,XmlVersion,XmlVersionArr,K
		K=0
		XmlVersionArr = Array("MSXML2.DOMDocument","MSXML2.DOMDocument.3.0","MSXML2.DOMDocument.4.0","MSXML2.DOMDocument.5.0")
		For I=0 To Ubound(XmlVersionArr)
			Set XmlCreateObj=Server.CreateObject(XmlVersionArr(I))
			IF Err Then
				Err.Clear
			Else
				K=1:Exit Function
			End IF
		Next
		IF K=0 Then 
			Response.Write("创建XMLHttpRequest失败,系统中缺少必要的组件,请联系空间服务商!")
			Response.End()
		End IF
	End Function
	
    'Public Sub Load(ByVal Path)
'        Xml.Load(Server.MapPath(Path))
'    End Sub

	Public Sub Load(Byval Url,Byval xmlType)
		Select Case LCase(xmlType)
		Case "file"
		    Xml.load(Server.MapPath(Url))
		Case Else
		    Xml.loadXML(Url)
		End Select
	End Sub
	
	Public Function GetNodeLen(NodeName)
        GetNodeLen = Xml.GetElementsByTagName(NodeName).Length
    End Function
	
	Public Function GetAttr(NodeName, AttrName, ItemId)
        Dim XmlAttrs, I
		IF IsNul(ItemId) Then  ItemId = 0
        Set XmlAttrs = Xml.GetElementsByTagName(NodeName).Item(ItemId).Attributes
        For I = 0 To XmlAttrs.Length -1
            IF XmlAttrs(I).Name = attrName Then
                GetAttr = XmlAttrs(I).Value
				Set XmlAttrs = nothing
                Exit Function
            End IF
        Next
        GetAttr = False
    End Function
	
	Public Function ReadATT(Root,Title)
		Dim Val
		Root = XmlRoot(root)
		IF Title = "" Then
		   Response.Write "获取Attribute属性名称失败!":Response.End()
		End IF
		on error resume next
		Val = Xml.documentElement.SelectSingleNode(root).GetAttributeNode(title).nodevalue
		IF err.number<>0 Then ReadNum =  ""
		ReadATT = Val
	End Function
	
	Public Function ReadNum(root)
	    root = XmlRoot(root)
		on error resume next
		Dim Val,Nodes,element
		Set Nodes = Xml.documentElement.SelectSingleNode(root).ChildNodes
		For Each element in Nodes
			Val = Val&","&element.nodename
		Next
		IF Err.Number<>0 Then ReadNum =  ""
		ReadNum = Mid(val,2)
	End Function
	
	Private Function XmlRoot(root)
	    IF Mid(root,1,2)<>"//" Then
		   Response.Write "节点路径必须以'//'开头":Response.End()
		End IF
		XmlRoot = root
	End Function
	
	Public Function ReadValue(root)
	    root = XmlRoot(root)
		on error resume next
		dim val,ReadNum
		val = Xml.documentElement.SelectSingleNode(root).text
		IF err.number<>0 Then ReadNum =  ""
		ReadValue = val
	End Function
	
    Public Function SelectSingleNode(ByVal XPath)
        Set SelectSingleNode = Xml.SelectSingleNode(XPath)
    End Function

    Public Function SelectNodes(ByVal XPath)
        Set SelectNodes = Xml.SelectNodes(XPath)
    End Function
    
    Private Sub Class_Terminate()
        Set Xml = Nothing
    End Sub

End Class
%>