tmpcv4g14dq18.htm

科技网站ASP

                <tr> 
                  <td height="53" colspan="2"><div align="center"> 
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td height="55" background="../images/di1.gif"><div align="center"> 
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td width="24%"><div align="center"> 
                                      <MM:BeginLock translatorClass="MM_SSI" type="ssi_comment" orig="%3C!--#include file=%22counter.asp%22--%3E" fileRef="counter.asp" depFiles="file:///C|/Documents and Settings/zhangh/桌面/新建文件夹/counter.asp">
                                      <style>
BODY {
            FONT-SIZE: 9pt; LINE-HEIGHT: 12pt
}
P {
	FONT-SIZE: 9pt; LINE-HEIGHT: 12pt
}
</style>
                                      <!--#include file="../conn.asp"-->
                                      <%
mode = LCASE(Request("mode"))
gif  = Request("gif")

SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" ,conn,1,3

if Request.Cookies("IsFirst")=fail then
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
response.Cookies("IsFirst")=true
END IF
RS("LASTIP")=NEWIP
RS("TOTAL")  =  RS("TOTAL") + 1
RS("TODAY") =  RS("TODAY") + 1
RS("MONTH")  =  RS("MONTH") + 1
RS.Update
Session("UserID")=RS("TOTAL")

end if

t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
k=0
i=1
y=0
Do While application("zxip"&i)<>""
	if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")  then
		application("zxsj"&i)=t
		y=1
	end if
	if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then
		k=k+1
	else
		if k>0 then
			application.lock
			application("zxip"&i-k)=application("zxip"&i)
			application("zxsj"&i-k)=application("zxsj"&i)
			application.unlock
		end if
	end if
	if k>0 then
		application.lock
		application("zxip"&i)=""
		application.unlock
	end if
	i=i+1
loop
if y=0 then
	application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
	application("zxsj"&i)=t
else
	i=i-1
end if
online=i


N = Now
D1 = rs("inputdate")                                                   ' 开始统计日期(月/日/年)
D2 = DateValue(N)
D3 = DateDiff("d", D1, D2)
'response.write  "本站总访问："
GCounter( RS("TOTAL") )
'response.write  " 人"
'response.write "<br>"
'response.write  "今日访问量："
'GCounter( RS("TODAY") )
'response.write  " 人"
'response.write "<br>"
'response.write  "昨日访问量："
'GCounter( RS("YESTERDAY") )
'response.write  " 人"
'response.write "<br>"
'response.write  "本月访问量："
'GCounter( RS("MONTH") )
'response.write  " 人"
'response.write "<br>"
'response.write  "上月访问量："
'GCounter( RS("BMONTH") )
'response.write  " 人"
'response.write "<br>"
N = Now
D2 = DateValue(N)
D1 = rs("inputdate")                                                   ' 开始统计日期(月/日/年)
'response.write  "本站已运行："
'GCounter( DateDiff("d", D1, D2) )
'response.write  " 天"
'response.write "<br>"
D3 = DateDiff("d", D1, D2)
'response.write  "平均访问量："
'GCounter( RS("TOTAL")\D3 )
'response.write  " 人"
'response.write "<br>"
rs.Close
'response.write "当前在线有："
'GCounter(online)
'response.write " 人"
'response.write "<br>"
'response.write "开始统计时间："&D1&"<br>"
Function GCounter( counter )
   Dim S, i, G
   S = CStr( counter )
   
   select case len(s)
     case 1:
	   s="00000" & s
	 case 2:
	   s="0000" & s
	 case 3:
	   s="000" & s
	 case 4:
	   s="00" & s
	 case 5:
	   s="0" & s
   end select

   For i = 1 to Len(S)
      G = G & "<IMG SRC=cout/" & Mid(S, i, 1) & ".gif Align=middle>"
   Next
   response.write G
End Function
%>
                                      <MM:EndLock>
                                    </div></td>
                                  <td width="76%" class="word"><div align="left">　　　　　　青岛中锐科技有限公司版权所有&copy;2004</div></td>
                                </tr>
                              </table>
                            </div></td>
                        </tr>
                      </table>
                    </div></td>
                </tr>
                <tr> 
                  <td colspan="2"><img src="../images/di.gif" width="780" height="25"></td>
                </tr>
              </table> </TD>
          </TR>
        </TABLE>
      </div></td>
  </tr>
</table>
<!-- End ImageReady Slices -->
</BODY>
</HTML>