<xml>
<row>
<Product_Id>sdfd</Product_Id>
<Product_Name>sdfsdfsfd</Product_Name>
</row>
<row>
<Product_Id>dfdf</Product_Id>
<Product_Name>fdfdff</Product_Name>
</row>
</xml>
<row>
<Product_Id>sdfd</Product_Id>
<Product_Name>sdfsdfsfd</Product_Name>
</row>
<row>
<Product_Id>dfdf</Product_Id>
<Product_Name>fdfdff</Product_Name>
</row>
</xml>
<row Product_Id="" Product_Code="" CEPC_No="" Product_Name=""/>
<%
Dim xmldoc : Set xmldoc = Server.CreateObject("MSXML2.DOMDocument")
Dim xsldoc : Set xsldoc = Server.CreateObject("MSXML2.DOMDocument")
Dim transdoc : Set transdoc = Server.CreateObject("MSXML2.DOMDocument")
Dim conn : Set conn = Server.CreateObject("adodb.connection")
conn.Open "Provider=SQLOLEDB.1;Data Source=127.0.0.1;User ID=sa;Password=;Initial Catalog=dbtest"
Dim rs : Set rs = Server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM test",conn,3,2
rs.Save xmldoc,1
xsldoc.async = false
xsldoc.load Server.MapPath("trans.xsl")
transdoc.loadXML xmldoc.transformNode(xsldoc)
transdoc.insertBefore transdoc.createProcessingInstruction("xml","version=""1.0""),transdoc.childNodes(0)
transdoc.save Server.MapPath("test.xml")xmldoc.async = false
xmldoc.load Server.MapPath("test.xml")
Dim root : Set root = xmldoc.selectNodes("/*/*")
Dim html : html = ""
Dim i,j
For i=0 to root.length-1
For j=0 to root(i).childNodes.length-1
html = html & root(i).childNodes(j).nodeName & "=" & root(i).childNodes(j).Text & "<br/>"
next
next
Response.Write html
%>
trans.xsl或test.xml
贴出来给我,我给你个xml的例子,然后给你个dtd,xdr。
是要从数据库根据表生成XML文件吗?