原counter.asp

一套很早的多用户电子商务程序

<%
mode = LCASE(Request("mode"))
gif  = Request("gif")

SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" ,conn,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


RS("TOTAL")  =  RS("TOTAL") + 1               
RS("TODAY") =  RS("TODAY") + 1               
RS("MONTH")  =  RS("MONTH") + 1               
RS.Update                                    
Session("UserID")=RS("TOTAL")

end if

response.write  "本站总访问："
GCounter( RS("TOTAL") )
response.write  " 人<br>"
response.write  "今日访问量："
GCounter( RS("TODAY") )
response.write  " 人<br>"
response.write  "昨日访问量："
GCounter( RS("YESTERDAY") )
response.write  " 人<br>"
response.write  "本月访问量："
GCounter( RS("MONTH") )
response.write  " 人<br>"
response.write  "上月访问量："
GCounter( RS("BMONTH") )
response.write  " 人<br>"
N = Now
D2 = DateValue(N)
D1 =  rs("inputdate")                                                    ' 开始统计日期(月/日/年)
response.write  "本站已运行："
GCounter( DateDiff("d", D1, D2) )
response.write  " 天<br>"
D3 = DateDiff("d", D1, D2)
response.write  "平均访问量："
GCounter( RS("TOTAL")\D3 )
response.write  " 人<br>"
rs.Close
response.write "当前有 <img src='counter/OnlineCount.asp'> 人在线<br>"
Function GCounter( counter )
   Dim S, i, G
   S = CStr( counter )  

   For i = 1 to Len(S)
      G = G & "<IMG SRC=counter/" & Mid(S, i, 1) & ".gif Align=middle>"
   Next
   response.write G
End Function
%>