02
2019
08

Xml_XLS

 <!--#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
%>

« 上一篇下一篇 »