当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使ASP程序跨浏览器

ASP
用密码保护页面 (II)
用密码保护页面 (III)
简单的文件目录浏览源程序
ASP中的函数应用方法及应用举例(一)
ASP中的函数应用方法及应用举例(二)
完整的访问统计系统(一:数据库篇)
完整的访问统计程序(二 程序篇)
完整的访问统计程序(三 应用篇)
一个提供用户输入时期的绝好程序之(一)
一个提供用户输入时期的绝好程序之(二)
构建你的网站新闻自动发布系统之五
构建你的网站新闻自动发布系统之六
完整的访问统计程序(二 程序篇)
完整的访问统计程序(三 应用篇)
ASP环境下邮件列表功能的实现 (一)
ASP环境下邮件列表功能的实现 (二)
ASP环境下邮件列表功能的实现 (三)
ASP环境下邮件列表功能的实现 (四)
ASP进阶之文章在线管理更新(1)
ASP进阶之文章在线管理更新(2)

使ASP程序跨浏览器


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 72 ::
收藏到网摘: n/a

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