-- 作者：hnyashiro
-- 发布时间：2/22/2005 4:36:00 PM
-- 请教关于XMLDOM在asp下应用的一些问题![求助]
同样是XMLDOM
我在js前台下写的XML类能顺利通用使用
但是我改写成asp代码，在后台运行，为什么就是不行呢，有好多方法都不能用了
如createAttribute,createCDATASection,createTextNode之类的方法都不能使用了
报错是"对象不支持此属性或方法"我晕死'
不知道那位大虾能指点一下迷津
以下内容为程序代码:
Class XMLClass
Private objXml
Private xmlDoc
Private xmlPath
'//============================================================
'<!--类初始化及注销时的事件-->
Sub Class_initialize
Set objXml = Server.CreateObject("Microsoft.XMLDOM")
objXml.async = false
End Sub
Sub Class_Terminate
Set objXml = Nothing
End Sub
'//============================================================
'<!--从外部读入XML文档-->
Public Sub OpenXml(sPath)
xmlPath = sPath
objXml.load(sPath)
Set xmlDoc = objXml.documentElement
End Sub
'<!--从外部读入XML字符串-->
Public Sub LoadXml(sStr)
objXml.loadXML(sStr)
Set xmlDoc = objXml.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)
If cdBool Then
'FStr = xmlObj.createCDATASection(FStr)
End If
Dim tmpText
Set tmpText = xmlDoc.createTextNode(FStr)
oNode.appendChild tmpText
End Function
'<!--保存XML文档-->
Public Function SaveXML()
objXml.save(xmlPath)
End Function
'<!--另存XML文档-->
Public Function SaveAsXML(sPath)
objXml.save(sPath)
End Function
'<!--查找一个节点-->
Public Function FindNode(sNode)
Dim tmpNode
Set tmpNode = objXml.selectSingleNode(sNode)
Set FindNode = xmlDoc
End Function
'//==================================================================================
'测试区
Public Function GetRoot()
Set GetRoot = xmlDoc
End Function
End Class |
|