default.asp

我行我素计数器 v1.0,不仅有普通的记数功能

<%@ Language=VBScript %>
<%Response.Buffer=True%>
<!--#include File="conn.asp"-->
<% 
'    About Script And CopyRight
'###################################
'* 本程序由“资源搜罗站”制作和提供
'* 您可以任意修改以供美化之用，但请
'* 保留这里的信息。
'###################################
'* Name   : ASP Cool Counter v1.0
'* Date   : 2000.10.23
'* Author : Harpoon
'* Email  : [e-mail]
'* URL1   : http://harpoon.on.net.cn
'* URL2   : http://www.wzdown.com
'* OICQ   : 388861
'###################################
'* 如果您觉的本程序对你有帮助或有用
'* 请为本站做个链接，这也是对本站的
'* 最好支持，同时有发现错误的，还请
'* 你来信告诉我，在这先谢谢你了。
'###################################
'       The End CopyRight
'###################################
'===========================================================================
        Call Header
'===========================================================================
        Set MyCount=Server.createobject("adodb.recordset")
'===========================================================================
        Response.Write "<tr class=info><td align=right colspan=3><font class=strong>最后20位访问 统计</td></tr>"
        MyCount.Open "Select * FROM lastly order by Date desc",Conn,1,1
        If Not (MyCount.Eof And MyCount.Bof) Then
               Do until MyCount.Eof
                     Online = "<Img Src=" & ImageLink & "/theme/default/online.gif align=absmiddle width=13 height=15>"
                     Response.Write "<tr class=rcontent><td height=30><nobr>" & MyCount("Date") & "</nobr></td><td><nobr>" & Online & " " & MyCount("IP") & "</td><td>" & MyCount("BC") & " " & MyCount("OS") & "</td></tr>"
               MyCount.MoveNext
               loop
        Else
               Response.Write "<tr class=rcontent><TD colspan=3 align=center>没有统计数据</TD></TR>"   
        End if
        MyCount.Close
'===========================================================================
        Call footer_theme
        Call footer
        Set MyCount=nothing  
        conn.close  
        Set conn=nothing  
%>