Browser & Linkin

、Browser Capabilities组件

该组件最主要的作用是：提取识别客户端浏览器的版本信息。

其原理是这样的：当客户端浏览器向服务器发送页面请求时，同时会自动发送一个User Agent HTTP标题，而该标题是一个声明浏览器及其版本的 ASCII 字符串。而Browser Capabilities组件就将User Agent映射到在文件Browscap.ini中所注明的浏览器 , 并通过BrowserType对象的属性来识别客户浏览器。

若该对象在 browscap.ini 文件中找不到与该标题匹配的项，那么将使用默认的浏览器属性。若该对象既未找到匹配项且 browscap.ini 文件中也未指定默认的浏览器设置，则它将每个属性都设为字符串 "UNKNOWN"。

在默认情况下，browscap.ini文件被存放在 WINDOWS\SYSTEM\INERSRV( 如果是95/98+PWS4) 或 NT\SYSTEM32\INERSRV( 如果是 NT) 目录中，你可以自己编辑这个文本文件，以添加自己的属性或者根据最新发布的浏览器版本的更新文件来修改该文件。

可以得出结论，Browser Capabilities组件也就是提取某个文件中的内容，然后比较得出显示。具体该如何应用呢？

1，btinfo.asp

<%set bc=server.CreateObject("mswc.browsertype")%> 
浏览器名称是browser：<%=bc.browser%>
  
浏览器版本是version：<%=bc.version%> 

浏览器主版本是majorver:<%=bc.majorver%> 

浏览器辅版本是minorver:<%=bc.minorver%> 

浏览器的运行平台是platform：<%=bc.platform%> 

很显然“<%set bc=server.CreateObject("mswc.browsertype")%> ”就是进行的浏览器组件的建立
以下诸如“bc.browser”之类即为显示浏览器的具体某个特性了。

2，btif.asp

<%set bc=server.CreateObject("mswc.browsertype")%> 
<%if bc.frames=true then%>  
浏览器支持多窗口(frames)显示   
<%else%>  
浏览器不支持多窗口(frames)显示   
<%end if%>  

  
<%if bc.backgroundsounds=true then%>  
浏览器可以播放背景音乐(backgroundsounds)   
<%else%>  
浏览器不能播放背景音乐(backgroundsounds)   
<%end if%>  


<%if bc.tables=true then%>  
浏览器支持表格(tables)显示   
<%else%>  
浏览器不支持表格(tables)显示   
<%end if%>  

  
<%if bc.beta=true then%>  
你的浏览器是一测试版(beta)   
<%else%>  
你的浏览器是一正式版   
<%end if%>  

  
<%if bc.activexcotrols=true then %>  
浏览器支持active控制   
<%else%>  
浏览器不支持active控制   
<%end if%>  

 
<%if bc.cookies=true then%>    
浏览器支持cookie功能  
<%else%>   
浏览器不支持cookie功能   
<%end if%>     

 
<%if bc.vbscript=true then%>    
浏览器支持vbscript  
<%else%>   
浏览器不支持vbscript   
<%end if%>  

 
<%if bc.jscript=true then%>    
浏览器支持jscript  
<%else%>   
浏览器不支持jscript   
<%end if%>

该代码则是检测当前浏览器对各类网页技术的支持情况，那下面就可以根据某特定情况做相应变动

3，fram.asp

<%set bc=server.CreateObject("mswc.browsertype")
  if bc.frames then 
%>

  
  

<%else%>
你的浏览器不支持框架
<%end if%>

很简单的意思：如果当前浏览器支持框架则进行frameset的显示，否则提示“你的浏览器不支持框架”

当然，需要提醒你的：不要过分依赖该组件，因为其只是提取browscap.ini里的值，而该值随时可以被客户修改，或者记录过时，不能真实反映到浏览器的情况，慎用之。

二、Content Linking组件

