|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|--ASP编程入门进阶（十五）：组件Counters

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

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 网站 <br>

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

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

用法很简单，首先“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 网站 <br>

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

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

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

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

3，vote.asp

<%

set Counters=server.createobject("MSWC.Counters")

  vote = Request.QueryString("site")

  Counters.Increment(vote)

%>

Vote for your Favorite Site:

<FORM NAME="Voting for Sites" METHOD="GET" ACTION="vote.asp">

<input type="RADIO" NAME="site" VALUE="cnbruce">cnbruce

<input type="RADIO" NAME="site" VALUE="it365cn">it365cn

<input type="RADIO" NAME="site" VALUE="blueidea">blueidea

<BR><INPUT TYPE="SUBMIT" VALUE="Submit Vote">

</FORM>

Current Vote Tally:<BR>

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

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

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

功能是选择某单选按钮后提交，其对应的记数值则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:

<FORM NAME="Voting for Sites" METHOD="GET" ACTION="remove.asp">

<input type="RADIO" NAME="site" VALUE="cnbruce">cnbruce

<input type="RADIO" NAME="site" VALUE="it365cn">it356cn

<input type="RADIO" NAME="site" VALUE="blueidea">blueidea

<BR><INPUT TYPE="

本站关键词：

|东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册||东莞企业邮箱|东莞平面设计|东莞产品推广|网站建设公司|网站开发东莞|网络公司东莞|东莞做网站|东莞连邦软件|网页设计公司|东莞软件销售|东莞.com域名注册|东莞.cn域名注册|