| 关键字： |
|
站点导航
|
<%
mode = LCASE(Request("mode"))
gif = Request("gif")
Set conncount = Server.CreateObject("ADODB.Connection")
conncount.Open(tcon())
SET rscount = Server.CreateObject("ADODB.Recordset")
rscount.Open "Select * From counters" , conncount,1,3
LASTIP = rscount("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")
IF CSTR(Month(rscount("DATE"))) <> CSTR(Month(DATE())) THEN
rscount("DATE") = DATE()
rscount("YESTERDAY") = rscount("TODAY")
rscount("BMONTH") = rscount("MONTH")
rscount("MONTH") = 1
rscount("TODAY") = 1
rscount.Update
ELSE
IF CSTR(Day(rscount("DATE"))) <> CSTR(Day(DATE())) THEN
rscount("DATE") = DATE()
rscount("YESTERDAY") = rscount("TODAY")
rscount("TODAY") = 1
rscount.Update
END IF
END IF
rscount("TOTAL") = rscount("TOTAL") + 1
rscount("TODAY") = rscount("TODAY") + 1
rscount("MONTH") = rscount("MONTH") + 1
rscount.Update
counter=rscount("total")
response.write "总访问量"
GCounter( rscount("TOTAL") )
if counter=500000 then
response.write "
"
response.write "感谢您一直以来的支持，请凭这个号码（du83n)到我所领取精美礼品一份，期待您的到来"
response.write "
"
response.write "联系电话：23033321"
else
response.write "
"
end if
' response.write "
"
' response.write "今日浏览总人数："
' GCounter( rscount("TODAY") )
' response.write "
"
' response.write "昨日浏览总人数："
' GCounter( rscount("YESTERDAY") )
' response.write "
"
' response.write "本月浏览总人数："
' GCounter( rscount("MONTH") )
' response.write "
"
' response.write "上月浏览总人数："
' GCounter( rscount("BMONTH") )
' response.write "
"%>
<%response.write " | "
response.write ""
N = Now
D2 = DateValue(N)
D1 = #27/11/2000# ' 开始统计日期(月/日/年)
'response.write "开站至今天："
' GCounter( DateDiff("d", D1, D2) )
'response.write "
"
'D3 = DateDiff("d", D1, D2)
'response.write "平均一日人数："
' GCounter( rscount("TOTAL")\D3 )
conncount.CLOSE
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "![](/images/") "
Next
response.write G
End Function
%> |
