开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2012-09-26
详细说明： <% '---------------------------------------------------------------- '程序简介: 完成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="error"&XMLMorntekDocument;.parseerror.errorcode&"
" strError=strError&XMLMorntekDocument;.parseerror.reason&"
" strError=strError&XMLMorntekDocument;.parseerror.url&"
" strError=strError&XMLMorntekDocument;.parseerror.line&"
" strError=strError&XMLMorntekDocument;.parseerror.filepos&"
" strError=strError&XMLMorntekDocument;.parseerror.srcText&"
" 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 %> ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
