📄 default.asp
字号:
<style type="text/css">
<!--
td {
font-size: 12px;
}
a:link {
font-size: 12px;
color: #000000;
text-decoration: none;
}
a:visited {
font-size: 12px;
color: #000000;
text-decoration: none;
}
a:hover {
font-size: 12px;
color: #990000;
text-decoration: underline;
}
-->
</style>
<!--#include File="conn.asp"-->
<%
'===========================================================================
'===========================================================================
Set MyCount=Server.createobject("adodb.recordset")
'===========================================================================
Response.Write "<table width=95% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#999999>" & _
"<tr>" & _
"<td height=25 bgcolor=#eeeeee>当前位置：<a href=../main.asp>管理首页</a> >> <a href=index.asp>最近40位访问网站者记录</a> 与 <a href=viewinfo.asp>详细统计</a></td>" & _
"<tr>" & _
"<tr><td bgcolor=#eeeeee>今日: " & ToDay & " (<img src=""" & ImageLink & "/theme/default/vstatb.gif"">) 全部: " & AllCount & " (<img src=""" & ImageLink & "/theme/default/hstatt.gif"">) 最高: " & DayMax & " (<img src=""" & ImageLink & "/theme/default/vstatg.gif"">) 日均: " & Avera & "</td></tr>" & _
"<table>"
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 "<table width=95% border=0 align=center cellpadding=5 cellspacing=1 bgcolor=#D4D0C8>" & _
"<tr bgcolor=#ffffff><td height=20 width=30% align=left><nobr>" & MyCount("Date") & "</nobr></td><td height=20 width=30% align=left><nobr>" & Online & " " & MyCount("IP") & "</td><td height=20 width=40% align=left>" & MyCount("BC") & " " & MyCount("OS") & "</td></tr>" & _
"</table>"
MyCount.MoveNext
loop
Else
Response.Write "<tr><TD colspan=3 align=center>没有统计数据</TD></TR>"
End if
MyCount.Close
'===========================================================================
Set MyCount=nothing
conn.close
Set conn=nothing
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -