繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用多种方法制作WEB页面的计数器
- ASP
- asp 实现对SQL注入危险字符进行重编码处理的函数
- asp下实现对HTML代码进行转换的函数
- asp 验证用户名是否包含有非常字符的函数
- ASP通用分页样式函数代码
- asp 生成任意英文+数字位数长度的随机码函数
- asp 取得中文句子头一个字的大写拼音字母的函数
- asp实现计算两个时间内的工作日的函数
- asp实现过滤关键字的函数
- asp实现限制搜索的关键字的函数
- asp动态include文件，方便多模板的实现
- 推荐的用Asp实现屏蔽IP地址访问的代码
- XDOWNPAGE ASP版本 分页类
- 飞云防CC攻击ASP程序代码插件
- 定期自动运行ASP程式的代码
- ASP下Cookie操作的详细讲解
- 再发几个ASP不错的函数
- 比较不错的asp模板引终极讲解(WEB开发之ASP模式)
- ip138之asp小偷程序代码
- 在VBScript中实现-函数/方法名作为参数传入另一个函数
- asp实现批量插入表单中的数据到数据库的方法
ASP 中的 用多种方法制作WEB页面的计数器
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 216 ::
收藏到网摘: n/a
Do you like to know how many users visited your site? Creating a Web counter is very easy thing to do
using ASP. The only thing you have to do is to use an application server variable called count, this
variable will have the value zero when your application is started for the first time, and every time anew
visitor will come to your site the count variable will be incremented, the increment section will be
written in the Session_OnStart in the Global.asa through three steps:
¨ Lock the application server so no more than one visitor will try to increase it at the same time.
¨ Increment the count variable by one.
¨ Unlock the variable.
And that’s all what you have to do to create a simple counter and here is the code.
First let us do the Global.asa section:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
' Lock the Application object
Application.Lock
' Increment the count
Application("count") = Application("count") + 1
' Unlock the Application object
Application.Unlock
End Sub
</SCRIPT>
And now to show the result you just need to retrieve the count variable like this in your web page:
<%@ language="vbscript"%>
<HTML>
<HEAD>
<TITLE>Counter Example 1</TITLE>
</HEAD>
<BODY>
<H1> You are the visitor number <%=Application("count")%></H1>
</BODY>
</HTML>
Another way to do it:
Ok that’s very nice, but what will happen if the application stops for any reason? You will lose all the
data stored in the application variables and that includes the count variable. To solve this problem I
will use another way, you need to store the value of the count variable with in a text file or database.
For me I prefer database so I will use an MS access database with a table of one field called count and
the field called counter of type NUMBER.
<%
' Declare the variables that will be used with our code
Dim Connection, RS, ConStr, Counts
' Create and open the database connection
Set Connection=Server.Createobjec t("ADODB.Connection")
ConStr=("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("counter.mdb"))
Connection.Open ConStr
' Create the record set and retrive the counter value
Set RS = Connection.Execute("SELECT * FROM count")
' Increase the counter value by one
Counts=RS("counter")+1
' Update the counter value in the database
Set RS = Connection.Execute ("UPDATE count SET counter =" & Counts)
Connection.Close
%>
<HTML>
<HEAD>
<TITLE>Counter Example 2</TITLE>
</HEAD>
<BODY>
<H1>You are the visitor number <%=Counts%></H1>
</BODY>
</HTML>
What about Active users:
Some guys wants to know how many visitors are currently seeing the site, for that we will use another way,
we will create an application variable called active, and on each new session we will increase it by one
and when a session ends we will decrease it by one, and here is the code:
The Global.asa:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
'Create the variable that will hold the number of active visitors
Application("Active") = 0
End Sub
Sub Session_OnStart
'Increase the counter by one
Application.Lock
Application("Active") = Application("Active") + 1
评论 (0) All