曾经用DW做网页都有这样一个烦恼：新做了页面，其它所有相关的页都要重新再做一次超级链接。一次也就罢了，多了多了不禁觉得无用功做了不少。试想如果能有一个专门的文件来负责页面的连接那该多好。

Content Linking 组件也就应运而生了。它非但可以使你在这些页面中建立一个目录表，而且还可以在它们中间建立动态连接，并自动生成和更新目录表及先前和后续的 Web 页的导航链接。

使用该组件，首先需要编写一个目录文件，也就是网页网址的顺序列表文件，它是一个文本文件，可以自由命名。其次，编写一个ASP文件，根据目录文件提供的信息自动生成带超链的目录页。如果需要在每一页上假如“向前或向后翻页”的超链，就再编写一个能自动生成翻页超链的包含文件，可使用inc为扩展名,例如"Nlink.inc"。以后，在组内每一页中包含它。

1，link.txt

redirect.asp?url=http://www.cnbruce.com/    cnbruce.com
redirect.asp?url=http://www.blueidea.com/    blueidea.com
redirect.asp?url=http://www.it365cn.com/    it365cn.com

该目录文件的网址就是连接网址，文本就是连接文本了，需要注意的是中间采用Tab键进行分隔。

2，link.asp

<%Set objNextLink = Server.CreateObject("MSWC.Nextlink")%>
<%
intCount = objNextLink.GetListCount("link.txt")
For i = 1 To intCount 
%>
">
<%=objNextLink.GetNthDescription("link.txt", i) %>



<%Next%>

“Set objNextLink = Server.CreateObject("MSWC.Nextlink")”建立Nextlink组件的连接
“objNextLink.GetListCount("link.txt")”提取link.txt文件中的列表数目
“objNextLink.GetNthURL("link.txt",i)”提取link.txt文件中第i行文本的连接网址
“objNextLink.GetNthDescription("link.txt",i)”提取link.txt文件中第i行文本的连接文本

3，redirect.asp
也就是转向文件了。

<%
Response.Clear
Response.Redirect Request.QueryString("url")
%>

呵呵，是不是觉得还没用到“上一页”、“下一页”的功能。再来~！

4，link1.txt

1.asp    ASP编程入门进阶（一）
2.asp    ASP编程入门进阶（二）
3.asp    ASP编程入门进阶（三）
4.asp    ASP编程入门进阶（四）

主要功能是设置文本和连接

5，link1.inc

<%Set Nextlink=Server.CreateObject("MSWC.NextLink")
Response.write "当前文章索引号为" & NextLink.GetListIndex("link1.txt") & "
"
Response.write "上一章的标题：" & NextLink.GetPreviousDescription("link1.txt") & "
"
Response.write "下一章的标题：" & NextLink.GetNextDescription("link1.txt") & "
"
count = NextLink.GetListCount("link1.txt")
Response.write ""&"第一章"&" "
Response.write ""&"上一章"&" "
Response.write ""&"下一章"&" "
Response.write ""&"最后一章"&"
"
%>

GetListCount(目标文件名)       显示组件中包含的连接的文件数目。 
GetListIndex(目标文件名)       显示当前页在这些连接文件中的前后位置索引值。 
GetNextDescription(目标文件名) 显示连接文件中下一个的描述。 
GetNextURL(目标文件名)         显示连接文件中的下一个文件的URL地址。 
GetNthDescription(目标文件名, N)   显示连接文件中第N个网页的描述。 
GetNthURL(目标文件名, N)       显示连接文件中第N个网页的文件URL地址。
GetPreviousDescription(目标文件名) 显示连接文件中前一个文件的描述。 
GetPreviousURL(目标文件名)     显示连接文件中前一个文件的URL地址。

6，1.asp，2.asp，3.asp，4.asp

以下是具体内容

这就是一个很简单的分页程序了。当然接着的后面会有些更详细更复杂的分页，慢慢来吧，呵呵。

组件Counters

