使用XML存储的数据给我们带来了极大的方便，而且，XML是跟平台无关的。利用XSLT可以将XML转换成任意格式的文档，比如HTML。另外还可以使用这种方法来实现跨平台浏览器（IE,火狐，WAP浏览器等）的支持。比如用如下ASP代码获取客户端浏览器类型：

<%

Dim objBrowsCap

Set objBrowsCap = Server.CreateObject("MSWC.BrowserType")

%>

浏览器(Browser):<%=objBrowsCap.browser%>

浏览器版本(Version):<%=objBrowsCap.version%>

然后通过判断浏览器的类型来使用不同的XSLT对你的XML数据进行转换。

下面是转换XML的方法：

<%

function Transform(xmlPath,xsltPath) Dim result, xsltDocument,xmlDocument Set xmlDocument=CreateObject("MSXML2.DOMDocument") xmlDocument.load(Server.MapPath(xmlPath)) Set xsltDocument = CreateObject("MSXML2.DOMDocument") xsltDocument.load(Server.MapPath(xsltPath)) result = xmlDocument.transformNode(xsltDocument) Set objXMLDOM = Nothing Set objXMLDOM_XSLT = Nothing Transform=result end function

%>

参数xmlPath指定将被转换的XML的文件名。

参数xsltPath指定xls的文件名。

下面是将XML转换成HTML的一个实例：

1、 XML存储的数据文件(table.xml):

<?xml version="1.0" encoding="utf-8" ?>

<Items>

<Item>

<Url>http://blog.163.com/lxd_201/</Url>

<Title>☆聊ゾ聊☆</Title>

</Item>

<Item>

<Url>http://blog.163.com/lxd_201/</Url>

<Title>☆聊ゾ聊☆</Title>

</Item>

<Item>

<Url>http://blog.163.com/lxd_201/</Url>

<Title>☆聊ゾ聊☆</Title>

</Item>

<Item>

<Url>http://blog.163.com/lxd_201/</Url>

<Title>☆聊ゾ聊☆</Title>

</Item>

<Item>

<Url>http://blog.163.com/lxd_201/</Url>

<Title>☆聊ゾ聊☆</Title>

</Item>

<Item>

VBScript教程 第三课 四步讲解ASP中正则表达式的应用

评论 (0) All

登陆 还没注册？