计数器的源代码/我需要最简单的！100分 请赐教！

[huanghai2000]

要求；就简单。实用
请大虾

[ygjwjj]

建一个表:clicktable(一个字段clicknum)
然后
<%

conn.execute "update clicktablbe set clicknum=clicknum+1"

%>

[777dragon]

http://community.csdn.net/Expert/topic/3469/3469625.xml?temp=.8121454

[qdzhenming]

在根目录下建一个文件count.txt
然后在default.asp中加上：
<%'一个简单的计数器程序
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.openTextFile(server.mappath("count.txt"))
count=a.readline
response.write "您是第" & count &"访问者"
count=count+1
Set fs = CreateObject("Scripting.FileSystemObject")
Set a=fs.createTextfile(server.mappath("count.txt"))
a.writeline (count)
%>

[onkey1999]

以下是我自己用的一个最简单的计数器。
相关网址：
http://www.donfor.com/book_cklr.asp?dfzxonkey=kdjsfa=2&js=487&dlj=ljz&lable=59
代码如下：
if session("jsq")="" then
sqljsq="select * from abouttable where id=1"
set dbrsjsq=dbconn.execute(sqljsq)
jsq01=dbrsjsq(2).value
jsq01=jsq01+1
session("jsq")=jsq01
sqljsq01="update abouttable set blz='"& jsq01 &"' where id=1"
dbconn.execute(sqljsq01)
dbrsjsq.close
set dbrsjsq=nothing
end if
sub gcounter
aa=session("jsq")
counts=Cint(aa)
digits=5
for i=digits-1 to 0 step -1
temp=fix(counts/10^i)
response.write"<img src=jsq/"&temp&".gif>"
counts=counts-temp*10^i
next
end sub

[life360]

sql="update count set num=num+1 where id=1"

[Clove]

楼上的就可以

[笨笨兔兔兔兔兔]

application("count")

[jiank]

应在GLOBAL.ASA中写：
<Script Language="VBScript" RunAt="Server">
Sub Application_OnStart()
Application.Lock
Application("Currentusers")=0
Application.Unlock
End Sub

Sub Session_OnStart()
Dim f1,t1,file
Application.Lock
Set f1=Server.CreateObject("Scripting.FileSystemObject")
file="d:count.txt"
Set t1=f1.OpenTextFile(file,1,-1,0)
writetof=Clng(t1.Readline)
t1.Close
writetof=writetof+1
Set t1=f1.CreateTextFile(file,-1,0)
t1.WriteLine writetof
t1.Close
Application.Unlock
Session.Timeout=30
Session("flag")=false
Application.Lock
Application("Currentusers")=Application("Currentusers")+1
Application.UnLock
End Sub

Sub Session_OnEnd()
Application.Lock
Application("Currentusers")=Application("Currentusers")-1
Application.unlock
End Sub

Sub Application_OnEnd()
End Sub
</Script>
这样在线人数和计数都可以了

[liuyangxuan]

Global.asa's Application to Session!

[hazen]

最简单的就用application了!
application.lock
application("count")=application("count")+1
application.unlock

[yqh1314]

支持 海风

[hj3793]

建立一个counter文本文件
<%
Sub application_OnStart()
set fs=server.CreateObject("Scripting.FileSystemObject")
counter_file = server.MapPath("counter.txt")
set txt = fs.OpenTextFile(counter_file)
application("counter")=txt.readline
txt.close

end sub

Sub application_OnEnd
set fs=server.CreateObject("Scripting.FileSystemObject")
counter_file = server.MapPath("counter.txt")
set txt=fs.OpenTextFile(counter_file)
set txt=fs.CreateTextFile(counter_file,true)
txt.writeLine(application("counter"))
txt.close
end sub
%>
<%
if isempty(session("connected")) then
application.Lock()
application_OnStart()
application("counter")=application("counter")+1
application_OnEnd
application.UnLock()
end if
session("connected")=true
%>

[gu1dai]

建一个表:clicktable(一个字段clicknum)
然后在需要统计的页面加上
<%
if request.cookies("counter")="" then
response.cookies("counter")="visited"
conn.execute "update clicktablbe set clicknum=clicknum+1"
end if
%>
这个统计可以防止简单的刷新

[angelyujun]

global.asa
<Script Language="VBScript" RunAt="Server">
Sub Application_On_Start()
Application.Lock
Application("hits")=0
Application.Unlock
End Sub

Sub Session_On_Start()
Application.Lock
application("hits")=application("hits")+1
Application.UnLock
End Sub
End Sub
</Script>

注意：服务器重起，你的计数器将归零，但这确实是最简单的

[Jade]

function setCount()
{
var sql,DataSet;
var DataSet;
var err=new Error();
var result;

DataSet=Server.CreateObject("Adodb.recordset");
sql="select count from counter";
DataSet.Open(sql,DataConn,1,1);
if (err.number!=0)
{

}
else
{
result=DataSet("count").value;
DataSet.close;
sql="update counter set count=count+1";
DataConn.Execute(sql);
}
return(result);
}


function showCount(Num)
{

var j,i,Num;
var tmp=new String();

tmp=Num.toString();
j=tmp.length;
i=1;
Response.Write("您是本站<br>第<span class='count'><b>");
while (i<=(8-j))
{
Response.Write("0");
i=i+1;
}

Response.Write(Num+"</b></span>位<br>来访问者");
}


function Counter()
{
this.count=0;
this.setCount=setCount;
this.showCount=showCount;
}
%>

在其他页面调用：
<%
var count=new Counter();
var Num=count.setCount();
count.showCount(Num);
%>

数据表结构

count 数字 //可设定初始化

c_time 日期/时间 //最后一次访问时间

page 文本 //可记录不同的页面。

[shijubo]

我自己做了一个计数器,比较简单的那种,可以供别人申请的.如果需要源代码,请给我发邮件[e-mail],最近垃圾邮件比较多,邮件标题请勿用英文(因见英文的删).

[huanghai2000]

ding

[phoubes]

要不要来个完整的?