<!--#include file="conn.asp" --> <% sql = "Select * From [users]" Set rs = SqlHelper(sql,"") Set XmlDom = XLS(rs,0) set objNodes =XmlDom.documentElement Set XmlDom = Nothing Echo objNodes.xml Set objlist = objNodes.getElementsByTagName("item") Echo objlist.length For Each x in objlist If x.hasChildNodes() Then Echo x.ChildNodes(1).text End If If x.Attributes.length>0 Then Echo x.getAttribute("username") End If if Not x.selectSingleNode("birthday") is Nothing Then Echo x.selectSingleNode("birthday").text end if Next ' /** ' * 将记录集转换成xml格式 ' */ Function XLS(byval rs,byval k) Dim Str,Attr Attr = "element" if k = 0 Then Attr = "attribute" Str = "<?xml version=""1.0""?>"&vbcrlf&_ "<xsl:stylesheet version=""1.0"""&vbcrlf&_ "xmlns:xsl=""http://www.w3.org/1999/XSL/Transform"""&vbcrlf&_ "xmlns:s=""uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882"""&vbcrlf&_ "xmlns:dt=""uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"""&vbcrlf&_ "xmlns:rs=""urn:schemas-microsoft-com:rowset"""&vbcrlf&_ "xmlns:z=""#RowsetSchema"">"&vbcrlf&_ "<xsl:output omit-xml-declaration=""yes""/>"&vbcrlf&_ "<xsl:template match=""/"">"&vbcrlf&_ "<xsl:element name=""xml"">"&vbcrlf&_ "<xsl:for-each select=""/xml/rs:data/z:row"">"&vbcrlf&_ "<xsl:element name=""item"">"&vbcrlf&_ "<xsl:for-each select=""@*"">"&vbcrlf&_ "<xsl:"&Attr&" name=""{name()}"">"&vbcrlf&_ "<xsl:value-of select="".""/>"&vbcrlf&_ "</xsl:"&Attr&">"&vbcrlf&_ "</xsl:for-each>"&vbcrlf&_ "</xsl:element>"&vbcrlf&_ "</xsl:for-each>"&vbcrlf&_ "</xsl:element>"&vbcrlf&_ "</xsl:template>"&vbcrlf&_ "</xsl:stylesheet>" Set objXLS = server.CreateObject("MSXML2.DOMDocument") objXLS.loadXML(Str) Set xmldom = server.CreateObject("MSXML2.DOMDocument") rs.save xmldom,1 xmldom.loadXml(xmldom.transformNode(objXLS)) Set XLS = xmldom Set xmldom = Nothing Set objXLS = Nothing End Function %>
02
2019
08
Xml_XLS
发布:admin | 分类:asp代码 | 评论:0 | 浏览: