网页访问人数计数器代码（asp 网站访问统计怎么弄）

本文目录

• asp 网站访问统计怎么弄
• ASP统计在线人数和访问次数代码
• 编写一个ASP程序，实现并显示当前网页的在线人数和计数器
• 内部网站防刷新的访问人数计数器代码，要详细的代码

asp 网站访问统计怎么弄

加计数器，图片是替换了数字才有的效果。每个页面上都加计数器，页面刷新（加载）一次计数器+1. 

《%

mode = LCASE(Request("mode"))

     gif  = Request("gif")

     Set conn1= Server.CreateObject("ADODB.Connection")

     DBPath = Server.MapPath("count/counter.mdb")

     conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

     SET rs = Server.CreateObject("ADODB.Recordset")

     Rs.Open "Select * From counters" , conn1,1,3

 LASTIP = RS("LASTIP")

 NEWIP = REQUEST.servervariables("REMOTE_ADDR") 

 IF CSTR(Month(RS("DATE"))) 《》 CSTR(Month(DATE())) THEN    

       RS("DATE") = DATE()                      

       RS("YESTERDAY") = RS("TODAY")            

       RS("BMONTH") = RS("MONTH")

       RS("MONTH") = 1                          

       RS("TODAY") = 1                          

       RS.Update                                 

 ELSE

   IF CSTR(Day(RS("DATE"))) 《》 CSTR(Day(DATE())) THEN    

       RS("DATE") = DATE()                      

       RS("YESTERDAY") = RS("TODAY")            

       RS("TODAY") = 1                          

       RS.Update                                

       END IF

 END IF

RS("TOTAL")  =  RS("TOTAL") + 1               

RS("TODAY") =  RS("TODAY") + 1               

RS("MONTH")  =  RS("MONTH") + 1               

RS.Update                                    

             response.write  "今日浏览总人数:"

             GCounter( RS("TODAY") )

 response.write " "   

 response.write  "昨日浏览总人数:"

             GCounter( RS("YESTERDAY") )

             response.write " "

             response.write  "本月浏览总人数:"

             GCounter( RS("MONTH") )

             response.write " "

 response.write  "上月浏览总人数:"

             GCounter( RS("BMONTH") )

             response.write " "

             response.write  "本站浏览总人数:"

             GCounter( RS("TOTAL") )

             response.write " "

N = Now

D2 = DateValue(N)

D1 =  #20/4/2002#     ’ 开始统计日期(月/日/年)

CONN1.CLOSE                        

Function GCounter( counter )

   Dim S, i, G

   S = CStr( counter )  

   For i = 1 to Len(S)

      G = G & "《IMG SRC=count/gif/" & Mid(S, i, 1) & ".gif Align=top》"

   Next

 response.write G

End Function

%》

代码是这样的，数据库设计如图。你要图片显示计数数字是吧，还需要一些数字图片。

ASP统计在线人数和访问次数代码

///////////////Global.asa文件：///////////////////////
《script language="VBScript" runat="Server"》
Sub Application_onStart
Application("Count")=0
Application("Online")=0
end sub
Sub session_onStart
session.Timeout=5 //这里是设定会话结束时间（5分钟）
Application.Lock
Application("Count") = Cint(Application("Count")) + 1 //访问次数加1
Application("Online") = Cint(Application("Online")) + 1 //在线人数加1
Application.UnLock
end sub
Sub session_OnEnd
Application.Lock
Application("Online") = Cint(Application("Online")) - 1 //会话结束时在线人数减1
Application.UnLock
end sub
《/script》
//////////////////index.asp文件部分代码///////////////////
总访问人数:《%response.Write(application("Count"))%》人
当前在线:《%response.Write(application("Online"))%》人

编写一个ASP程序，实现并显示当前网页的在线人数和计数器

在网站的根目录下,新建global.asa
《SCRIPT LANGUAGE="VBScript" RUNAT="Server"》
Sub session_onstart
Application.lock
Application("online") = Application("online") + 1
Application.unlock
End sub
Sub session_onend
Application.lock
Application("online") = Application("online") - 1
End sub
《/SCRIPT》
在其他页面中显示就可以了,如下
《html》
《body》
《% session.timeout = 5%》
《P》在线人数：《% = Application("onlive") %》 《/P》
《/body》
《/html》
《% counter = Application("counter") + 1 %》
《html》《body》是第《%counter%》位访客
《%Application("counter") = counter %》
《/body》《/html》

内部网站防刷新的访问人数计数器代码，要详细的代码

《%
dim rs_hits
set rs_hits=server.CreateObject("adodb.recordset")
sql="select * from hits"
rs_hits.open sql,conn,1,3
If IsNull(session("UsingCount")) Or session("UsingCount")="" Then
rs_hits("hits")=rs_hits("hits")+1
rs_hits.update
session("UsingCount")=True
End If
hits=rs_hits("hits")
rs_hits.close
set rs_hits=nothing
conn.close
set conn=Nothing
End If
%》
document.write("《%= hits %》");
——广东新碧图文信息技术工作室 WEB研发部 竭诚为您服务。