婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 一個asp版XMLDOM操作類

一個asp版XMLDOM操作類

熱門標(biāo)簽:外呼系統(tǒng)還用卡么 長沙防封電銷卡品牌 騰訊地圖標(biāo)注商戶關(guān)閉 西寧公司外呼系統(tǒng)平臺 武漢營銷電話機(jī)器人軟件 地圖標(biāo)注服務(wù)哪家好 徐州人工智能電銷機(jī)器人好用嗎 地圖標(biāo)注宅基地 智能電銷機(jī)器人適用于哪些行業(yè)
script language="vbscript" runat="server">
'============================================================
'作者:做回自己
'時間:2005-3-15
============================================================
Class XMLClass
Private objXml
Private xmlDoc
Private xmlPath
'//============================================================
'!--類初始化及注銷時的事件-->
Sub Class_initialize
Set objXml = Server.CreateObject("MSXML2.DOMDocument")
objXml.preserveWhiteSpace = true
objXml.async = false
End Sub
Sub Class_Terminate
Set objXml = Nothing
End Sub
'//============================================================
'!--建立一個新的XML文檔-->
Public Function CreateNew(sName)
Set tmpNode = objXml.createElement(sName)
objXml.appendChild(tmpNode)
Set CreateNew = tmpNode
End Function
'!--從外部讀入XML文檔-->
Public Function OpenXml(sPath)
OpenXml=False
sPath=Server.MapPath(sPath)
'Response.Write(sPath)
xmlPath = sPath
If objXml.load(sPath) Then
Set xmlDoc = objXml.documentElement
OpenXml=True
End If
End Function
'!--從外部讀入XML字符串-->
Public Sub LoadXml(sStr)
objXml.loadXML(sStr)
Set xmlDoc = objXml.documentElement
End Sub
Public Sub InceptXml(xObj)
Set objXml = xObj
Set xmlDoc = xObj.documentElement
End Sub
'//============================================================
'!--新增一個節(jié)點(diǎn)-->
Public Function AddNode(sNode,rNode)
' sNode STRING 節(jié)點(diǎn)名稱
' rNode OBJECT 增加節(jié)點(diǎn)的上級節(jié)點(diǎn)引用
'=============================================================
Dim TmpNode
Set TmpNode = objXml.createElement(sNode)
rNode.appendChild TmpNode
Set AddNode = TmpNode
End Function
'!--新增一個屬性-->
Public Function AddAttribute(sName,sValue,oNode)
' sName STRING 屬性名稱
' sValue STRING 屬性值
' oNode OBJECT 增加屬性的對象
'=============================================================
oNode.setAttribute sName,sValue
End Function
'!--新增節(jié)點(diǎn)內(nèi)容-->
Public Function AddText(FStr,cdBool,oNode)
Dim tmpText
If cdBool Then
Set tmpText = objXml.createCDataSection(FStr)
Else
Set tmpText = objXml.createTextNode(FStr)
End If
oNode.appendChild tmpText
End Function
'========================================================================================================
'!--取得節(jié)點(diǎn)指定屬性的值-->
Public Function GetAtt(aName,oNode)
' aName STRING 屬性名稱
' oNode OBJECT 節(jié)點(diǎn)引用
'=============================================================
dim tmpValue
tmpValue = oNode.getAttribute(aName)
GetAtt = tmpValue
End Function
'!--取得節(jié)點(diǎn)名稱-->
Public Function GetNodeName(oNode)
' oNode OBJECT 節(jié)點(diǎn)引用
GetNodeName = oNode.nodeName
End Function
'!--取得節(jié)點(diǎn)內(nèi)容-->
Public Function GetNodeText(oNode)
' oNode OBJECT 節(jié)點(diǎn)引用
GetNodeText = oNode.childNodes(0).nodeValue
End Function
'!--取得節(jié)點(diǎn)類型-->
Public Function GetNodeType(oNode)
' oNode OBJECT 節(jié)點(diǎn)引用
GetNodeType = oNode.nodeValue
End Function
'!--查找節(jié)點(diǎn)名相同的所有節(jié)點(diǎn)-->
Public Function FindNodes(sNode)
Dim tmpNodes
Set tmpNodes = objXml.getElementsByTagName(sNode)
Set FindNodes = tmpNodes
End Function
'!--查打一個相同節(jié)點(diǎn)-->
Public Function FindNode(sNode)
Dim TmpNode
Set TmpNode=objXml.selectSingleNode(sNode)
Set FindNode = TmpNode
End Function
'!--刪除一個節(jié)點(diǎn)-->
Public Function DelNode(sNode)
Dim TmpNodes,Nodesss
Set TmpNodes=objXml.selectSingleNode(sNode)
Set Nodesss=TmpNodes.parentNode
Nodesss.removeChild(TmpNodes)
End Function
'!--替換一個節(jié)點(diǎn)-->
Public Function ReplaceNode(sNode,sText,cdBool)
'replaceChild
Dim TmpNodes,tmpText
Set TmpNodes=objXml.selectSingleNode(sNode)
'AddText sText,cdBool,TmpNodes
If cdBool Then
Set tmpText = objXml.createCDataSection(sText)
Else
Set tmpText = objXml.createTextNode(sText)
End If
TmpNodes.replaceChild tmpText,TmpNodes.firstChild
End Function

Private Function ProcessingInstruction
'//--創(chuàng)建XML聲明
Dim objPi
Set objPi = objXML.createProcessingInstruction("xml", "version="chr(34)"1.0"chr(34)" encoding="chr(34)"gb2312"chr(34))
'//--把xml生命追加到xml文檔
objXML.insertBefore objPi, objXML.childNodes(0)
End Function
'//=============================================================================
'!--保存XML文檔-->
Public Function SaveXML()
'ProcessingInstruction()
objXml.save(xmlPath)
End Function
'!--另存XML文檔-->
Public Function SaveAsXML(sPath)
ProcessingInstruction()
objXml.save(sPath)
End Function
'//==================================================================================
'相關(guān)統(tǒng)計(jì)
'!--取得根節(jié)點(diǎn)-->
Property Get Root
Set Root = xmlDoc
End Property
'!--取得根節(jié)點(diǎn)下子節(jié)點(diǎn)數(shù)-->
Property Get Length
Length = xmlDoc.childNodes.length
End Property
'//==================================================================================
'相關(guān)測試
Property Get TestNode
TestNode = xmlDoc.childNodes(0).text
End Property
End Class
/script>

標(biāo)簽:普洱 荊門 巴彥淖爾 通化 運(yùn)城 雅安 通遼 鷹潭

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《一個asp版XMLDOM操作類》,本文關(guān)鍵詞  一個,asp,版,XMLDOM,操作,類,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《一個asp版XMLDOM操作類》相關(guān)的同類信息!
  • 本頁收集關(guān)于一個asp版XMLDOM操作類的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 文山县| 邵武市| 东兰县| 酉阳| 新乐市| 米泉市| 阜新| 鹤岗市| 会东县| 定西市| 特克斯县| 兰州市| 池州市| 沾益县| 岚皋县| 商洛市| 张掖市| 泸溪县| 玛纳斯县| 客服| 宁津县| 东港市| 棋牌| 富川| 诏安县| 扎兰屯市| 筠连县| 广昌县| 新野县| 宁都县| 博湖县| 景德镇市| 波密县| 晋州市| 海安县| 苍溪县| 谷城县| 安西县| 蒲城县| 雅江县| 泰宁县|