该组件用于创建一个或多个计数器，这些计数器用于跟踪某一网页或某一网站访问次数的信息。你只能创建一个计数器组件，但该组件可以有多于一个的计数器。

一旦创建了计数器，它将一直持续下去直到被删除为止。

计数器不会在一个事件比如访问一页时自动增加。你必须使用Set和Increment方法人工的设置或增长计数器。

计数器不受作用域限制。一旦创建了一个计数器，那么站点上的任何页都可以检索和控制它的值。

一、Counters.Set & Counters.Get
Counters.Set主要用来设置记数初始值，Counters.Get则是用来提取记数的值。

1，counts_set.asp

<%
Set Counters=server.createobject("MSWC.Counters")
Counters.Set "cnbruce",10
Counters.set "it365cn",20
Counters.set "blueidea",30
%>
共有<%= Counters.Get("cnbruce") %>次访问 cnbruce.com 网站 

共有<%= Counters.Get("it365cn") %>次访问 it365cn.com 网站 

共有<%= Counters.Get("blueidea") %>次访问 blueidea.com 网站 

用法很简单，首先“Counters=server.createobject("MSWC.Counters")”表示建立了一Counters组件的连接；Counters.Set "cnbruce",10表示记数了名为“cnbruce”的初始值10；Counters.Get("cnbruce")就表示提取名为“cnbruce”的记数值了。

二、Counters.Increment
该方法的功能是：记数每次加一。在上例中你刷新页面，记数是不会添加的，所以现在换用Increment方法。

2，counts_inc.asp

<%
Set Counters=server.createobject("MSWC.Counters")
%>
共有<%= Counters.Increment("cnbruce") %>次访问 cnbruce.com 网站 

共有<%= Counters.Increment("it365cn") %>次访问 it365cn.com 网站 

共有<%= Counters.Increment("blueidea") %>次访问 blueidea.com 网站 

基本代码相似，主要就是Counters.Increment的功能累加1。

根据累加可以做个简单的投票系统了。

3，vote.asp

<%
set Counters=server.createobject("MSWC.Counters")
  vote = Request.QueryString("site")
  Counters.Increment(vote) 
%>
Vote for your Favorite Site:

cnbruce
it365cn
blueidea



Current Vote Tally:

Cnbruce: <% =Counters.Get("cnbruce") %>

It365cn: <% = Counters.Get("it365cn") %>
 
Blueidea: <% = Counters.Get("blueidea") %>

功能是选择某单选按钮后提交，其对应的记数值则Counters.Increment

三、Counters.Remove
该对象则是起的记数清空的作用了。

4，remove.asp

<%
set Counters=server.createobject("MSWC.Counters")
  vote = Request.QueryString("site")
  clear = Request.QueryString("clear")
  Counters.Increment(vote)
  If Not clear="" Then
    Counters.Remove("cnbruce")
    Counters.Remove("it365cn")
    Counters.Remove("blueidea")
  End If
%>
Vote for your Favorite Site:

cnbruce
it356cn
blueidea



Current Vote Tally:

Cnbruce: <% =Counters.Get("cnbruce") %>

It365cn: <% = Counters.Get("it365cn") %>
 
Blueidea: <% = Counters.Get("blueidea") %>

通过今天的接触可以总结出，一个简单的记数系统已经有两种方法：使用Application对象、使用Counters组件。但更多的还有采用FSO，或者是需要数据库的就是后话慢慢谈了。

在我们使用ASP组件时候还要注意一些东西：

当我们使用服务器组件创建对象时，一般有两种方法。比较常用的方法是用SERVER对象的CreateObject() 方法，象这样:
SET NextLink = Server.CreateObject("MSWC.NextLink")

这种方法很好用，但是还有一种方法更节省系统资源。因为当你用Server.CreateObject()方法创建对象时，对象立即被加载，同时系统为这个对象分配好内存和其它资源。

第二种创建对象的方法是利用HTML的