<% '---------------------------------------------------------------- '程序简介: 完成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 %>
'----------------------------------------------------------------
'程序简介: 完成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
- xghslm2013-10-11大小合适。适合学习。
- 粉丝: 3
- 资源: 15
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 论文(最终)_20240430235101.pdf
- 基于python编写的Keras深度学习框架开发,利用卷积神经网络CNN,快速识别图片并进行分类
- 最全空间计量实证方法(空间杜宾模型和检验以及结果解释文档).txt
- 5uonly.apk
- 蓝桥杯Python组的历年真题
- 2023-04-06-项目笔记 - 第一百十九阶段 - 4.4.2.117全局变量的作用域-117 -2024.04.30
- 2023-04-06-项目笔记 - 第一百十九阶段 - 4.4.2.117全局变量的作用域-117 -2024.04.30
- 前端开发技术实验报告:内含4四实验&实验报告
- Highlight Plus v20.0.1
- 林周瑜-论文.docx