📄 count.asp

📁 C2C二手交易网SMRUC v2.0 全部实现了C2C电子商务功能。特别适合高校、组织、社区实现自己的C2C电子商务。 C2C二手交易网SMRUC v2.0具有强大的用户自主发布和管理信息功能
💻 ASP
字号:

<!--#include file="conn.asp"-->


<html>
<head>
<link href=css.css rel=STYLESHEET type=text/css>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>中国人民大学二手交易网--网站统计信息</title></head>

<body>
<div align="center">
  <table width="700" border="0" cellpadding="0" cellspacing="0" >
    <!--DWLayoutTable-->
    <tr> 
      <td width="40" height="23">&nbsp;</td>
      <td width="582">&nbsp;</td>
      <td width="78">&nbsp;</td>
    </tr>
    <tr> 
      <td height="191">&nbsp;</td>
      <td valign="top"><table width="100%" border="0" cellpadding="1" cellspacing="1"  bgcolor="#66CCFF">
          <!--DWLayoutTable-->
          <tr> 
            <td height="24" colspan="2" valign="middle" bgcolor="#00FFFF"> <div align="center"><strong>网站统计信息</strong><a href="#guest"></a>--实时统计</div></td>
          </tr>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >当前在线人数</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%
			set rs=server.createobject("adodb.recordset")
            sql="select count(*) as ct from [onlinecount]"
            rs.open sql,conn,1,1
			response.write rs("ct")
			rs.close
			%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >今日访问量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%
            sql="select logincount from [logincount] where type='day'"
            rs.open sql,conn,1,1
			response.write rs("logincount")
			rs.close
			%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >今日发布信息量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from info where info_date=#"&date&"#"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
response.write rs.recordcount
end if
rs.close%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >今日登陆用户量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from [user] where user_lastlogintime>#"&date&"#"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
response.write rs.recordcount
end if
rs.close%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >今日小纸条数量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from piece where piece_time>#"&date&"#"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
response.write rs.recordcount
end if
rs.close%></td>
          </TR>
          <tr> 
            <td height="24" colspan="2" valign="middle" bgcolor="#00FFFF"> <div align="center"><strong>网站统计信息</strong><a href="#guest"></a>--信息统计</div></td>
          </tr>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >总信息发布量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from config"
rs.open sql,conn,1,1
response.write rs("info_count")
rs.close
%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >现有总信息量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="select * from info"
			rs.open sql,conn,1,1
			if rs.eof then 
			response.write 0
			else
			response.write rs.recordcount
			end if
			rs.close
			%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >现有有效信息量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from info where info_status='有效'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
rs.movelast
response.write rs.recordcount
end if
rs.close
%> (其中供给：<%sql="SELECT * from info where info_status='有效' and info_kind='供'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
rs.movelast
response.write rs.recordcount
end if
rs.close
%> 需求:<%sql="SELECT * from info where info_status='有效' and info_kind='求'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
rs.movelast
response.write rs.recordcount
end if
rs.close
%>)</td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >成交总量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from config"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
rs.movelast
response.write rs("check_count")
end if
rs.close

%></td>
          </TR>
          <tr> 
            <td height="24" colspan="2" valign="middle" bgcolor="#00FFFF"> <div align="center"><strong>网站统计信息</strong><a href="#guest"></a>--用户/通讯统计</div></td>
          </tr>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >总用户数量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from config"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
rs.movelast
response.write rs("user_count")
end if
rs.close

%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >现有用户数量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%sql="SELECT * from [user]"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
			response.write rs.recordcount
			end if
			rs.close
			%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >总访问量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%
            sql="select logincount from [logincount] where type='total'"
            rs.open sql,conn,1,1
			response.write rs("logincount")
			rs.close
			%></td>
          </TR>
		  <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >站内用户通讯量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><%
            sql="select * from [config]"
            rs.open sql,conn,1,1
			response.write rs("piece_count")
			rs.close
			%></td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" >现有小纸条数量</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" > 
              <%sql="SELECT * from [piece]"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
			response.write rs.recordcount
			end if
			rs.close
			%>
              (其中未读：<%sql="SELECT * from [piece] where piece_isread='否'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write 0
else
			response.write rs.recordcount
			end if
			rs.close
			%>)</td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" ><!--DWLayoutEmptyCell-->&nbsp;</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><!--DWLayoutEmptyCell-->&nbsp;</td>
          </TR>
          <TR> 
            <td width="288" height="20" align="center" valign="middle" bgcolor="#FFFFFF" ><!--DWLayoutEmptyCell-->&nbsp;</td>
            <td width="287" align="center" valign="middle" bgcolor="#FFFFFF" ><!--DWLayoutEmptyCell-->&nbsp;</td>
          </TR>
          <TR> 
            <td height="24" colspan="2" valign="middle" bgcolor="#00FFFF" > <div align="center">版权所有:中国人民大学二手交易网</div></td>
          </TR>
        </table></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="59">&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
</div>
</body>

</html>
⌨️ 快捷键说明

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