tongji.asp

来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 32 行

<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E9E7DB">
<tr>
<TD align=middle width="100%" height=20><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td width="15%"><div align="center"><img src="imag/002.gif"></div></td>
                    <% set house=conn.execute("Select count(*) as house1 From house") %>
					<td width="85%">房产信息：<font color="#FF0000"><% =house("house1") %></font> 条     
                      </td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="imag/002.gif"></div></td>
                    <% set news=conn.execute("Select count(*) as news1 From news") %>
					<td>新闻总数：<font color="#FF0000"><% =news("news1") %></font> 条</td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="imag/002.gif"></div></td>
                    <% set puser=conn.execute("Select count(*) as puser1 From puser") %>
					<td>注册会员：<font color="#FF0000"><% =puser("puser1") %></font> 人</td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="imag/002.gif"></div></td>
                    <%set rs=server.CreateObject("ADODB.RecordSet") 
                      rs.Source="select top 1 * from puser order by id desc"
                      rs.Open rs.Source,conn,1,1
                     %> 
                    
                <td>最新注册：<font color="#FF0000"><a href="L_user.asp?pname=<% =rs("uid") %>"><%=rs("uid")%></a></font></td>
                  </tr>
                </table></TD>
</tr>
</table>