一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

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

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

服務器之家 - 編程語言 - ASP教程 - ASP XML操作類代碼

ASP XML操作類代碼

2019-09-06 11:54asp之家 ASP教程

ASP XML操作類，想學習xml操作的朋友可以參考下。

代碼如下:

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 
'//============================================================ 
' 
Public Function CreateNew(sName) 
Set tmpNode = objXml.createElement(sName) 
objXml.appendChild(tmpNode) 
Set CreateNew = tmpNode 
End Function 
' 
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 
' 
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 
'//============================================================ 
' 
Public Function AddNode(sNode,rNode) 
' sNode STRING 節點名稱 
' rNode OBJECT 增加節點的上級節點引用 
'============================================================= 
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 
' 
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 
'======================================================================================================== 
' 
Public Function GetAtt(aName,oNode) 
' aName STRING 屬性名稱 
' oNode OBJECT 節點引用 
'============================================================= 
dim tmpValue 
tmpValue = oNode.getAttribute(aName) 
GetAtt = tmpValue 
End Function 
' 
Public Function GetNodeName(oNode) 
' oNode OBJECT 節點引用 
GetNodeName = oNode.nodeName 
End Function 
' 
Public Function GetNodeText(oNode) 
' oNode OBJECT 節點引用 
GetNodeText = oNode.childNodes(0).nodeValue 
End Function 
' 
Public Function GetNodeType(oNode) 
' oNode OBJECT 節點引用 
GetNodeType = oNode.nodeValue 
End Function 
' 
Public Function FindNodes(sNode) 
Dim tmpNodes 
Set tmpNodes = objXml.getElementsByTagName(sNode) 
Set FindNodes = tmpNodes 
End Function 
' 
Public Function FindNode(sNode) 
Dim TmpNode 
Set TmpNode=objXml.selectSingleNode(sNode) 
Set FindNode = TmpNode 
End Function 
' 
Public Function DelNode(sNode) 
Dim TmpNodes,Nodesss 
Set TmpNodes=objXml.selectSingleNode(sNode) 
Set Nodesss=TmpNodes.parentNode 
Nodesss.removeChild(TmpNodes) 
End Function 
' 
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 
'//--創建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 
'//============================================================================= 
' 
Public Function SaveXML() 
'ProcessingInstruction() 
objXml.save(xmlPath) 
End Function 
' 
Public Function SaveAsXML(sPath) 
ProcessingInstruction() 
objXml.save(sPath) 
End Function 
'//================================================================================== 
'相關統計 
' 
Property Get Root 
Set Root = xmlDoc 
End Property 
' 
Property Get Length 
Length = xmlDoc.childNodes.length 
End Property 
'//================================================================================== 
'相關測試 
Property Get TestNode 
TestNode = xmlDoc.childNodes(0).text 
End Property 
End Class



ASP通過XMLDom在服務器端操作XML文件的主要方法和實現 
對于小數據量，xml文件在檢索更新上于ACCESS有很多優勢。 

我曾經測試過不用數據庫，把網站的會員信息，商品數據信息，交易信息，網站定制信息全部存放在三個xml文件中，運行結果十分正常，感覺上比數據庫快多了，不過沒有作測試，不能確定。 

下面說一下創建，查詢，修改等對xml操作的主要方法 

‘創建DOM對象 
set objDom=server.CreateObject(”MicroSoft.XMLDom”) 

‘取得xml數據 
‘方法1 取得xml文件的xml數據 
objDom.load(”c:\test.xml”) 
‘方法2 取得xml數據串的數據 
objDom.loadxml(”<people><man name=”sd”/></people>”) 

