本篇将继续介绍一些用 ASP 编写的WEB 动态功能。由于 WEB 浏览器标准的不一致从而使得如何能够让自己制作的网站去适应各种不同的浏览器成为了广大网站设计者最为头疼的事,在如今的形势之下,我们不肯也不可能去抛弃Netscape 或 IE 中的任何一种客户群,但我们有时候又不得不去考虑客户端浏览器的实际浏览效果,过去我们常用JavaScript 编写一段程序来辨别客户端使用的不同的浏览器,那么今天就让我们来看看如何使用ASP 更为便捷且精确地达到这一目的。将以下代码,剪贴到你的Notebook 中,并保存为browser.asp 。
< %@ LANGUAGE = VBScript %> < HTML> < HEAD> < TITLE>用ASP提供的浏览器性能组件来辨别客户浏览器< /TITLE> < /HEAD> < BODY BGCOLOR="White" topmargin="10" leftmargin="10"> < font size="4" face="Arial, Helvetica"> < b>用ASP提供的浏览器性能组件来辨< br>别客户浏览器< /b>< /font>< br> < hr size="1" color="#000000"> < > < % Dim bc Set bc = Server.CreateObject("MSWC.BrowserType") %> < > < Table border=1> < tr> < td>Browser Name< /td> < td> < %=bc.Browser %> < /Td> < tr> < td>Browser Version< /td> < td> < %=bc.Version %> < /Td> < tr> < td>Major Version< /td> < td> < %=bc.Majorver %> < /Td> < tr> < td>Minor Version< /td> < td> < %=bc.Minorver %> < /Td> < tr> < td>Frame Support< /td> < td> < %=bc.Frames %> < /Td> < tr> < td>Table Support< /td> < td> < %=bc.Tables %> < /Td> < tr> < td>Cookie Support< /td> < td> < %=bc.Cookies %> < /Td> < tr> < td>Background Sound Support< /td> < td> < %=bc.BackgroundSounds %> < /Td> < tr> < td>VBScript Support< /td> < td> < %=bc.VBScript %> < /Td> < tr> < td>JavaScript Support< /td> < td> < %=bc.JavaScript %> < /Td> < /table> < /BODY> < /HTML>
用http 方式浏览该文件,根据使用的浏览器的不同,你会看到类似下图 (Asp2b.gif) 的页面。在本例中我们用到了一个 ASP 提供的 ActiveX 组件 --"Browser Capabilities" 。 ActiveX 组件作为基于 Web 的应用程序部分在 Web 服务器上运行,组件提供了应用程序的主要功能 ( 如访问、修改数据库等 ) ,这样 WEB 设计者们就不必创建或重新创建执行这些任务的代码,从而提高了工作的效率,有关 ActiveX 组件将在今后详细讨论。为了使用 ASP 辨别客户浏览器,在这里我们利用 "Browser Capabilities" 组件创建了一个 Browser Type 对象,该对象提供带有客户端网络浏览器功能说明的用户脚本,当浏览器连接到网络服务器上时,它会自动发送一个 UserAgentHTTP 标题,该标题是一个声明浏览器及其版本的 ASCII 字符串。此 Browser Type 对象将该标题和在 Browscap.ini 文件中的项进行比较 (Win98 、 IIS3 、 IIS4 的用户分别可以在以下目录中 "win98systeminersrv" 、 "winntsystem32inetsrvaspcmpnts" 、 "winntsystem32inetsrv" 找到该文件 ) 。如果找到匹配的项,则该 Browser Type 对象将认为浏览器列表属性与 UserAgent 标题匹配。若该对象在 browscap.ini 文件中找不到与该标题匹配的项,那么将使用默认的浏览器属性。若该对象既未找到匹配项且 browscap.ini 文件中也未指定默认的浏览器设置,则它将每个属性都设为字符串 "UNKNOWN" 。我们可以通过更新 browscap.ini 文件将属性或新的浏览器定义添加到该组件中,从而扩大 ASP 识别的浏览器范围和精确度。下面列出了 browscap.ini 中的一部分内容 ( 不包括注释部分 ) :
[IE 4.0] ;;HTTPUserAgentHeader
browser=IE ;;指定该浏览器的名称。
Version=4.0 ;;指定该浏览器的版本号。
majorver=4 ;;指定主版本号
minorver=0 ;;指定副版本号
frames=TRUE ;;指定该浏览器是否支持框架。
tables=TRUE ;;指定该浏览器是否支持表格。
cookies=TRUE ;;指定该浏览器是否支持cookies。
backgroundsounds=TRUE ;;指定该浏览器是否支持背景音乐。
vbscript=TRUE ;;指定该浏览器是否支持VBScript。
javascript=TRUE ;;指定该浏览器是否支持JScript。
javaapplets=TRUE ;;指定该浏览器是否 支持 Java程序。
ActiveXControls=TRUE ;;指定该浏览器是否支持 ActiveX 控件。
Win16=False ;; 指定该浏览器是否支持Win16
beta=False ;;指定该浏览器是否测试版。
cdf=True ;;指定该浏览器是否 支持用于 Web 预测的 Channel Definition Format。
;;ie 4.01
[Mozilla/4.0 (compatible; MSIE 4.01*; Windows 95)]
parent=IE 4.0 ;;父标签允许第二个浏览器继承第一个浏览器的定义
version=4.01
minorver=01
platform=Win98
;;Default Browser ;;指定默认的浏览器的设置
[Default Browser Capability Settings]
browser=Default
frames=FALSE
tables=TRUE
cookies=FALSE
backgroundsounds=FALSE
vbscript=FALSE
javascript=FALSE
在上面的例子中,父标签允许第二个浏览器继承第一个浏览器的定义,以便 Microsoft Internet Explorer4.01 定义得以继承 Microsoft Internet Explorer4.0 定义全部的属性 ( 例如, frames=TRUE 、 tables=TRUE 以及 cookies=TRUE) 。并通过添加 platform=Win98 行来指定平台,用 version=4.01 重写版本信息。
在先前的 browser.asp 中我们仅仅是将客户浏览器的属性一一罗列了出来,下面让我们添加一些动态的效果。将以下代码剪贴到文件 browser.asp 中( 编辑注 :为显示方便,所有“ < ”符号后都多加了个空格,实际使用时请注意去掉。 ):
< % if (bc.frames = TRUE) then %> 你的浏览器支持框架!< br> < % else %> 难道现在你还在使用不支持框架的浏览器???< br> < % end if %> < % if (bc.tables = TRUE) then %> 你的浏览器支持表格。< br> < % else %> 难道现在你还在使用不支持表格 的浏览器 ???< br> < % end if %> < % if (bc.BackgroundSounds = TRUE) then %> 有没有听到美妙的 音乐???< br> < % else %> 可惜 , 您的浏览器不支持背 景音乐。< br> < % end if %> < % if (bc.vbscript = TRUE) then %> 您的浏览器支持Vbscript。< br> < % else %> 您的浏览器不支持Vbscrip。< br> < % end if %> < % if (bc.javascript = TRUE) then %> 您的浏览器支持 Javascript。< br> < % else %> 您的浏览器不支持 Javascript。< br> < % end if %>
在你的浏览器中刷新 browser.asp ,程序将自动辨别浏览器的属性并动态显示不同的信息。不难发现在整个 browser.asp 文件中几乎没有用到任何复杂的编程,就轻而易举的达到了动态鉴别客户浏览器并动态产生响应事件的效果。事实上,这个程序的关键就在于前文提到的 ActiveX 组件 --"Browser Capabilities" ,它的作用类似于一个 Function ,只需简单地在程序中调用该组件即能达到你所希望的效果。
通过这两篇对ASP 的介绍,大家已经看到编写ASP 程序是相当轻松的,要掌握 ASP ,无非就是掌握 ASP 内置的五个对象,以及ASP 提供的ActiveX 组件的对象、方法和属性,当然扎实的脚本语言编写能力也是必须的。在今后的文章中小编将用五到六篇的篇幅着重介绍这些内置对象和组件的作用及使用方法,敬请关注。