📄 statinfo.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!-- #include file="connection.inc" -->
<!-- #include file="std.asp" -->
<%
OnlyLogin
Alive "系统信息"
%>
<HTML>
<head>
<meta http-equiv="pragma" content="no-cache" >
<link rel="stylesheet" type="text/css" href="main.css">
</head>
<% dim rsSyslogin,rsBook
dim todayLogNo,toWeekLogNo,toMonthLogno,TotalLogNo
dim todayBook,toWeekBook,toMonthBook,TotalBook
set rsSysLogin=server.CreateObject("ADODB.RecordSet")
set rsBook=server.CreateObject("ADODB.RecordSet")
rsSyslogin.Cachesize=1
rsSyslogin.Open "select * from syslogin where DateDiff('d',loginDate, now)<1",myconn,1
todayLogNo=rsSyslogin.RecordCount
rsSyslogin.Close
rsSyslogin.Open "select * from syslogin where DateDiff('ww',loginDate, now)<1",myconn,1
toWeekLogNo=rsSyslogin.RecordCount
rsSyslogin.Close
rsSyslogin.Open "select * from syslogin where DateDiff('m',loginDate, now)<1",myconn,1
toMonthLogNo=rsSyslogin.RecordCount
rsSyslogin.Close
rsSyslogin.Open "select * from syslogin",myconn,1
totalLogNo=rsSyslogin.RecordCount
rsSyslogin.Close
rsBook.Open "select * from book where DateDiff('d',wdate,now)<1",myconn,1
todayBook=rsBook.RecordCount
rsBook.Close
rsBook.Open "select * from book where DateDiff('ww',wdate,now)<1",myconn,1
toWeekBook=rsBook.RecordCount
rsBook.Close
rsBook.Open "select * from book where DateDiff('m',wdate,now)<1",myconn,1
toMonthBook=rsBook.RecordCount
rsBook.Close
rsBook.Open "select * from book",myconn,1
totalBook=rsBook.RecordCount
rsBook.Close
%>
<BODY bgcolor="#ccddff">
<hr width=80%>
<table width=90% border=0 align=center cellpadding="2" cellspacing="1" class=statInfo>
<tr>
<td width=33% align=right >当天上站人次：</td>
<td width=17% align=left ><%=todayLogNo%></td>
<td width=33% align=right >当天文章数：</td>
<td width=17% align=left ><%=todayBook%></td>
</tr>
<tr>
<td align=right>本周上站人次：</td>
<td><%=toWeekLogNo%></td>
<td align=right>本周文章数：</td>
<td><%=toWeekBook%></td>
</tr>
<tr>
<td align=right>本月上站人次：</td>
<td><%=toMonthLogNo%></td>
<td align=right>本月文章数：</td>
<td><%=toMonthBook%></td>
</tr>
<tr>
<td align=right>总 上站人次：</td>
<td><%=totalLogNo%></td>
<td align=right>总 文章数：</td>
<td><%=totalBook%></td>
</tr>
</table>
<hr width=80%>
<p>
</BODY>
</HTML>
<% myconn.close
set rsSysLogin=nothing
set rsBook=nothing
set myconn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -