激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

服務器之家：專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

香港云服务器
服務器之家 - 編程語言 - ASP教程 - 一個asp版XMLDOM操作類

一個asp版XMLDOM操作類

2019-09-19 11:51asp代碼網 ASP教程

一個xmldom操作類代碼，方便需要跟xml結合的代碼

  1. <script language="vbscript" runat="server">  
  2. '============================================================  
  3. '作者：做回自己  
  4. '時間：2005-3-15  
  5. ============================================================  
  6. Class XMLClass  
  7. Private objXml  
  8. Private xmlDoc  
  9. Private xmlPath  
  10. '//============================================================  
  11. '<!--類初始化及注銷時的事件-->  
  12. Sub Class_initialize  
  13. Set objXml = Server.CreateObject("MSXML2.DOMDocument")  
  14. objXml.preserveWhiteSpace = true  
  15. objXml.async = false  
  16. End Sub  
  17. Sub Class_Terminate  
  18. Set objXml = Nothing  
  19. End Sub  
  20. '//============================================================  
  21. '<!--建立一個新的XML文檔-->  
  22. Public Function CreateNew(sName)  
  23. Set tmpNode = objXml.createElement(sName)  
  24. objXml.appendChild(tmpNode)  
  25. Set CreateNew = tmpNode  
  26. End Function  
  27. '<!--從外部讀入XML文檔-->  
  28. Public Function OpenXml(sPath)  
  29. OpenXml=False  
  30. sPath=Server.MapPath(sPath)  
  31. 'Response.Write(sPath)  
  32. xmlPath = sPath  
  33. If objXml.load(sPath) Then  
  34. Set xmlDoc = objXml.documentElement  
  35. OpenXml=True  
  36. End If  
  37. End Function  
  38. '<!--從外部讀入XML字符串-->  
  39. Public Sub LoadXml(sStr)  
  40. objXml.loadXML(sStr)  
  41. Set xmlDoc = objXml.documentElement  
  42. End Sub  
  43. Public Sub InceptXml(xObj)  
  44. Set objXml = xObj  
  45. Set xmlDoc = xObj.documentElement  
  46. End Sub  
  47. '//============================================================  
  48. '<!--新增一個節點-->  
  49. Public Function AddNode(sNode,rNode)  
  50. ' sNode STRING 節點名稱  
  51. ' rNode OBJECT 增加節點的上級節點引用  
  52. '=============================================================  
  53. Dim TmpNode  
  54. Set TmpNode = objXml.createElement(sNode)  
  55. rNode.appendChild TmpNode  
  56. Set AddNode = TmpNode  
  57. End Function  
  58. '<!--新增一個屬性-->  
  59. Public Function AddAttribute(sName,sValue,oNode)  
  60. ' sName STRING 屬性名稱  
  61. ' sValue STRING 屬性值  
  62. ' oNode OBJECT 增加屬性的對象  
  63. '=============================================================  
  64. oNode.setAttribute sName,sValue  
  65. End Function  
  66. '<!--新增節點內容-->  
  67. Public Function AddText(FStr,cdBool,oNode)  
  68. Dim tmpText  
  69. If cdBool Then  
  70. Set tmpText = objXml.createCDataSection(FStr)  
  71. Else  
  72. Set tmpText = objXml.createTextNode(FStr)  
  73. End If  
  74. oNode.appendChild tmpText  
  75. End Function  
  76. '========================================================================================================  
  77. '<!--取得節點指定屬性的值-->  
  78. Public Function GetAtt(aName,oNode)  
  79. ' aName STRING 屬性名稱  
  80. ' oNode OBJECT 節點引用  
  81. '=============================================================  
  82. dim tmpValue  
  83. tmpValue = oNode.getAttribute(aName)  
  84. GetAtt = tmpValue  
  85. End Function  
  86. '<!--取得節點名稱-->  
  87. Public Function GetNodeName(oNode)  
  88. ' oNode OBJECT 節點引用  
  89. GetNodeName = oNode.nodeName  
  90. End Function  
  91. '<!--取得節點內容-->  
  92. Public Function GetNodeText(oNode)  
  93. ' oNode OBJECT 節點引用  
  94. GetNodeText = oNode.childNodes(0).nodeValue  
  95. End Function  
  96. '<!--取得節點類型-->  
  97. Public Function GetNodeType(oNode)  
  98. ' oNode OBJECT 節點引用  
  99. GetNodeType = oNode.nodeValue  
  100. End Function  
  101. '<!--查找節點名相同的所有節點-->  
  102. Public Function FindNodes(sNode)  
  103. Dim tmpNodes  
  104. Set tmpNodes = objXml.getElementsByTagName(sNode)  
  105. Set FindNodes = tmpNodes  
  106. End Function  
  107. '<!--查打一個相同節點-->  
  108. Public Function FindNode(sNode)  
  109. Dim TmpNode  
  110. Set TmpNode=objXml.selectSingleNode(sNode)  
  111. Set FindNode = TmpNode  
  112. End Function  
  113. '<!--刪除一個節點-->  
  114. Public Function DelNode(sNode)  
  115. Dim TmpNodes,Nodesss  
  116. Set TmpNodes=objXml.selectSingleNode(sNode)  
  117. Set Nodesss=TmpNodes.parentNode  
  118. Nodesss.removeChild(TmpNodes)  
  119. End Function  
  120. '<!--替換一個節點-->  
  121. Public Function ReplaceNode(sNode,sText,cdBool)  
  122. 'replaceChild  
  123. Dim TmpNodes,tmpText  
  124. Set TmpNodes=objXml.selectSingleNode(sNode)  
  125. 'AddText sText,cdBool,TmpNodes  
  126. If cdBool Then  
  127. Set tmpText = objXml.createCDataSection(sText)  
  128. Else  
  129. Set tmpText = objXml.createTextNode(sText)  
  130. End If  
  131. TmpNodes.replaceChild tmpText,TmpNodes.firstChild  
  132. End Function  
  133.  
  134. Private Function ProcessingInstruction  
  135. '//--創建XML聲明  
  136. Dim objPi  
  137. Set objPi = objXML.createProcessingInstruction("xml", "version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"gb2312"&chr(34))  
  138. '//--把xml生命追加到xml文檔  
  139. objXML.insertBefore objPi, objXML.childNodes(0)  
  140. End Function  
  141. '//=============================================================================  
  142. '<!--保存XML文檔-->  
  143. Public Function SaveXML()  
  144. 'ProcessingInstruction()  
  145. objXml.save(xmlPath)  
  146. End Function  
  147. '<!--另存XML文檔-->  
  148. Public Function SaveAsXML(sPath)  
  149. ProcessingInstruction()  
  150. objXml.save(sPath)  
  151. End Function  
  152. '//==================================================================================  
  153. '相關統計  
  154. '<!--取得根節點-->  
  155. Property Get Root  
  156. Set Root = xmlDoc  
  157. End Property  
  158. '<!--取得根節點下子節點數-->  
  159. Property Get Length  
  160. Length = xmlDoc.childNodes.length  
  161. End Property  
  162. '//==================================================================================  
  163. '相關測試  
  164. Property Get TestNode  
  165. TestNode = xmlDoc.childNodes(0).text  
  166. End Property  
  167. End Class  
  168. </script>  

延伸 · 閱讀

精彩推薦
505
Weibo Article 1 Weibo Article 2 Weibo Article 3 Weibo Article 4 Weibo Article 5 Weibo Article 6 Weibo Article 7 Weibo Article 8 Weibo Article 9 Weibo Article 10 Weibo Article 11 Weibo Article 12 Weibo Article 13 Weibo Article 14 Weibo Article 15 Weibo Article 16 Weibo Article 17 Weibo Article 18 Weibo Article 19 Weibo Article 20 Weibo Article 21 Weibo Article 22 Weibo Article 23 Weibo Article 24 Weibo Article 25
主站蜘蛛池模板： 国产一区二区二 | 久久蜜臀 | 中文字幕一区2区 | 欧美日韩影视 | 3344永久免费 | 久久av喷吹av高潮av懂色 | 国产精品成人一区二区三区电影毛片 | 亚洲国产精品一区二区精品 | 成人精品一区二区 | 国产乱free国语对白 | 一分钟免费观看完整版电影 | 91精彩在线| 黄色99视频 | 午夜久久久久 | 久久国产精品久久久久 | 一区二区久久久久草草 | bt 自拍 另类 综合 欧美 | 最近免费中文字幕在线视频2 | 视频一区二区国产 | 久久精品国产清自在天天线 | 成年性羞羞视频免费观看无限 | 国产黄色一级大片 | 欧美xxxxx视频 | 国产69久久精品成人看 | 成人福利视频在 | 成人毛片网站 | 最新一区二区三区 | 男人的天堂视频网站 | 成人爽a毛片免费啪啪红桃视频 | 美女久久 | 99r国产精品 | 久久久免费观看完整版 | 一级做a爰片性色毛片2021 | 538在线精品 | 在线成人免费视频 | 中文字幕精品久久 | 国产乱一区二区三区视频 | 日韩一级片免费 | 第一区免费在线观看 | 成人黄视频在线观看 | 一区二区三区四区高清视频 |