www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\source_\admin\admin_left.asp2.asp
<!--#include file="../inc/conn.asp"--> <%login=session("admin") if login<>"" then Set Rspp=Server.CreateObject("Adodb.RecordSet") sql="select count(*) as count from enterprise where CAST(GETDATE() - ep_regtime AS int)=0" Rspp.Open sql,conn,1,1 if not Rspp.eof then newep=Rspp("count") end if Rspp.Close sql="select count(*) as count from enterprise where ep_acount=1 and pc_num>apc_num" Rspp.Open sql,conn,1,1 if not Rspp.Eof then newpc=Rspp("count") end if Rspp.Close%> <table border=0 cellpadding=0 cellspacing=0 width=170 height="480"> <!--form method="post" action=""--> <tbody> <tr> <td height="15" valign="top" bgcolor=#f8f8f8><img src="../images/menubgblue.gif" width="172" height="18"><br> <img src="../images/admin_left.gif" width="158" height="45"> <br> <br> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="43" valign="top"> <table width="98%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><a href="../logout.asp"><b><font color="#2F5F8E">退出管理</font></b></a></td> </tr> </table> <br> 欢迎来到小美网站后台管理专区.<br> <br> </td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="70%" height="25"><font color="#FF3300">今天共有<b><font color="#006699"><%=newep%></font></b>个新注册单位</font></td> </tr> <tr> <td width="70%" height="25"><font color="#FF3300">目前共有<b><font color="#006699"><%=newpc%></font></b>个会员单位新添加了图片</font></td> </tr> <tr> <td width="70%" height="25"> </td> </tr> <tr> <td width="70%" height="25"> </td> </tr> <tr> <td width="70%" height="25"> </td> </tr> </table> </td> </tr> <!--/form--> </table> <%end if%>