admin_log.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

<%@ Language=VBScript %>
<%Response.Buffer=True%>
<!--#include file="mozeenconn.asp"-->
<LINK href="/css/style.css" rel=stylesheet type=text/css>
<%
'===========================================================================
        Set MyCount=Server.createobject("adodb.recordset")
'===========================================================================
        Response.Write "<table align='center' width='95%'><tr class=info><td align=center colspan=3><font class=strong>最后20位访问统计</td></tr>"
        MyCount.Open "Select * FROM log 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=22><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></table>"
        End if
        MyCount.Close
'===========================================================================
        Set MyCount=nothing
        conn.close
        Set conn=nothing
%>