‘創建一個節點對象 
Set Newnode=objDom.CreateElement(”people”) 
‘給這個節點赴值 
Newnode.Text=”人” 
‘ 給這個節點添加屬性 
Set NewAttribute=objDom.CreateNode(”attribute”,”name”,”") 
NewAttribute.Text= ”張三” 
Newnode.SetAttributeNode NewAttribute 
‘給這個節點添加子節點 
Set NewnodeChild=objDom.CreateElement(”address”) 
Newnode.appendChild NewnodeChild 
‘保存這個節點對象 
objDom.appendChild Newnode 
objDom.save(”c:\test.xml”) 

‘查找一個節點對象 
set objtofind=objdom.documentElement.SelectSingleNode(”//people/man”) 
‘取出這個節點對象的 節點名，節點值，某個屬性值，和全部的xml 
nodename=objtofind.nodename 
nodevalue=objtofind.text 
objtofind.GetAttributeNode(”name”).Nodevalue '屬性名為name的屬性值 

‘取出一個屬性節點對象 
set objattrtofind=objdom.documentElement.SelectSingleNode(”//people/man”). GetAttributeNode(”name”) 
‘取出這個節點的屬性名，屬性值 
nodeattrname=objattrtofind.nodename 
nodeattrvalue=objattrtofind.nodevalue 

‘刪除一個節點對象 
set objnode=objdom.documentElement.SelectSingleNode(”//people/man”) '要刪除的節點 
set objparentnode=objdom.documentElement.SelectSingleNode(”//people”) '要刪除的節點的父節點 
objparentnode.removeChild objnode 

‘取出一個節點的字節點集合 
set objnodes=objdom.documentElement.SelectSingleNode(”//people/man”).ChildNodes 
遍歷這個集合 
方法1 
for each element in objnodes 
response.write element.nodename 字節點名 
response.write element.text 字節點值 
next 
方法2 
domlength=objnodes.length 
for i = 0 to domlength-1 
response.write objnodes.childnodes(i).nodename 字節點名 
response.write objnodes.childnodes(i).text 字節點值 
next 

‘取出一個節點的屬性集合 
set objnodes=objdom.documentElement.SelectSingleNode(”//people/man”).GetAttributeNode(”name”).attributes 
遍歷這個集合 
for each element in objnodes 
response.write element.nodename 屬性名 
response.write element.nodevalue 屬性值 
next 

等能夠熟練的運用xmldom對象來操作xml文件了，就可以享 
受xmlhttp對象來實現asp下的許多功能了。 

re:[轉]ASP通過XMLDom在服務器端操作XML文件的主要方法和實現 
飛飛，你怎么不介紹一下@的用法，沒了這個，很多事不方便。 
xml，有人也稱之為數據壓縮技術，顧名思義，xml是可以充當數據庫來用。 
所以，我們可以把xml看成是“小型的數據庫”。為什么說是小型呢？因為xml本身的功能及應用方便，與數據庫還是存在著一定的差別。那我們為什么要使用xml呢？因為，有時候我們的一些應用程序雖然進行數據存取，但是，如果使用數據庫的話，顯行有些不夠靈活，方便。這個時候，我們就應該結合xml來使用。 
xml既然可以看成是數據庫，那它的第一步工作就當然是創建鏈接對象了。（以ASP+xml為例） 
創建方法同鏈接數據庫一樣，用server.createobject為創建。 
方法如下： 
set xmlDoc= Server.CreateObject(”microsoft.xmldom”) 
xmlDoc.async=false 
xmldata=數據源絕對路徑 
xmlDoc.load xmldata '這里使用load方法進行鏈接 

既于xml的數據格式是比較人性化的，可以由于人為或其它的原因，引起數據格式不合法，這時如果繼續使用的話，會引起程序出程，這樣，我們往往在創建好鏈接對象后進行數據格式驗證。 
方法如下： 
if xmlDoc.parseError.errorCode<>0 then 
….錯誤處理 


<% 
‘—————————————————————- 
‘程序簡介: 完成asp語言對XML文檔中指定節點文本的增加、刪除、修改、查看 
‘入口參數: 無 
‘出口參數: 無 
‘———————————————— 
‘函數名字：ConnectXml() 
‘入口參數: filename 需要連接或打開的xml文件名 
‘出口參數: 無 
‘返回值 ：ConnectXml=0，XMLMorntekDocument就是一個成功裝載XML文檔的對象了。 
‘ ConnectXml<>0,則打印錯誤信息strError 
‘———————————————— 
dim XMLMorntekDocument 

function ConnectXml(filename) 
dim strSourceFile 
strSourceFile = Server.MapPath(filename) 
Set XMLMorntekDocument = Server.CreateObject(”Microsoft.XMLDOM”) 
XMLMorntekDocument.async = false 
XMLMorntekDocument.load(strSourceFile) 
ConnectXml=XMLMorntekDocument.parseerror.errorcode 
if XMLMorntekDocument.parseerror.errorcode<>0 then 
strError=”<h2>error”&XMLMorntekDocument.parseerror.errorcode&”</h2>” 
strError=strError&XMLMorntekDocument.parseerror.reason&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.url&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.line&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.filepos&”<br>” 
strError=strError&XMLMorntekDocument.parseerror.srcText&”<br>” 
response.write strError 
end if 
end function 

‘———————————————— 
‘函數名字：CloseXml() 
‘入口參數: 無 
‘出口參數: 無 
‘———————————————— 
function CloseXml(XMLMorntekDocument) 
if IsObject(XMLMorntekDocument) then 
set XMLMorntekDocument=nothing 
end if 
end function 

‘———————————————— 
‘函數名字：SelectXmlNodeText(elementname) 
‘入口參數: elementname 元素的名字 
‘出口參數: 無 
‘———————————————— 
function SelectXmlNodeText(elementname) 
elementname=”//”&elementname 
temp=XMLMorntekDocument.selectSingleNode(elementname).text 
selectXmlNodeText= server.htmlencode(temp) 

end function 

‘———————————————— 
‘函數名字：InsertXmlNodeText(befelementname,elementname,elementtext) 
‘入口參數: elementname 插入的元素的名字 
‘ befelementname在此元素的名字前面插入元素 
‘ elementtext 插入的元素的文本 
‘出口參數: 無 
‘———————————————— 
function InsertXmlNodeText(befelementname,elementname,elementtext) 
dim befelement,element 
set befelement=XMLMorntekDocument.selectSingleNode(”//”&befelementname) 
set element= XMLMorntekDocument.createelement(elementname) 
befelement.insertBefore element,befelement.firstchild 
element.text=elementtext 
end function 

‘———————————————— 
‘函數名字：UpdateXmlNodeText(elementname,newelementtext) 
‘入口參數: elementname 元素的名字 
‘ newelementtext元素的新文本 
‘出口參數: 無 
‘———————————————— 
function UpdateXmlNodeText(elementname,newelementtext) 
dim element 
set element=XMLMorntekDocument.selectSingleNode(”//”&elementname) 
element.text=newelementtext 
end function 

‘———————————————— 
‘函數名字：DeleteXmlNodeText(elementname) 
‘入口參數: elementname 元素的名字 
‘出口參數: 無 
‘———————————————— 
function DeleteXmlNodeText(elementname) 
XMLMorntekDocument.selectSingleNode(”//”&elementname).text =”" 
end function 
%> 
____________________ 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板： jk制服白丝超短裙流白浆 | 日本黄视频在线播放 | 日本69sex护士www | 成人免费在线视频 | ferr孕妇videos毛茸茸 | 99精品免费观看 | 日韩视频在线免费 | 波多野结衣小说 | 蜜桃成熟时1997在线看免费看 | 九九成人免费视频 | 红色一片在线影视 | 1717国产精品视频免费 | 欧美a在线观看 | 亚洲精品在线免费 | 日韩有码 | 国产精品久久久久久岛国 | 成人性色生活片免费网 | 波多野结衣两女调教 | 91.久久| 含羞草传媒一天免费看下 | 成人网免费视频 | 幻女free性zozo交体内谢 | 亚洲国产成人久久精品hezyo | 日本男男漫画 | 亚洲图片二区 | yy111111影院理论大片 | 明星ai智能人脸替换造梦在线播放 | 人人爽人人草 | 希望影院高清免费观看视频 | 动漫美女被吸乳羞羞小说 | 乌克兰黄色录像 | 亚州人成网在线播放 | 色综合色狠狠天天综合色 | 久久青青草视频在线观 | 精品久久久久久久久久久 | 国产91素人搭讪系列天堂 | 国产全部理论片线观看 | 国产精品热久久毛片 | 91制片厂制作果冻传媒八夷 | 国产成人精品一区二区不卡 | 九九99热久久999精品 |