使ASP程序跨浏览器

使用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

<Urlhttp://blog.163.com/lxd_201/</Url

<Title☆聊ゾ聊☆</Title

</Item

<Item

<Urlhttp://blog.163.com/lxd_201/</Url

<Title☆聊ゾ聊☆</Title

</Item

<Item

<Urlhttp://blog.163.com/lxd_201/</Url

<Title☆聊ゾ聊☆</Title

</Item

<Item

<Urlhttp://blog.163.com/lxd_201/</Url

<Title☆聊ゾ聊☆</Title

</Item

<Item

<Urlhttp://blog.163.com/lxd_201/</Url

<Title☆聊ゾ聊☆</Title

</Item

<Item

展开更多 （50%）

分享