|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了<%
----------------------------------------------------------------
程序简介:完成asp言语对XML文档中指定节点文本的增添、删除、修正、检察
出口参数:无
出口参数:无
------------------------------------------------
函数名字:ConnectXml()
出口参数:filename必要毗连或翻开的xml文件名
出口参数:无
前往值:ConnectXml=0,XMLMorntekDocument就是一个乐成装载XML文档的工具了。
ConnectXml0,则打印毛病信息strError
------------------------------------------------
dimXMLMorntekDocument
functionConnectXml(filename)
dimstrSourceFile
strSourceFile=Server.MapPath(filename)
SetXMLMorntekDocument=Server.CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.async=false
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.errorcode
ifXMLMorntekDocument.parseerror.errorcode0then
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.writestrError
endif
endfunction
------------------------------------------------
函数名字:CloseXml()
出口参数:无
出口参数:无
------------------------------------------------
functionCloseXml(XMLMorntekDocument)
ifIsObject(XMLMorntekDocument)then
setXMLMorntekDocument=nothing
endif
endfunction
------------------------------------------------
函数名字:SelectXmlNodeText(elementname)
出口参数:elementname元素的名字
出口参数:无
------------------------------------------------
functionSelectXmlNodeText(elementname)
elementname="//"&elementname
temp=XMLMorntekDocument.selectSingleNode(elementname).text
selectXmlNodeText=server.htmlencode(temp)
endfunction
------------------------------------------------
函数名字:InsertXmlNodeText(befelementname,elementname,elementtext)
出口参数:elementname拔出的元素的名字
befelementname在此元素的名字后面拔出元素
elementtext拔出的元素的文本
出口参数:无
------------------------------------------------
functionInsertXmlNodeText(befelementname,elementname,elementtext)
dimbefelement,element
setbefelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)
setelement=XMLMorntekDocument.createelement(elementname)
befelement.insertBeforeelement,befelement.firstchild
element.text=elementtext
endfunction
------------------------------------------------
函数名字:UpdateXmlNodeText(elementname,newelementtext)
出口参数:elementname元素的名字
newelementtext元素的新文本
出口参数:无
------------------------------------------------
functionUpdateXmlNodeText(elementname,newelementtext)
dimelement
setelement=XMLMorntekDocument.selectSingleNode("//"&elementname)
element.text=newelementtext
endfunction
------------------------------------------------
函数名字:DeleteXmlNodeText(elementname)
出口参数:elementname元素的名字
出口参数:无
------------------------------------------------
functionDeleteXmlNodeText(elementname)
XMLMorntekDocument.selectSingleNode("//"&elementname).text=""
endfunction
%>
转自:静态网制造指南www.ckuyun.comASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|