以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础 』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  [求助] Asp 动态建产Xml  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=45808)

--  作者：scromp
--  发布时间：4/22/2007 8:40:00 AM

--  [求助] Asp 动态建产Xml
asp 源代码:

Class tmp
……
   
public property let SetTag(Tag,vNewValue)
 set xmldom=Server.CreateObject("Microsoft.XmlDom")
 set Node=xmldom.createElement(Tag)
 Node.text=vNewValue
 TmpXml=TmpXml & node.xml & chr(13)&chr(10)
end property

Private function Transform(ByVal xml,ByVal xsl)
 set txml=Server.CreateObject("Microsoft.XmlDom")
 set txsl=Server.CreateObject("Microsoft.XmlDom")
 txml.loadXML xml
 txsl.loadXML(xsl)
 Transform=txml.transformNode(txsl)
end function

public sub display()
 response.Write Transform(tmpxml,Page_Skin)
end sub
……
end class

set skin=New tmp
skin.SetTag("Tag1")="Value1"
skin.SetTag("Tag2")="Value2"
skin.SetTag("Tag3")="Value3"
skin.SetTag("Tag4")="Value4"
skin.display


--  作者：scromp
--  发布时间：4/22/2007 8:54:00 AM

--  
[问题补充]

这里 "TmpXml=TmpXml & node.xml & chr(13)&chr(10)" 如才能完成Xml的累加，也就是生成：
<Tag1>Value1</Tag1>
<Tag2>Value2</Tag2>
<Tag3>Value3</Tag3>
<Tag4>Value4</Tag4>

并可以在 "txml.loadXML xml" 加载！完成 Xsl 的转换！
我试了N久都没有成功。

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 97.656ms