用多種方法製作WEB頁面的計數器

來源:互聯網
上載者:User
One way to do it:

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
   Application.UnLock

End Sub

Sub Session_OnEnd
   ' Decrease the c ounter
   Application.Lock
      Application("Active") = Application("Active") - 1
   Application.UnLock
End Sub

</SCRIPT>


And to show the results just call the Application variable active in your web page just like this:
<%= Application("Active")%>




I hope you can create your own counters from now on. Give it try and good luck.


相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。