📄 admin_tongji.asp

📁 admin/admin.asp是WAP的后台管理登陆页面
💻 ASP
字号:
<%  if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>
<!-- #include file="conn.asp" -->
<html>
<head>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link rel="stylesheet" type="text/css" href="style.css"></head>
<title></title><body>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
    <td align="center" valign="top"><br>
      <font color="#FF0000"><strong>系 统-统 计</strong></font></td></tr>
<tr> 
    <td align="center" valign="top"><br></td></tr>
<tr> 
    <td align="center" valign="top">
<table width=98% align="center" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<tr bgcolor=#999999>
<td colspan="2" height="25" align="center">网站基本情况统计</td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="16" align="center">项目</td>
<td width="66%" align="center">值</td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select articleid from article where dateandtime like '%"&trim(date())&"%'",conn,1,1
set rs1=server.createobject("adodb.recordset")
rs1.open "select ID from ping where time like '%"&trim(date())&"%'",conn,1,1
%>今天文章/评论</td>
<td width="66%" height="25" align="center"><%=rs.recordcount%>/<%=rs1.recordcount%> 贴</td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center"><%
rs.close
rs1.close
set rswz=server.createobject("adodb.recordset")
rswz.open "select articleid from article where dateandtime like '%"&trim(date()-1)&"%'",conn,1,1
set rspin=server.createobject("adodb.recordset")
rspin.open "select ID from ping where time like '%"&trim(date()-1)&"%'",conn,1,1
%>昨天文章/评论</td>
<td width="66%" height="25" align="center"><%=rswz.recordcount%>/<%=rspin.recordcount%> 贴</td>
<%
rswz.close
rspin.close
%>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center"><%
set rsly=server.createobject("adodb.recordset")
rsly.open "select ID from guest where bookdate like '%"&trim(date())&"%'",conn,1,1
%>今天留言</td>
<td width="66%" height="25" align="center"><%=rsly.recordcount%> 条
<% rsly.close %></td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center"><%
set rsly=server.createobject("adodb.recordset")
rsly.open "select ID from guest where bookdate like '%"&trim(date()-1)&"%'",conn,1,1
%>昨天留言</td>
<td width="66%" height="25" align="center"><%=rsly.recordcount%> 条
<% rsly.close %></td>
</tr>
<tr bgcolor=#999999>
<td colspan="2" height="25" align="center">论坛基本情况统计</td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="16" align="center">项目</td>
<td width="66%" align="center">值</td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center"><%
set rsbbs=server.createobject("adodb.recordset")
rsbbs.open "select ID from art where ftime like '%"&trim(date())&"%'",conn,1,1
set rshui=server.createobject("adodb.recordset")
rshui.open "select ID from hui where time like '%"&trim(date())&"%'",conn,1,1
%>今天主题/回复</td>
<td width="66%" height="25" align="center"><%=rsbbs.recordcount%>/<%=rshui.recordcount%>贴</td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center"><%
rsbbs.close
rshui.close
set rsbbs=server.createobject("adodb.recordset")
rsbbs.open "select ID from art where ftime like '%"&trim(date()-1)&"%'",conn,1,1
set rshui=server.createobject("adodb.recordset")
rshui.open "select ID from hui where time like '%"&trim(date()-1)&"%'",conn,1,1
%>昨天主题/回复</td>
<td width="66%" height="25" align="center"><%=rsbbs.recordcount%>/<%=rshui.recordcount%>贴</td>
<%
rsbbs.close
rshui.close
%>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center">论坛注册情况</td>
<td width="66%" height="25" align="center"><%
set rshy=Server.CreateObject("ADODB.Recordset")
rshy.open "select ID from sheet",conn,1,2
if rshy.recordcount>0 then
response.write("共" & rshy.recordcount & "位注册会员<br/>")
else
end if
rshy.close
%>
</td>
</tr>
<tr bgcolor=#FFFFFF>
<td height="25" align="center">论坛在线情况</td>
<td width="66%" height="25" align="center"><%
set rshy=Server.CreateObject("ADODB.Recordset")
rsstrs="select id from login where datediff('s',date,now)<300"
rshy.open rsstrs,conn,1,2
if rshy.recordcount>0 then
response.write("<a href='online.asp?shouji="&request("shouji")&"'>" & rshy.recordcount & "人在线</a><br/>")
else
end if
rshy.close
set rshy=nothing
%></td>
</tr>
</table></td></tr>
</table>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -