威望：4
等级：大四(总算啃完XML规范了)
文章：108
积分：1085
门派：XML.ORG.CN
注册：2005/10/1
姓名：(无权查看)
城市：(无权查看)
院校：(无权查看)
|
 服务器端利用xslt技术将xml转换为svg
example.xml <?xml version="1.0" encoding="gb2312"?>
<data>
<datum>23</datum>
<datum>94</datum>
<datum>55</datum>
</data>
example.xsl <?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<!-- 定义XSLT转换后输出的文件的格式，这里输出为XML格式的文件内容 -->
<xsl:output method="xml" indent="yes" encoding="UTF-8" version="1.0" standalone="no" media-type="image/svg+xml"/>
<xsl:template match="/">
<svg xmlns:svg="http://www.w3.org/2000/svg" viewBox="0 0 {10*(count(data/datum)+1)} 100">
<xsl:for-each select="data/datum">
<rect x="{10*position()}" y="{100- .}" width="10" height="{.}" fill="red" stroke="black"/>
</xsl:for-each>
</svg>
</xsl:template>
</xsl:stylesheet>
svg.asp <%@ Language="VBScript"%>
<Meta Name="Author" Content="greaterthanme">
<Meta Name="WebSite" Content="超越自我">
<Meta Name="WebSite" Content="http://greaterthanme.blog.hexun.com">
<Meta Name="CopyRight" Content="超越自我">
<%
Response.Clear
Response.Buffer = True
Dim xmlDom, xslDom, strResult
Set xmlDom = Server.CreateObject("Msxml2.DOMDocument")
Set xslDom = Server.CreateObject("Msxml2.FreeThreadedDOMDocument")
xmlDom.async = False
xslDom.async = False
xmlDom.load Server.MapPath("example.xml")
xslDom.load Server.MapPath("example.xsl")
Response.ContentType = "image/svg+xml"
strResult = xmlDom.transformNode(xslDom)
'' 在不支持UTF-16编码的饿平台上，替换成UTF-8
strResult = Replace(strResult,"UTF-16","UTF-8")
Response.Write strResult
%>
|
----------------------------------------------
交流提高呀！ svg技术交流:
http://greaterthanme.blog.hexun.com/list.aspx?
tag=svg
svg技术交流群：24785607
svg文件共享邮箱:svgcn@126.com
password:svg.net.cn
| 
[返回] 计算机科学论坛 →
XML.ORG.CN讨论区 - 高级XML应用 → 『 SVG/GML/VRML/X3D/XAML 』 → 服务器端利用xslt技术将xml转换为svg
(订阅本版)
2006/5/26 22:02:00
新浪微博
